18 lines
419 B
Text
18 lines
419 B
Text
MODE 8
|
|
MOVE 800,400
|
|
GCOL 11
|
|
PROCdragon(512, 12, 1)
|
|
END
|
|
|
|
DEF PROCdragon(size, split%, d)
|
|
PRIVATE angle
|
|
IF split% = 0 THEN
|
|
DRAW BY -COS(angle)*size, SIN(angle)*size
|
|
ELSE
|
|
angle += d*PI/4
|
|
PROCdragon(size/SQR(2), split%-1, 1)
|
|
angle -= d*PI/2
|
|
PROCdragon(size/SQR(2), split%-1, -1)
|
|
angle += d*PI/4
|
|
ENDIF
|
|
ENDPROC
|