paper 0
pen 100
forever
{
paper 0
field (+1) (+1) (+99) (+99) 30
command piano a b
{
line a b (a+30) (b+15)
line (a+30) (b+15) (a) (b+100)
//black
field (a+10) (b+70) (a+25) (b+200) 100
}
piano 10 70
piano 40 85
piano 70 100
piano 100 115
piano 130 130
piano 160 145
piano 190 160
command teeth g h
{
line (g+40) h (g+50) (h+10)
line (g+50) (h+10) (g+70) h
}
command tooth k l
{
teeth (+k) (+l)
}
command box c d e f
{
set e (c+100)
set f (d+100)
line c d e d
line e d e f
line e f c f
line c f c d
}
box (+100) (+100)
tooth 0 0
tooth 10 10
tooth 20 20
tooth 30 30
tooth 40 40
}