home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 03 / prolog / mixlang.pro < prev    next >
Encoding:
Text File  |  1988-01-06  |  1.2 KB  |  46 lines

  1. /*--------------------------------------------------------*/
  2. /*                      MIX-LANG.PRO                      */
  3. /*    Demonstration von "mixed language programming"      */
  4. /*             mit Turbo Prolog und Turbo C               */
  5. /*        (C) M.Schlöter & PASCAL INTERNATIONAL           */
  6.  
  7. project "MIX-LANG"
  8.  
  9. global predicates
  10.   cpinit - language c
  11.   save_screen(string,integer) - (i,o) language c
  12.   load_screen(string,integer) - (i,o) language c
  13.  
  14. predicates 
  15.   linien
  16.   linien1(integer,integer,integer,integer,integer,integer)
  17.   test
  18.   
  19. clauses
  20.   linien :-
  21.     linien1(0,16000,31999,0,1000,31999),
  22.     linien1(31999,16000,0,0,1000,31999).
  23.   
  24.   linien1(_,_,_,AktY,_,Ende) :-
  25.     AktY > Ende, !.
  26.   linien1(StartX,StartY,EndX,EndY,Incr,Ende) :-
  27.     !,
  28.     line(StartY,StartX,EndY,EndX,1),
  29.     NEndY = EndY + Incr,
  30.     linien1(StartX,StartY,EndX,NEndY,Incr,Ende).
  31.   
  32.   test :-
  33.     cpinit,
  34.     graphics(2,1,0),
  35.     linien,
  36.     save_screen("bild.dat",Fehler1),
  37.     readchar(_),
  38.     graphics(2,1,0),
  39.     readchar(_),
  40.     load_screen("bild.dat",Fehler2),
  41.     readchar(_),
  42.     text,
  43.     write("Fehler 1 = ",Fehler1),nl,
  44.     write("Fehler 2 = ",Fehler2).
  45.     
  46. goal test.