18 lines
374 B
Text
18 lines
374 B
Text
graphic #g, 300,300
|
|
order = 8
|
|
width = 100
|
|
w = width * 11
|
|
dim canvas(w,w)
|
|
canvas(1,1) = 1
|
|
|
|
for x = 2 to 2^order -1
|
|
canvas(x,1) = 1
|
|
canvas(x,x) = 1
|
|
for y = 2 to x -1
|
|
canvas( x, y) = (canvas(x -1,y -1) + canvas(x -1, y)) mod 2
|
|
if canvas(x,y) mod 2 then #g "set "; width + (order*3) + y - x / 2;" "; x
|
|
next y
|
|
next x
|
|
render #g
|
|
#g "flush"
|
|
wait
|