home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / spx10.zip / SPX_INT.ZIP / SPX_GEO.INT < prev    next >
Text File  |  1993-05-04  |  1KB  |  33 lines
  1. Unit SPX_GEO;
  2.  
  3. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  4.  
  5. Interface
  6.  
  7. Uses SPX_VGA,SPX_FNC;
  8.  
  9. type
  10.   Pmorph = ^Tmorph;
  11.   Tmorph = object
  12.              gofsx,gofsy,ts,
  13.              gv_width,gv_height : byte;
  14.              gmx,gmy,gsx,gsy,
  15.              hvx,hvy,
  16.              smapx,smapy        : integer;
  17.              constructor init(geomx,geomy,gvw,gvh,scrx,scry:integer);
  18.              destructor done; virtual;
  19.              function geomap(x,y:integer):integer;virtual;
  20.              procedure drawmap(vx,vy:integer);virtual;
  21.              procedure drawmap_wd(vx,vy:integer);virtual;
  22.              procedure drawmap_n16(vx,vy:integer);virtual;
  23.              procedure placegeo_wd(nd:word;geonum:integer);virtual;
  24.              procedure nogogeo_wd(nd:word);virtual;
  25.              procedure placegeo(x,y,geonum:integer);virtual;
  26.              procedure nogogeo(x,y:integer);virtual;
  27.              procedure pre_map; virtual;
  28.              procedure post_map; virtual;
  29.            end;
  30.  
  31. function loadGMP(f:string;var piclist,map):integer;
  32.  
  33.