Édition de synt

[ retour ] Édition de synt_001c.jps.

-1.75 1.75 setxrange
-1.5 1.5 setyrange
.5 .5 setquadrillagestep
quadrillage
.7 setlinewidth
tracerepere
gsave
   pointilles
   O 1 1 droite
   -1 1 scale
   O 1 1 droite
grestore

1.2 setlinewidth
O 1 cercle

%% le cercle trigo
1.2 setlinewidth
O 1 cercle

%% le cercle representant l'intervalle de resolution
/r 1.1 def                      %% rayon
/a1 pi -.985 mul def            %% angle extremite inf
/a2 a1 neg def                  %% angle extremite sup
%% trace
.8 setlinewidth
a1 rd a2 rd O r Cercle

/z1 {r a1 Polcar} def           %% le point extreme inf
/z2 {r a2 Polcar} def           %% le point extreme sup

%% la resolution
.5 xmark
%% pts du cercle trigo
/M'1 {1 pi 3 div Polcar} def
/M'2 {1 pi -3 div Polcar} def
%% pts du cercle "intervalle"
M'1 M'2 O r interdroitecercle /M2 defpoint /M1 defpoint

[z1 z2 M1 M2 M'1 M'2] points

gsave
   pointilles
   [M1 M2] ligne
grestore

setTimes
   (cos) xmax 0 (-10 0) dltext

setSymbol
   (-p) z1 dltext
   (p) z2 ultext
   (p/3) M2 urtext
   (-p/3) M1 drtext

1.2 setlinewidth
/fillstyle {blanc fill} def
-.9 -1.5 .9 -1.2 frame*

2 setlinewidth
O 1.5 142.5 170.5 (-) arcarrow
/arrowscale {2 2} def
.2 setlinewidth
O 1.5 142.5 172.5 (<-) arcarrow
2 setlinewidth
O 1.5 142.5 170.5 (-) arcarrow

setTimesBold
   (Résolution sur ) .35 -1.35 cltext
setSymbol
   ([-p ; p]) show

18 setfontsize
setSymbolBold
   (+) 1.6 157.5 deg Polcar cctext

Tapez les 3 lettres : AWE

Édition de synt_001c.jps