Datasets examples

* fichier : test_dess.dgibi
* Teste quelques fonctionnalités décoratives de DESSIN
*-----------------------------------------------------

* Mettre GRAPH a VRAI pour tracer a l'ecran, sinon tracer dans un .ps
GRAPH = FAUX  ;
'SI' ('NON' GRAPH) ;
  'OPTION' 'TRACER' 'PSC';
'FINSI' ;

* test des couleurs de remplissage (problème) et des différents marqueurs
* ceux qui sont sur les bords doivent apparaître
a=        'EVOL' 'BLEU'  'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .3 .81) ; 
a=a 'ET' ('EVOL' 'ROUGE' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .4 .83)); 
a=a 'ET' ('EVOL' 'ROSE'  'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .5 .85)); 
a=a 'ET' ('EVOL' 'VERT'  'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .6 .89)); 
a=a 'ET' ('EVOL' 'TURQ'  'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .7 .93)); 
a=a 'ET' ('EVOL' 'JAUNE' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .8 .96)); 
a=a 'ET' ('EVOL' 'BLANC' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .9 1.0)); 

t   = 'TABLE'  ;
t.1 = 'MOT' 'MARQ PLEI XL CARR';
t.2 = 'MOT' 'MARQ PLEI L ROND';
t.3 = 'MOT' 'MARQ PLEI M LOSA';
t.4 = 'MOT' 'MARQ PLEI S CARR';
t.5 = 'MOT' 'MARQ PLEI SS CARR';
t.6 = 'MOT' 'MARQ MOIN';
t.7 = 'MOT' 'MARQ BARR';
t.titre = 'TABLE' ;
t.titre.1 = 'MOT' 'taille XL' ;
t.titre.2 = 'MOT' 'taille L' ;
t.titre.3 = 'MOT' 'taille M' ;
t.titre.4 = 'MOT' 'taille S' ;
t.titre.5 = 'MOT' 'taille SS' ;
t.titre.6 = 'MOT' 'MOINS' ;
t.titre.7 = 'MOT' 'BARRE' ;
'DESSIN' a t 'LEGE' 'TITRE' 'Remarquez les taquets sur les bords' ;

* test des nouvelles couleurs d'évolution
a=        'EVOL' 'ROSE'  'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .1 .81) ; 
a=a 'ET' ('EVOL' 'BLANC' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .2 .83)); 
a=a 'ET' ('EVOL' 'AZUR'  'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .3 .83)); 
a=a 'ET' ('EVOL' 'ORANG' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .4 .83)); 
a=a 'ET' ('EVOL' 'VIOLET''MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .5 .85)); 
a=a 'ET' ('EVOL' 'OCEAN' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .6 .89)); 
a=a 'ET' ('EVOL' 'CYAN'  'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .7 .93)); 
a=a 'ET' ('EVOL' 'OLIVE' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .8 .96)); 
a=a 'ET' ('EVOL' 'GRIS'  'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .9 1.0)); 
t   = 'TABLE'  ;
t.1 = 'MOT' 'MARQ PLEIN L ROND';
t.2 = 'MOT' 'MARQ PLEIN L ROND';
t.3 = 'MOT' 'MARQ PLEIN L ROND';
t.4 = 'MOT' 'MARQ PLEIN L ROND';
t.5 = 'MOT' 'MARQ PLEIN L ROND';
t.6 = 'MOT' 'MARQ PLEIN L ROND';
t.7 = 'MOT' 'MARQ PLEIN L ROND';
t.8 = 'MOT' 'MARQ PLEIN L ROND';
t.9 = 'MOT' 'MARQ PLEIN L ROND';
t.titre = 'TABLE' ;
t.titre.1 = 'MOT' 'rose' ;
t.titre.2 = 'MOT' 'blanc' ;
t.titre.3 = 'MOT' 'azur' ;
t.titre.4 = 'MOT' 'orange' ;
t.titre.5 = 'MOT' 'violet';
t.titre.6 = 'MOT' 'ocean';
t.titre.7 = 'MOT' 'cyan';
t.titre.8 = 'MOT' 'olive';
t.titre.9 = 'MOT' 'gris';
'DESSIN' a t 'LEGE' 'TITRE' 'Joli, non ?';


* test taille de titre (il est tronqué) et logo
tit = 'CHAINE' 
'aujourd hui je vais a l ecole et je vais bien m éclater car il y a '
'plein de copainssympaavecquijevaisjoueràchat' ;
'DESSIN' a t 'LEGE' 'TITRE' tit logo ;

* test de l'impression d'un label en chaque point d'une évolution
ev  = 'EVOL' 'VERT' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .3 1); 
t   = 'TABLE'  ;
t.1 = 'MOT' 'LABEL Coucou';
'DESSIN' ev t 'TITRE' 'Test impression de labels' ;

* test de l'impression des taquets en abscisses et vignettes contenant
* le nom des points
'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
pt1 = 0 0;
pt2 = 1.01 0;
d   = 'DROIT' pt1 pt2 10 ;
x   = 'COOR' 1 d ;
e   = 'EVOL' 'TURQ' 'CHPO' x d ;
'DESSIN' e 'TITRE' 'Test des vignettes de points en bas' ;

'TEMPS' 'SGAC' 'IMPR' ;

* Test des nouvelles couleurs sur les maillages
* ---------------------------------------------
'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;

'OPTION' 'COULEUR' 'BLEU' ;
m1 = 'MANU' 'QUA4' (0 0) (0 1) (1 1) (1 0) ;
m2 = 'COULEUR' 'ROUG' ('PLUS' m1 (1 0)) ;
m3 = 'COULEUR' 'ROSE' ('PLUS' m2 (1 0)) ;
m4 = 'COULEUR' 'JAUN' ('PLUS' m3 (1 0)) ;
m5 = 'COULEUR' 'VERT' ('PLUS' m4 (1 0)) ;
m6 = 'COULEUR' 'TURQ' ('PLUS' m5 (1 0)) ;
m7 = 'COULEUR' 'BLAN' ('PLUS' m6 (1 0)) ;

n1 = 'COULEUR' 'AZUR' ('PLUS' m1 (0 -1)) ;
n2 = 'COULEUR' 'ORAN' ('PLUS' n1 (1 0)) ;
n3 = 'COULEUR' 'VIOL' ('PLUS' n2 (1 0)) ;
n4 = 'COULEUR' 'OCEA' ('PLUS' n3 (1 0)) ;
n5 = 'COULEUR' 'CYAN' ('PLUS' n4 (1 0)) ;
n6 = 'COULEUR' 'OLIV' ('PLUS' n5 (1 0)) ;
n7 = 'COULEUR' 'GRIS' ('PLUS' n6 (1 0)) ;

'TITRE' 'BLEU ROUG ROSE JAUN VERT TURQ BLAN ,'
        'AZUR ORAN VIOL OCEA CYAN OLIV GRIS' ;
'TRACER' (m1 'ET' m2 'ET' m3 'ET' m4 'ET' m5 'ET' m6 'ET' m7 'ET'
          n1 'ET' n2 'ET' n3 'ET' n4 'ET' n5 'ET' n6 'ET' n7) 'FACE' ;

'ERREUR' 0 ;
'FIN' ;