|
|
CALL GINIT(600,600)
DIM XX(4),YY(4)
SET AREA COLOR 7
SET COLOR 7
LET S=3
DO
FOR TH=S TO S+360 STEP 10
LET X=300+200*COS(TH*PI/180)
LET Y=300+200*SIN(TH*PI/180)
PLOT LINES:300,300;X,Y
FOR I=1 TO 4
LET XX(I)=X+15*COS((I*90+TH+45)*PI/180)
LET YY(I)=Y+15*SIN((I*90+TH+45)*PI/180)
NEXT I
MAT PLOT AREA:XX,YY
NEXT TH
SET DRAW MODE EXPLICIT
WAIT DELAY .2
SET DRAW MODE HIDDEN
CLEAR
LET S=-S
LOOP
END
EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET POINT STYLE 1
SET COLOR MODE "REGULAR"
SET COLOR MIX(0) 0,0,0
SET COLOR MIX(1) 0,0,1
SET COLOR MIX(2) 1,0,0
SET COLOR MIX(3) 1,0,1
SET COLOR MIX(4) 0,1,0
SET COLOR MIX(5) 0,1,1
SET COLOR MIX(6) 1,1,0
SET COLOR MIX(7) 1,1,1
CLEAR
END SUB
|
|