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