SCAR Code:
program New;
var
x, y, midx, midy, buffer, i : integer;
angle, radius : extended;
Canvas : TCanvas;
Colors : TIntegerArray;
begin
SetArrayLength(colors, 9);
Colors[0] := 2720044;
Colors[1] := 2322469;
Colors[2] := 2056481;
Colors[3] := 1592858;
Colors[4] := 1261076;
Colors[5] := 995600;
Colors[6] := 795405;
Colors[7] := 331781;
Colors[8] := 0;
MidX := 100;
MidY := 100;
Radius := 85;
BitmapFromString(200, 200,'')
FastDrawClear(Buffer, 0);
DisplayDebugImgWindow(200, 200);
Canvas := GetDebugCanvas;
SetClientPos(True);
Canvas.Pen.Width := 2;
repeat
angle := angle + 0.5;
X := MidX + Round((radius + 1) * Cos(Radians(Angle - 90)));
Y := MidY + Round((radius + 1) * Sin(Radians(Angle - 90)));
FastSetPixel(buffer,x,y,clgreen)
SafeDrawBitmap(Buffer, GetDebugCanvas, 0, 0);
until(Angle >= 360);
repeat
for i := 0 to 8 do
begin
angle := angle + 0.05;
Canvas.Pen.Color := colors[i];
X := MidX + Round(radius * Cos(Radians(Angle - 90-(i * 5))));
Y := MidY + Round(radius * Sin(Radians(Angle - 90-(i * 5))));
canvas.moveto(midx,midy)
canvas.lineto(x,y)
end;
until IsFKeyDown(8);
wait(1000);
canvas.free;
end.