Présentation de sembl_008.jps

autocrop
-15 30 setxrange
-10 20 setyrange
15 setxunit

/ech 1.5 def
10 ech div setfontsize
ech dup scale

/D {O} def
/B {-.6 2} def

B 2.8
D 2.1
intercercle
/A defpoint
popp

B A
A 7.2 interdroitecercle
popp
/C defpoint

D A
A 9.6 interdroitecercle
/E defpoint
popp

[A B C D E] {times} plot

/fillstyle {orange fill} def
[D C B E] polygone*

setTimes
   (21) D A milieu {D A angle} uctext
   (28) B A milieu {B A angle} uctext
   (72) A C milieu {A C angle} uctext
   (96) A E milieu {A E angle} dctext
setTimesItalic
   (D) D dltext
   (B) B ultext
   (A) A dctext
   (C) C drtext
   (E) E urtext