2009/9/12更新のフラクタルの描画ソース
Harter-Heightway dragon
SET WINDOW -0.5,1.5,-1,1
DRAW a(19)
END
EXTERNAL PICTURE a(n)
IF n=0 THEN
   PLOT LINES:0,0;1,0
ELSE
   DRAW a(n-1) WITH ROTATE(-PI/4)*SCALE(1/SQR(2))*SHIFT(1/2,1/2)
   DRAW a(n-1) WITH ROTATE(-3*PI/4)*SCALE(1/SQR(2))*SHIFT(1/2,1/2)
END IF
END PICTURE



戻る?

著作権について
©2009