Hilbert curve: Difference between revisions
m
→{{header|FutureBasic}}
Line 1,532:
lg = lg / 2
fn HilbertCurve( x+i1*lg, y+i1*lg, lg, i1, 1-i2 )
pen 2.0
fn HilbertCurve( x+i2*lg, y+(1-i2)*lg, lg, i1, i2 )
fn HilbertCurve( x+(1-i1)*lg, y+(1-i1)*lg, lg, i1, i2 )
Line 1,539:
fn BuildWindow
pen -2.0, fn
fn HilbertCurve( 0, 0, ORDER, 0, 0 )
|