PATTEN-PIANO

paper 20 0 30
size 300 300
repeat A 70 80
{
pen 100 80 100
line 0 (165+A) 300 (165+A)
line 0 (10+A) 300 (10+A)
}

repeat E 70 80
{
pen 50 80 100
line 0 (280+E) 300 (280+E)
line 0 (260+E) 300 (260+E)
line 0 (240+E) 300 (240+E)
line 0 (220+E) 300 (220+E)
line 0 (200+E) 300 (200+E)
line 0 (180+E) 300 (180+E)
line 0 (160+E) 300 (160+E)
line 0 (140+E) 300 (140+E)
line 0 (120+E) 300 (120+E)
line 0 (100+E) 300 (100+E)
line 0 (80+E) 300 (80+E)
line 0 (60+E) 300 (60+E)
line 0 (40+E) 300 (40+E)
line 0 (20+E) 300 (20+E)
line 0 (0+E) 300 (0+E)
line (280+E) 0 (280+E) 300
line (260+E) 0 (260+E) 300
line (240+E) 0 (240+E) 300
line (220+E) 0 (220+E) 300
line (200+E) 0 (200+E) 300
line (180+E) 0 (180+E) 300
line (160+E) 0 (160+E) 300
line (140+E) 0 (140+E) 300
line (120+E) 0 (120+E) 300
line (100+E) 0 (100+E) 300
line (80+E) 0 (80+E) 300
line (60+E) 0 (60+E) 300
line (40+E) 0 (40+E) 300
line (20+E) 0 (20+E) 300
line (0+E) 0 (0+E) 300
}
repeat b 70 80
{
PEN 60 20 20

line 0 (40+B) 50 (40+B)
line 0 (20+B) 50 (20+B)
line 0 (120+B) 50 (120+B)
line 0 (140+B) 50 (140+B)
line 0 (220+B) 50 (220+B)
line 0 (240+B) 50 (240+B)
line (280-B) 0 (280-B) 50
line (260-B) 0 (260-B) 50
line (240-B) 0 (240-B) 50
line (220-B) 0 (220-B) 50
line (120-B) 0 (120-B) 50
line (100-B) 0 (100-B) 50

}