p69.eps

p69.eps [ retoursource ]

Conversion au format PDF de p69.eps
/pagewidth 8.5 72 mul def 
 
/doCircle 
{ xpos ypos radius 0 360 arc stroke} def 
 
/increase-x 
{ xpos radius add 
 /xpos exch def} def 
 
/lineofcircles 
{ /ypos exch def 
 /radius exch def 
 /xpos 0 def 
 {xpos pagewidth le 
 {doCircle increase-x} 
 {exit} ifelse 
 } loop 
} def 
 
10 400 lineofcircles 
30 400 lineofcircles 
90 400 lineofcircles