So now I've tried with DDTMs but that doesn't help at all.
My DDTM maker:
SCAR Code:
function MakeDDTM(Which: String): Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..3] of TDTMPointDef;
TempTDTM: TDTM;
i: Integer;
begin
case Lowercase(Which) of
'iron':
begin
dtmMainPoint.x := 855;
dtmMainPoint.y := 317;
dtmMainPoint.Color := 801376;
dtmSubPoints[0].x := 855;
dtmSubPoints[0].y := 317;
dtmSubPoints[0].Color := 801376;
dtmSubPoints[1].x := 855;
dtmSubPoints[1].y := 301;
dtmSubPoints[1].Color := 3950919;
dtmSubPoints[2].x := 849;
dtmSubPoints[2].y := 314;
dtmSubPoints[2].Color := 3950919;
dtmSubPoints[3].x := 863;
dtmSubPoints[3].y := 321;
dtmSubPoints[3].Color := 3950919;
end;
'copper':
begin
dtmMainPoint.x := 894;
dtmMainPoint.y := 284;
dtmMainPoint.Color := 734551;
dtmSubPoints[0].x := 894;
dtmSubPoints[0].y := 284;
dtmSubPoints[0].Color := 734551;
dtmSubPoints[1].x := 894;
dtmSubPoints[1].y := 275;
dtmSubPoints[1].Color := 1327990;
dtmSubPoints[2].x := 888;
dtmSubPoints[2].y := 274;
dtmSubPoints[2].Color := 1327990;
dtmSubPoints[3].x := 885;
dtmSubPoints[3].y := 281;
dtmSubPoints[3].Color := 1327990;
end;
'tin':
begin
dtmMainPoint.x := 914;
dtmMainPoint.y := 311;
dtmMainPoint.Color := 734551;
dtmSubPoints[0].x := 914;
dtmSubPoints[0].y := 311;
dtmSubPoints[0].Color := 734551;
dtmSubPoints[1].x := 927;
dtmSubPoints[1].y := 309;
dtmSubPoints[1].Color := 1327990;
dtmSubPoints[2].x := 920;
dtmSubPoints[2].y := 313;
dtmSubPoints[2].Color := 1327990;
dtmSubPoints[3].x := 914;
dtmSubPoints[3].y := 320;
dtmSubPoints[3].Color := 3950919;
end;
'gold':
begin
dtmMainPoint.x := 878;
dtmMainPoint.y := 345;
dtmMainPoint.Color := 735323;
dtmSubPoints[0].x := 878;
dtmSubPoints[0].y := 345;
dtmSubPoints[0].Color := 735323;
dtmSubPoints[1].x := 885;
dtmSubPoints[1].y := 336;
dtmSubPoints[1].Color := 3950919;
dtmSubPoints[2].x := 877;
dtmSubPoints[2].y := 332;
dtmSubPoints[2].Color := 3950919;
dtmSubPoints[3].x := 880;
dtmSubPoints[3].y := 335;
dtmSubPoints[3].Color := 668242;
end;
end;
dtmMainPoint.AreaSize := 5;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Tolerance := 10;
for i := 0 to High(dtmSubPoints) do
begin
Writeln(IntToStr(i));
dtmSubPoints[i].AreaSize := 7;
dtmsubPoints[i].AreaShape := 0;
dtmSubPoints[i].Tolerance := 10;
end;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
Am I not making them correct?