PS:page370

TinyPS Editor

/inch { 72 mul } def

/screenbox { 
 /d exch def
 newpath
 .5 inch 0 moveto
 d 0 d d 0.25 inch arcto 4 { pop } repeat
 d d 0 d 0.25 inch arcto 4 { pop } repeat
 0 d 0 0 0.25 inch arcto 4 { pop } repeat
 0 0 d 0 0.25 inch arcto 4 { pop } repeat
 closepath
} def

/isotriangle {
 /b exch def
 /h exch def
 /hb b 2 div def
 newpath
 0 0 moveto 
 hb h rlineto
 hb h neg rlineto
 % closepath 
} def

/horizontallines {
 /w exch def
 /h exch def
 newpath
 0 10 h { 0 exch moveto w 0 rlineto } for 
 stroke 
} def

3 inch 5 inch translate
3 inch screenbox
clip
0.5 setgray
4 inch 6 inch horizontallines
showpage

/inch { 72 mul } def

/isotriangle {
 /b exch def
 /h exch def
 /hb b 2 div def
 newpath
 0 0 moveto 
 hb h rlineto
 hb h neg rlineto
 closepath 
} def

/horizontallines {
 /w exch def
 /h exch def
 newpath
 0 10 h { 0 exch moveto w 0 rlineto } for 
 stroke 
} def

3 inch 5 inch translate
3 inch screenbox
stroke
5 inch 4 inch isotriangle 
gsave  stroke grestore 
clip
3 inch screenbox
clip
4 inch 6 inch horizontallines

showpage

Exercices