Présentation de plaq_001.jps

/syracuse/texpng/jpv/database/1ere/sti/geometry/baryc/plaq_001.jpg
-1 7 setxrange -1 7 setyrange 20 setxunit 10 setfontsize autocrop /cross { gsave newpath .75 setlinewidth smoveto 2.5 2.5 rmoveto -5 -5 rlineto 0 5 rmoveto 5 -5 rlineto stroke grestore } def /l1 2 def /L1 6 def /l2 2 def /L2 4 def /A {0 L1} def /B {l1 L1} def /C {l1 l2} def /D {l1 L2 add l2} def /E {l1 L2 add 0} def /F {l1 0} def /G1 { A F milieu } def /G2 { C E milieu } def [A B F O] polygone [C D E F] polygone G1 cross G2 cross O point setTimesItalic (O) O dltext (G) G1 urtext setTimes (1) indice setTimesItalic (G) G2 urtext setTimes (2) indice (6) 0 3 cltext (2) 1 6 uctext (2) 6 1 crtext (4) 4 2 uctext