Dr.Tのフラクタルぞ～ん

2009/9/5更新のフラクタルの描画ソース
Levy曲線

SET WINDOW -1,1,-1,1
DRAW a(18)
END
EXTERNAL PICTURE a(n)
IF n=0 THEN
   PLOT LINES:0,0;1,0
ELSE
   DRAW a(n-1) WITH ROTATE(3*PI/4)*SCALE(1/SQR(2))
   DRAW a(n-1) WITH ROTATE(3*PI/4)*SCALE(1/SQR(2))*SHIFT(1/2,1/2)
END IF
END PICTURE