Pattern應用─孔雀開屏

size 350 350paper 250
Repeat A 0 350
{pen 150 80 80 Line (20+A*10) 0 (0+A*30) 350pen 120 50 80 Line (30+A*20) 0 (0+A*30) 350pen 110 20 80 Line (40+A*200) 0 (0+A*30) 350pen 100 10 80 Line (50+A*250) 0 (0+A*30) 350pen 90 10 150 Line (60+A*350) 0 (0+A*30) 350
pen 10 50 170 Line (30+A/10) 0 (0+A*30) 150pen 20 50 170 Line (40+A/20) 0 (0+A*30) 200pen 60 50 170 Line (50+A/200) 0 (0+A*30) 250pen 30 50 170 Line (60+A/250) 0 (0+A*30) 300pen 50 50 170 Line (70+A/350) 0 (0+A*30) 350
pen 100 150 90 Line (0+A/10) 0 (0+A*30) 300pen 200 150 90 Line (10+A/20) 0 (0+A*30) 300pen 160 150 90 Line (20+A/200) 0 (0+A*30) 300pen 300 150 90 Line (80+A/250) 0 (0+A*30) 300pen 150 150 90 Line (90+A/350) 0 (0+A*30) 300
pen 100 50 390 Line (0+A/10) 0 (0+A*30) 310pen 200 50 390 Line (10+A/20) 0 (0+A*30) 310pen 160 50 390 Line (20+A/200) 0 (0+A*30) 310pen 300 50 390 Line (80+A/250) 0 (0+A*30) 310pen 150 50 390 Line (90+A/350) 0 (0+A*30) 310
pen 120 50 30 Line (0+A/10) 0 (0+A*30) 290pen 120 55 30 Line (10+A/20) 0 (0+A*30) 290pen 120 60 30 Line (20+A/200) 0 (0+A*30) 290pen 120 45 30 Line (80+A/250) 0 (0+A*30) 290pen 120 40 30 Line (90+A/350) 0 (0+A*30) 290
pen 10 19 80 Line (140+A/10) 0 (0+A*30) 350pen 0 19 80 Line (150+A/20) 0 (0+A*30) 300pen 0 19 80 Line (160+A/200) 0 (0+A*30) 250pen 0 19 80 Line (170+A/250) 0 (0+A*30) 200pen 0 19 80 Line (180+A/350) 0 (0+A*30) 150}