# test gplot
# Ci-dessous des exemples d'utilisation des commandes de la librairie gplot.c
# dont les noms apparaissent dans les "tools" (?libT).

echo_off

# creation d'un gplot simple (1 seule courbe)
" plot1.dat" " Essai de Courbe" gplot
# ajout d'un texte supplémentaire dans la commande plot
" smooth csplines, cos(x)" 1 gplotCmd                
# creation d'un plot de 4 courbes
" plotM.dat" " Essai multi Courbes" 4 gplotM

# fonction qui ajoute 100 pts dans le gplot no 1, un par seconde.
# chaque pt est compose du temps (t) en x et de sin(t) en y.
: test 100 0 do
time 10000000. / dup sin 2 >array 1 gplotAdd 1 sleep loop ;

# la meme chose mais en replaçant, c'est a dire en enlevant le pt le plus ancien
# a chaque fois que l'on en ajoute un.
: test2 100 0 do
time 10000000. / dup sin 2 >array 1 gplotRepl 1 sleep loop ;

# fonction qui ajoute 100 pts dans le gplot no 2, un par seconde.
# chaque pt est compose de t en x et de sin(t), cos(t), sin2(t), cos2(t) en y.
: testM
100 0 do time 10000000. / dup dup sin swap dup cos swap dup sin dup * swap cos
dup * 5 >array 2 gplotAdd 1 sleep loop ;

# la meme chose que testM mais en replaçant, c'est a dire en enlevant le pt le
# plus ancien a chaque fois que l'on en ajoute un.
: testM2
100 0 do time 10000000. / dup dup sin swap dup cos swap dup sin dup * swap cos
dup * 5 >array 2 gplotRepl 1 sleep loop ;

# Ici on fait en parrallele test ET testM, c'est-à-dire un affichage sur les 2!
: testG
100 0 do time 10000000. / 
dup dup sin 2 >array 1 gplotAdd
dup dup sin swap dup cos swap dup sin dup * swap cos
dup * 5 >array 2 gplotAdd 1 sleep loop ;

# Meme chose que testG en remplaçant.
: testG2
100 0 do time 10000000. / 
dup dup sin 2 >array 1 gplotRepl
dup dup sin swap dup cos swap dup sin dup * swap cos
dup * 5 >array 2 gplotRepl 1 sleep loop ;