home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / prolog / hercdemo.pro next >
Encoding:
Text File  |  1988-02-26  |  1.2 KB  |  47 lines
  1. /*--------------------------------------------------------*/
  2. /*                      HERCDEMO.PRO                      */
  3. /*       Hercules-Grafik mit Turbo Prolog genutzt         */
  4. /*          Linken von Turbo Prolog mit Turbo C           */
  5. /*        (C) M.Schlöter & PASCAL INTERNATIONAL           */
  6.  
  7. project "HERCDEMO"
  8.  
  9. global predicates
  10.   cpinit - language c
  11.   cls - language c
  12.   hires - language c
  13.   textmode - language c
  14.   Plot(integer,integer,integer) - (i,i,i) language c
  15.   XOrMode(integer) - (i) language c
  16.   TextPixel(integer,integer,integer) - (i,i,o) language c
  17.   Draw(integer,integer,integer,integer,integer) - 
  18.     (i,i,i,i,i)  language c
  19.   Circle(integer,integer,integer,integer) - (i,i,i,i) language c
  20.  
  21. predicates 
  22.   linien
  23.   linien1(integer,integer,integer,integer,integer,integer)
  24.   test
  25.   
  26. clauses
  27.   linien :-
  28.     linien1(0,175,719,0,10,347),
  29.     linien1(719,175,0,0,10,347).
  30.   
  31.   linien1(_,_,_,AktY,_,Ende) :-
  32.     AktY > Ende, !.
  33.   linien1(StartX,StartY,EndX,EndY,Incr,Ende) :-
  34.     !,
  35.     Draw(StartX,StartY,EndX,EndY,1),
  36.     NEndY = EndY + Incr,
  37.     linien1(StartX,StartY,EndX,NEndY,Incr,Ende).
  38.   
  39.   test :-
  40.     cpinit,
  41.     hires,
  42.     cls,
  43.     linien,
  44.     readchar(_),
  45.     cls,
  46.     textmode.
  47. goal test.