home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / giochi / behemot / library / prolog / array.pro next >
Encoding:
Text File  |  1996-08-20  |  186 b   |  8 lines
  1.  
  2. dline(ObjBase,Dist,0) :- !.
  3. dline(ObjBase,Dist,NDuplic) :- rt_duplicate(ObjBase,X),
  4.             RDuplic is NDuplic - 1,
  5.             rt_translate(X,NDist,0,0),
  6.             dline(ObjBase,Dist,RDuplic).
  7.                 
  8.