|
|
CALL GINIT(400,400)
LET CX=200
LET CY=200
LET R=200
LET C=2
LET K=2
SET LINE COLOR C
FOR N=5 TO 11 STEP 2
FOR ST=25 TO 360 STEP 20
FOR T=0 TO 360*5 STEP ST
LET TT=T*PI/180
SET DRAW MODE HIDDEN
CLEAR
PLOT LINES
FOR I=0 TO N
LET PX=CX+COS(PI/2+2*PI/N*I*K+TT)*R
LET PY=CY-SIN(PI/2+2*PI/N*I*K+TT)*R
PLOT LINES:PX,PY;
NEXT I
SET COLOR C
PAINT CX,CY
FOR I=1 TO N
LET PX=CX+COS(PI/2+2*PI/N*I*K+TT)*R*.96
LET PY=CY-SIN(PI/2+2*PI/N*I*K+TT)*R*.96
PAINT PX,PY
NEXT I
SET DRAW MODE EXPLICIT
WAIT DELAY .1
NEXT T
NEXT ST
NEXT N
END
EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0 , XSIZE-1 , 0,YSIZE-1
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
|
|