Présentation de ptolemee.jps

-.2 1.2 setxrange
-.7 .7 setyrange

/cerc {O 1} def
/A {0 cerc cpoint} def
/B {30 cerc cpoint} def
/C {-30 cerc cpoint} def
/I {B A milieu} def
/D {O A B C interdroite} def


40 -40 cerc Cercle

.8 1.5 mul setlinewidth

[O A B] polygone
[B C O I] ligne

O I A angledroit
O D B angledroit

I O B .3 (-) tripointarc
A O I .25 (-) tripointarc
C O A .2 (=) tripointarc

setTimesItalic
   (O) O dltext
   (A) A drtext
   (B) B urtext
   (C) C drtext
   ( I) I rtext
   (D) D dltext
10 setfontsize
setTimes
   ( 15°) 22.5 O .3 cpoint brtext
   (30°) -22.5 O .25 cpoint brtext