Édition de 401.jps

[ retour ] Édition de 401.jps.

%% auteur : Péric
28.45 setxunit
-0.5 17 setxrange
-1 5 setyrange
1 1 settkstep
%1 1 setmkstep
/xmarkstyle {[1.5 dup] dctext} def
%/ymarkstyle {[1.5 dup] ultext} def
xticks
[0 8 12 16] {xtick} apply
[0 8 12 16] {xmark} apply
traceOx
axeOxarrow

/t {2} def
/A {0 1.875} def
/a {0 0} def 
/B {8 1.875} def
/b {8 0} def 
/C {8 1.75} def
/c {8 0} def 
/D {12 1.75} def
/d {12 0} def 
/E {12 2} def
/e {12 0} def 
/F {16 2} def
/f {16 0} def

<latex>
$[0;8[$
</latex>
4 -0.5 [1.5 dup] cctexlabel

<latex>
$[8;12[$
</latex>
10 -0.5 [1.5 dup] cctexlabel

<latex>
$[12;16[$
</latex>
14 -0.5 [1.5 dup] cctexlabel

<latex>
1 \'el\`eve
</latex>
 3 4 [1.5 dup] cctexlabel
 
%/an {60} def
%/gradangle hangle def
%/fillstyle {0.85 dup dup setrgbcolor fill} def
%0 8 {1.875} Fillcourbe
%/fillstyle {0.9 dup dup setrgbcolor fill } def
%8 12 {1.75} Fillcourbe
%/fillstyle {0.95 dup dup setrgbcolor fill} def
%12 16 {2} Fillcourbe

%[a A B b] ligne
%[c C D d] ligne
%[e E F f] ligne
%[2 3 3 3 3 4 2 4 2 3] {left up 0.5 mulv addv translatepoint} papply ligne
/fillstyle {0.8 dup dup setrgbcolor fill} def
1 3.5 1 1 rframe*
/fillstyle {0.85 dup dup setrgbcolor fill} def
0 0 8 1.875 rframe*
/fillstyle {0.9 dup dup setrgbcolor fill } def
8 0 4 1.75 rframe*
/fillstyle {0.95 dup dup setrgbcolor fill} def
12 0 4 2 rframe*

Tapez les 3 lettres : AWE