home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / GGLOBS.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  2.6 KB  |  68 lines
  1. /***************************************************************
  2.      Turbo Prolog Toolbox
  3.      (C) Copyright 1987 Borland International.
  4. ***************************************************************/
  5.  
  6. global Predicates
  7.  
  8.   determ loadPic(fileName,integer,integer,integer,integer,integer,integer) 
  9.     - (i,i,i,i,i,i,i) language c
  10.    /* load_pic(FileName,StartRowPicFile,StartColPicFile,
  11.         StartRowScreen,StartColScreen,NoofRows,NoofCols)
  12.    Range for Rows    : 0-199
  13.    Range for Coloumns    : 0-319  */
  14.  
  15.  determ SavePic(filename) - (i) language c
  16.  
  17.  determ plot(vrow,vcol,color,size,kind) - (i,i,i,i,i) language c
  18.  /*    Range for Row    : 0-31999
  19.     Range for Col    : 0-31999
  20.     Range for Size  : 0-31999
  21.     Kind        = 0 -> One pixel
  22.              = 1 -> A dot will be drawn inside a box
  23.               = 2 -> A box will be drawn and filled
  24.              = 3 -> An X will be drawn        */
  25.  
  26.   determ box(vrow,vcol,vrow,vcol,color,color,fill) - (i,i,i,i,i,i,i) language c
  27.   /* (Row1,Col1,Row2,Col2,LineColor,FillColor,Fill)
  28.   Range for Rows    : 0-31999
  29.   Range for Columns    : 0-31999
  30.   Fill            = 0  A box will be drawn with color LineColor
  31.                    but not filled
  32.               = 1  A box will be drawn with color LineColor
  33.                    and filled with color LineColor    */
  34.  
  35.   determ ellipse(vrow,vcol,vradius,real,color,color,fill) - (i,i,i,i,i,i,i) language c
  36.   /*  (Row, Coloumn, Radius1, Ratio, FrameColor, Color, Fill )
  37.   Range for Rows    : 0-31999
  38.   Range for Columns    : 0-31999
  39.   Range for Radius      : 0-31999
  40.   Range for Ratio      : 0-1
  41.   kind            = 0  An ellipse will be drawn
  42.               = 1  An ellipse will be drawn and filled  */
  43.  
  44.   determ sector(vrow,vcol,vradius,increment,degrees,degrees,color,color,fill) 
  45.       - (i,i,i,i,i,i,i,i,i) language c
  46.   /* (Row,Col,Radius,Increment,StartAng,EndAng,FrameColor,FillColor,Fill)
  47.   Range for Rows    : 0-31999
  48.   Range for Coloumns    : 0-31999
  49.   Range for Increment      : 1-360
  50.   Range for Angles     : 0-360
  51.   Fill            = 0  No fill
  52.               = 1  Fill
  53.   */
  54.  
  55.   determ LineShade(vrow,vcol,vrow,vcol,vcol,color,kind) - (i,i,i,i,i,i,i) language c
  56.   /* (Row1,Col1,Row2,Col2,EndLine,FillColor,Kind)
  57.             (Endline: SEE NOTE BELOW)
  58.   Notice, when Endline is represented by a ROW (when shading up or down),
  59.   coercing between the domains VROW and VCOL is needed; this is done by:
  60.       ...CoerceVariable=Vrow, lineshade(........,CoerceVariable,..),
  61.   Range for Rows    : 0-31999
  62.   Range for Coloumns    : 0-31999
  63.   Range for EndLineCol    : 0-31999
  64.   Kind            = 0  Shade up to EndLine(Col)    /*Coerce to vcol*/
  65.               = 1  Shade down to EndLine(Col)    /*Coerce to vcol*/
  66.               = 2  Shade left to End(Line)Col
  67.               = 3  Shade right to End(Line)Col */
  68.