%% gh
%% Arbre d'une expression algébrique

%% échelle et étendue de l'image
60 setxunit
.5 5.5 setxrange
.5 4.5 setyrange

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% définitions des couleurs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/coul0 {0 0 0 0.5 setcmykcolor} def %gris
/coul1 {noir} def
/coul2 {orange} def
/coul3 {rouge} def
/coul4 {bleu} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les feuilles de l'arbre
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
coul1
1.5 setlinewidth

5 setdboxit 		%% reglage bordure de l’encadrement 
/linearc .1 def 	%% pour arrondir les angles 
setPalatino

(node1) bnode
(Mult) 4 4 [1.5 dup] cctext

(node22) bnode
(4) 5 3 [1.5 dup] cctext

(node21) bnode
(Moins) 3 3 [1.5 dup] cctext

(node31) bnode
(Plus) 2 2 [1.5 dup] cctext

(node32) bnode
(Sin) 4 2 [1.5 dup] cctext

(node43) bnode
(6) 4 1 [1.5 dup] cctext

(node41) bnode
(1) 1 1 [1.5 dup] cctext

(node42) bnode
(2) 3 1 [1.5 dup] cctext

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les branches de l'arbre
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(node1) (node21) (-) ncline
(node1) (node22) (-) ncline
(node21) (node31) (-) ncline
(node21) (node32) (-) ncline
(node32) (node43) (-) ncline
(node31) (node41) (-) ncline
(node31) (node42) (-) ncline