-.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
thin 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 text
(30°) -22.5 O .25 cpoint text
|