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

2009/9/19更新のフラクタルの描画ソース

SET WINDOW -1.3,1.9,-1.4,1.8
DRAW a(17)
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(7*PI/4)*SCALE(1/SQR(2))*SHIFT(1/2,1/2)
END IF
END PICTURE