17 lines
389 B
Text
17 lines
389 B
Text
Define dragon = (iter, xform)
|
||
Prgm
|
||
Local a,b
|
||
If iter > 0 Then
|
||
dragon(iter-1, xform*[[.5,.5,0][–.5,.5,0][0,0,1]])
|
||
dragon(iter-1, xform*[[–.5,.5,0][–.5,–.5,1][0,0,1]])
|
||
Else
|
||
xform*[0;0;1]→a
|
||
xform*[0;1;1]→b
|
||
PxlLine floor(a[1,1]), floor(a[2,1]), floor(b[1,1]), floor(b[2,1])
|
||
EndIf
|
||
EndPrgm
|
||
|
||
FnOff
|
||
PlotsOff
|
||
ClrDraw
|
||
dragon(7, [[75,0,26] [0,75,47] [0,0,1]])
|