So I try simplier things now
How to transfer the following snippet to work in SpiderBasic?
Code: Select all
Procedure DrawClock(time)
Protected dc,pen,fill
Protected x,y
dc=StartDrawing(CanvasOutput(0))
DrawingMode(#PB_2DDrawing_Default)
RoundBox(150-13,150-100-16,26,10,3,3,#Green)
Circle(150,150,100,#Green)
Circle(150,150,90,#White)
pen=CreatePen_(#PS_SOLID,1,#Green)
fill=CreateSolidBrush_(#Green)
SelectObject_(DC,pen)
SelectObject_(DC,fill)
x=Sin(#PI/180*time)*80
y=-Cos(#PI/180*time)*80
Pie_(dc,70,70,230,230,x+150,y+150,150,70)
DeleteObject_(pen)
DeleteObject_(fill)
StopDrawing()
EndProcedure
OpenWindow(0,0,0,300,300,"")
CanvasGadget(0,0,0,300,300,0)
AddWindowTimer(0,0,10)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Timer
t+1
DrawClock(t)
EndSelect
ForEver