Rotate Sprites, Simulation turtle, Part II (New Features)

by lrcvs, Saturday, November 03, 2012, 22:17 (1603 days ago) @ lrcvs

CLS : CLG
GRAPHSIZE 22,22
SPRITEDIM 360
COLOR CLEAR
RECT 0,0,21,21
COLOR BLACK
LINE 0,0,21,11
LINE 0,21,21,11
LINE 11,11,0,0
LINE 11,11,0,21
IMGSAVE "TOR"
CLG
FOR N = 0 TO 359
G = RADIANS (360-N)
IMGLOAD 10,10,1,G,"TOR"
SPRITESLICE N,0,0,22,22
PAUSE 0.01
CLG
NEXT N

CLG
GRAPHSIZE 400,400

COLOR WHITE
RECT 0,0,400,400
COLOR RED
LINE 200,0,200,400
LINE 0,200,400,200

Z = 0
FOR N = 0 TO 359

FON$ = GETSLICE (N-20,180,40,40)
SPRITEMOVE Z,N,200
SPRITESHOW Z
PUTSLICE N-20,180,FON$
COLOR BLUE : PLOT N,200
FON$ = ""
Z = Z + 1
IF Z = 360 THEN Z = 0
NEXT N

END


Complete thread:

 RSS Feed of thread

powered by my little forum