funzioni grafiche varie
prolog area lavoro ........
funzioni trigonometriche .......
sinusoide ed ellisse .......
grafico tipo frattale .......
/* graphic.pro */
/* attivazione funzioni grafiche e TURTLE e sonoro*/

domains
C = integer
predicates
azione1
azione2
azione3
punto(C)
goal
azione1,punto(10000),
sound(100,500),
azione2,sound(100,600),
azione3,sound(100,900).

clauses
 azione1:-
 graphics(1,7,1).
 punto(C):-
 C>0,!,
 Colonna=1000+C,
 dot(1000,Colonna,2),
 C1=C-1,
 punto(C1).
 punto(0).
   azione2:-
   graphics(1,7,1),
   line(1000,1000,1000,20000,7),
   sound(100,600).
   azione3:-
   pendown,
   pencolor(7),
   penpos(1000,1000,45),
   forward(5000),
   penup,
   forward(1000),
   pendown,pencolor(4),
   forward(5000),
   right(90),pencolor(5),
   forward(5000),
   left(90),pencolor(6),
   forward(6000),
   sound(100,3000),
   pencolor(2),
   back(800),
   sound(200,800).
   
    ritorna o vedi grafica