home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
library
/
prolo_c
/
exampl36.pro
< prev
next >
Wrap
Text File
|
1986-10-06
|
702b
|
26 lines
/* Program 36 */
/*
NOTE: all graphics programs are in white on a
black(blue) background. If you don't like this
combination it can easily be changed. You can
change the parameters to the 'graphics'
predicate, or you can change the drawing
color. Read page 92 and try some combinations
of parameters. For example: graphics(1,5,17)
on a CGA will give you pink letters and a
white line on a blue background. Other
systems give different colors. Just explore.
*/
predicates
polyspiral(integer)
goal
graphics(1,1,0),
pencolor(7),
polyspiral(500).
clauses
polyspiral(X):- !,X<15000,
forward(X),right(62),Y=X+100,polyspiral(Y).