home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH14EX04.PRO < prev    next >
Encoding:
Prolog Source  |  1990-03-26  |  534 b   |  23 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. predicates
  6.    exp_window(integer)
  7.  
  8. clauses
  9.    exp_window(0) :- !.
  10.    exp_window(N) :-
  11.       makewindow(_, _, _, _, A, B, C, D),
  12.       A1 = A-1, B1 = B-2, C1 = C+2, D1 = D+4,
  13.       resizewindow(A1,B1,C1,D1),
  14.       N1 = N-1, exp_window(N1).
  15.  
  16. goal
  17.    makewindow(1, 7, 7, "TEST 1", 10, 20, 3, 10),
  18.    exp_window(9),
  19.    makewindow(2, 7, 7, "TEST 2", 12, 50, 3, 10),
  20.    exp_window(9),
  21.    makewindow(3, 7, 7, "TEST 3", 14, 16, 3, 10),
  22.    exp_window(8).
  23.