Présentation de picture_02.jps

-5 5 setxrange
/A {1 1} def
/B {-1 -1} def

/crayon_dim {
   -.5 0 jtoppoint
   .5 5.1 jtoppoint
} def
/crayon {
gsave
   currentpoint ptojpoint stranslate    
   [-.5 1 0 0 .5 1] ligne
   -180 0 [0 1 .5 .1 0] Ellipse
   [0 5 .5 .1 0] ellipse
   [-.5 1 -.5 5] ligne
   [.5 1 .5 5] ligne
grestore
} def


[O A B] points

%% avec decalage en O
O {60} (crayon) ucpict
%% sans decalage en A
A () {30} (crayon) ucpict
%% avec un decalage augemnte en B, plus un agrandissement sur Oy
%% attention : decalage avant rotation
B (0 10 sqrt) [1 1.2] {-120} (crayon) ucpict
setTimesItalic
   (O) O dltext
   (A) A dltext
   (B) B dltext