paper 0
pen 100
//guitar body
command rectangle a b c d
{
line a b c b
line c d a d
line a d a b
}
rectangle 80 10 100 90
repeat ra 15 85
{
pen 50
line 85 ra 100 ra
}
//guitar strings
command string sa sb sc sd
{
line sa sb (sa-50) (sb+5)
line (sa-50) (sb+5) sc sd
}
command strings ssa ssb ssc ssd
{
repeat f 0 5
{
string (ssa-10*f) (ssb-5*f) (ssc-5*f) (ssd-2*f)
}
}
strings 100 70 15 100
pen 100
//a guitar bar and code
command square ba bb bc bd
{
repeat pa 0 3
{
line (ba+pa) bb (bc+pa) bd
line (ba+pa) bd (2*ba+pa) bb
}
}
command bar fa fb fc fd
{
repeat q 0 5
{
square (fa+10*q) (fb+10*q) (fc+10*q) (fd+10*q)
}
}
bar 10 20 15 30