Présentation de star.jps

/syracuse/texpng/jpv/guide_jps/star.jpg
15 setxunit 8 setfontsize /hstep 4 def /hwidth .4 def traceaxes marks /fillstyle {hachure} def /A {0 2} def /D {3 -2} def /B {-3 -3} def /E {-4 -4} def /C {3 -3} def /F {4 -4} def A 2 cercle* [B C O] polygone* 0 135 D 2 1 Ellipse* /fillstyle {jaune fill} def -45 -135 A 1 wedge* E 2 1 (bl) cframe* F 2 1 (ur) cframe* [O A B C D E F] points