Turbo Prolog

1 Program 37 1/
predicates
inspiral(integer)
goal
graphics(2,1,0),inspiral(10).
clauses
inspiral(X):forward(SOOO),right(X),Y=X+1,inspiral(Y).
/1 Program 38 1/
predicates
square(integer)
fillsquare(integer)
goal
fillsquare(SOOO).
clauses
square(X) :forward(X),right(90),forward(X),right(90),
forward(X),right(90),forward(X),right(90).
fillsquare(X):-X>10000,!.
fillsquare(X):-square(X),Y=X+SOO,fillsquare(Y).
predicates
goal
clauses
/1 Program 39 1/
circle
circle.
circle:-forward(1000),right(1),circle.
Turbo Prolog's graphics can also be used within windows, as illustrated in Program 40.
A window is drawn and a "spotlight" effect (several lines drawn from a fixed point to
fifteen other points) is repeated at five different positions. Another overlapping window
is drawn and five more "spotlights" appear. Finally, a text window is drawn, which
contains an invitation for the user to press the space bar. Each time the space bar is
pressed, one of the windows is removed and the invitation reappears.
Note that text and graphics can be used simultaneously both inside a window and on
the full screen.
/1 Program L;O 1/
domains
list=integer l
predicates
spotlight(integer,integer,integer)
xy(list)
goal undo
graphics(2,0,1),
makewindow(1,7,7,"First",1,1,18,70),
xy([O,0,0,9000,3000,26S00,20100,2L;L;00,201DO,1000J),
makewindow(2,7,7,"Second",10,20,1t;,6D),
xy([O,100D,D,9DOO,O,20DDO,1S0DO,200DD,1S000,100DJ),
Tutorial VI: Graphics and Sound 95