View.Set ("graphics:1000;600,offscreenonly")
var picID:int
var picID1 :int
drawfillbox (100,100,200,200,red)
picID:=Pic.New(100,100,200,200)
for i:1..360
picID1:=Pic.Rotate(picID,i,100,100)
Pic.Draw(picID1,100,100,0)
delay(50)
View.Update
cls
end for

const AMOUNT_TO_ROTATE := 1
const NUMBER_OF_ROTATIONS := 360
const CENTER_X := 250
const CENTER_Y := 250
var x : real := 100
var y : real := 0
x += CENTER_X
y += CENTER_Y

for rotationIndex : 1 .. NUMBER_OF_ROTATIONS
    x -= CENTER_X %% Move the point to the center
    y -= CENTER_Y
    %% Plug into the rotation formula
    %% We will save them into new variables as we need to use to original x and y
    var newX := x * cosd (AMOUNT_TO_ROTATE) - y * sind (AMOUNT_TO_ROTATE)
    var newY := y * cosd (AMOUNT_TO_ROTATE) + x * sind (AMOUNT_TO_ROTATE)
   
    x := newX
    y := newY

    x += CENTER_X  %% Move the point back away from the center
    y += CENTER_Y
    Draw.FillOval (round (x), round (y), 10, 10, black)
    Time.Delay (10)
end for