Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- etTime->|LHR
- StoreGDB 1
- ClrDraw:AxesOff:Degree:DelVar A:DelVar B
- ~1.2->Xmin:1.2->Xmax:~1.2->Ymin:1.2->Ymax
- Circle(0,0,1.2
- Text(55,3,"By":Text(55,78,"Willy":Text(1,1,"HR":Text(1,78,"v1.2":StorePic 2:Repeat K=45
- Text(43,30,|LHR(1):Text(43,40,":":Text(43,43,|LHR(2):Text(43,53,":":Text(43,55,|LHR(3)
- RecallPic 2
- getTime->|LHR
- getKey->K
- If A>=361:Then:1->A:End
- If |LHR(3)=01:Then:ClrDraw:End
- Line(0,0,sin(|LHR(2)*6),cos(|LHR(2)*6)
- Line(0,0,sin(|LHR(2)*6),cos(|LHR(2)*6)
- Line(0,0,sin(|LHR(1)*15),cos(|LHR(1)*15)
- Line(0,0,sin(|LHR(3)*6),cos(|LHR(3)*6)
- Text(1,45,12:Text(55,45,6:Text(27,2,9:Text(27,89,3:Line(0,0,sin(|LHR(3)*6),cos(|LHR(3)*6),0:End
- RecallGDB 1
- DelVar GDB1
- ClrDraw:ClrHome
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement