quadri1

gestione finestre

/* quadri1,pro */
/* gestione finestre video */

domains
A,B,C,D,E,F,G = integer
S =string

predicates
azione(A,B,C,S,D,E,F,G)
azione2

 goal 
 azione(1,7,1,"FINESTRA1",1,1,10,20),
 azione(2,7,3,"FINESTRA2",1,22,10,30),
 azione(3,6,4,"finestra3",11,1,10,60),
 azione2.
 

clauses
 azione(A,B,C,S,D,E,F,G):-
 sound(100,600),
 makewindow(A,B,C,S,D,E,F,G).
 azione2:-
 shiftwindow(1),
 write("passa a finestra1"),nl,sound(100,500),
 write("cancella finestra1"),nl,
 write("elimina finestra1"),sound(100,500),
 removewindow(),
 sound(100,500),
 shiftwindow(2),
 write("passa a finestra2"),nl,
 sound(100,600),
 write("cancella e rimuove "),sound(100,500),
 removewindow(),
 shiftwindow(3),
 write("passa a finestra3..fine prova"),nl,
 sound(100,700).