Fichier 097.jps — Modifié le 27 Février 2008 à 21 h 33
%% auteur : Florent Braisaz
-4.5 4.5 setxrange
-3.5 4.5 setyrange
15 setxunit
/A {-4 0} def
/B {0 2.5} def
/C {4 0} def
/D {0 -2.5} def
/O {0 0} def
gsave
bleu
D A B 1 (-) tripointarc
B C D 1 (-) tripointarc
A B C .75 (=) tripointarc
C D A .75 (=) tripointarc
grestore
gsave
1.25 setcurvelinewidth
[A B C D] polygone
grestore
gsave
pointilles
[B D] ligne
[A C] ligne
grestore
gsave
rouge
[A D B C]{1 marked} dapply
[A B C D]{1 marked} dapply
[A O O C]{2 marked} dapply
[B O O D]{3 marked} dapply
grestore