home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
026.lha
/
logo
/
logo.5
< prev
next >
Wrap
Text File
|
1987-04-02
|
738b
|
45 lines
;
;this program was copied directly, with one minor change, from the
;Sept. 1986 issue of Byte magazine, P. 14. Due to Mr. Mark D. Widome.
;
to hilbert :order :size
penup
setpos [200 30] ;this is the only change, to adjust for screen size
setheading 180
pendown
curvright :order
end
to curvright :order
if :order =0 [stop]
left 90
curvleft :order-1
forward :size
right 90
curvright :order-1
forward :size
curvright :order-1
right 90
forward :size
curvleft :order-1
left 90
end
to curvleft :order
if :order = 0 [stop]
right 90
curvright :order-1
forward :size
left 90
curvleft :order-1
forward :size
curvleft :order-1
left 90
forward :size
curvright :order-1
right 90
end
to demo
cs pd hilbert 6 2
end