70 lines
831 B
Plaintext
70 lines
831 B
Plaintext
subr home
|
|
deg = 0
|
|
x = 50
|
|
y = 50
|
|
down = 0
|
|
move x y
|
|
.
|
|
home
|
|
#
|
|
proc forward n . .
|
|
x += cos deg * n
|
|
y += sin deg * n
|
|
if down = 1
|
|
line x y
|
|
else
|
|
move x y
|
|
.
|
|
sleep 0.1
|
|
.
|
|
proc turn a . .
|
|
deg -= a
|
|
.
|
|
#
|
|
proc house . .
|
|
turn 180
|
|
forward 45
|
|
turn 180
|
|
down = 1
|
|
#
|
|
forward 30
|
|
turn 90
|
|
forward 30
|
|
turn 90
|
|
forward 30
|
|
turn 90
|
|
forward 30
|
|
#
|
|
turn 30
|
|
forward 30
|
|
turn 120
|
|
forward 30
|
|
home
|
|
.
|
|
house
|
|
#
|
|
proc bar a[] . .
|
|
turn 90
|
|
forward 30
|
|
turn -90
|
|
down = 1
|
|
for i to len a[]
|
|
max = higher max a[i]
|
|
.
|
|
for i to len a[]
|
|
h = a[i] / max * 50
|
|
w = 45 / len a[]
|
|
turn -90
|
|
forward h
|
|
turn 90
|
|
forward w
|
|
turn 90
|
|
forward h
|
|
turn -90
|
|
.
|
|
turn 180
|
|
forward 45
|
|
home
|
|
.
|
|
bar [ 50 33 200 130 50 ]
|