Black Box 4/BlackBox.cdr/proglang/ladybug1.arj/DIAMND.BUG

Text File | 1991-01-13 | 1KB | 115 lines

; diamnd.bug

to "start
pu bk 103 lt 60 fd 16 pd
end

to "add1
move3
diamonds
end

to "add2
move3
diamonds
move3
diamonds
end

to "move
pu rt 60 bk 8 lt 60 bk 8 pd
end

to "move2
pu fd 56 rt 60 fd 16 lt 60 pd
end

to "move3
pu fd 16 rt 60 fd 56 lt 60 pd
end

to "move4
pu fd 24 rt 60 fd 40 rt 60 fd 16 pd
end

to "move5
pu rt 60 bk 24 rt 60 fd 16 lt 60 pd
end

to "move6
pu rt 60 fd 16 rt 60 fd 16 lt 60 pd
end

to "move7
pu fd 24 rt 60 fd 40 rt 60 fd 16 pd
end

to "side2
diamonds
move2
diamonds
end

to "side3
diamonds
move2
diamonds
move2
diamonds
end

to "diamond  :n
repeat 2 [fd :n rt 60 fd :n rt 120]
end

to "diamonds
diamond 8
move
diamond 24
move
diamond 40
end


to "rim
start
side3
add2
move4
side3
add2
move4
side3
add2
end

to "inside
move5
side2
add1
move4
side2
add1
move4
side2
add1
end

to "block
move6
diamonds
move7
diamonds
move7
diamonds
end

to "tess
rim
inside
block
end

make "description [ Diamonds - to start, type "tess" ]
print :description