prolo5

Gestione grafica e gestione TURTLE

graphics(modo grafico,palette,sfondo)
graphics(1,7,2)
assegna modo grafico(da 1 a 5),numero intero per palette,intero per fondo:
la attivazione di graphics usa tutta la area video.
(limiti...1,1,32000,32000)

dot(riga,colonna,colore)
dot(4,5,2)
assegna numero riga,numero colonna,colore per punto da disegnare

line(riga1,colonna1,riga2,colonna2,colore)
line(100,100,2000,2000,4)
assegna numeri per riga iniziale e colonna iniziale,riga finale e colonna
finale,colore per disegnare

pendown
disegna con penna abbassata

penup
penna alzata,non disegna

pencolor(colore)..........pencolor(5)
assegna numero colore per disegnare

forward(lunghezza).....forward(100000)
assegna lunghezza per spostamento penna

back(lunghezza)...........back(30000)
assegna lunghezza per disegnare in senso retrocedendo

right(angolo)................right(90)
assegna angolo per rotazione a destra

left(angolo)..................left(90)
assegna angolo per rotazione a sinistra

penpos(riga,colonna,angolo).....penpos(2,4,45)
assegna riga,colonna ove posizonare cursore e angolazione

/* reg5.pro */
/* attivazione grafica */

domains
 Lettera = char

clauses
 goal
 makewindow(1,7,3,"finestra grafica",1,1,20,60),
 graphics(4,5,7),attribute(2),
 line(3,3,3,30000,5),
 line(3,3,30000,3,6),
 line(3,30000,30000,30000,5),
 line(30000,3,30000,30000,2),
 dot(50,50,1),dot(50,52,2),dot(50,54,3),
 pencolor(6),
 forward(10000),
 pencolor(5),
 left(90),
 forward(10000),
 penpos(1000,1000,45),
 forward(20000),
 right(90),
 back(10000),
 sound(300,500),
 /*cursor(19,2),write("premi tasto SPACE"),
 readchar(Lettera).*/
 cursor(19,2),beep,beep,
 keypressed.
 

/* reg6.pro */
/* attivazione grafica */
/* pendown penup pencolor forward back */
/* right left penpos graphics dot line */
domains
predicates
clauses
 goal
 graphics(4,5,7),attribute(2),
 line(3,3,3,30000,5),
 line(3,3,30000,3,6),
 line(3,30000,30000,30000,5),
 line(30000,3,30000,30000,2),sound(50,1000),
 sound(100,900),
 cursor(10,10),
 write("attivazione funzioni grafiche "),
 dot(50,50,1),dot(50,52,2),dot(50,54,3),
 pencolor(6),
 forward(10000),sound(100,600),
 pencolor(5),
 left(90),
 forward(10000),sound(100,500),
 penpos(1000,1000,45),
 forward(20000),sound(100,700),
 right(150),
 back(10000),sound(100,500),
 left(90),
 penup,forward(900),left(120),pendown,
 sound(100,600),
 pencolor(6),forward(20000),
 sound(300,500),
 cursor(19,2),beep,beep,
 keypressed.