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

by lrcvs, Saturday, November 03, 2012, 22:15 (1694 days ago) @ lrcvs

CLS : CLG
GRAPHSIZE 10,10
COLOR GREEN
#DIBUJA LA TORTUGA INICIAL
CLG
LINE 0,5,10,0
LINE 0,5,10,10
LINE 5,5,10,10
LINE 5,5,10,0
IMGSAVE "TOR"

GRAPHSIZE 400,400
COLOR RED : RECT 0,0,400,400
COLOR BLUE : CIRCLE 200,200,150
R = 100

X0 = (R*COS(0))+ 100
Y0 = (R*SIN(0))+ 100

FOR GRA = 0 TO 360
GRAD = RADIANS (GRA)
X = (R*COS(GRAD))+ 100
Y = (R*SIN(GRAD))+ 100
FON$ = GETSLICE (X-10,Y-10,20,20)
IMGLOAD X,Y,1,GRAD,"TOR"
PUTSLICE X-10,Y-10,FON$
COLOR WHITE : LINE X0,Y0, X,Y

X0 = X
Y0 = Y
NEXT GRA

IMGLOAD X,Y,1,GRAD,"TOR"


Complete thread:

 RSS Feed of thread

powered by my little forum