# IMD global definitions. define MAX_CHARSIZES 10 # max discreet device char sizes define SZ_SBUF 1024 # initial string buffer size define SZ_GDEVICE 31 # maxsize forced device name define DEF_MAXFRAMES 16 # maximum frames/metafile # The IMD state/device descriptor. define LEN_IMD 81 define IMD_SBUF Memi[$1] # string buffer define IMD_SZSBUF Memi[$1+1] # size of string buffer define IMD_NEXTCH Memi[$1+2] # next char pos in string buf define IMD_NCHARSIZES Memi[$1+3] # number of character sizes define IMD_POLYLINE Memi[$1+4] # device supports polyline define IMD_POLYMARKER Memi[$1+5] # device supports polymarker define IMD_FILLAREA Memi[$1+6] # device supports fillarea define IMD_CELLARRAY Memi[$1+7] # device supports cell array define IMD_XRES Memi[$1+8] # device resolution in X define IMD_YRES Memi[$1+9] # device resolution in Y define IMD_ZRES Memi[$1+10] # device resolution in Z define IMD_FILLSTYLE Memi[$1+11] # number of fill styles define IMD_ROAM Memi[$1+12] # device supports roam define IMD_ZOOM Memi[$1+13] # device supports zoom define IMD_SELERASE Memi[$1+14] # device has selective erase define IMD_PIXREP Memi[$1+15] # device supports pixel replic. define IMD_STARTFRAME Memi[$1+16] # frame advance at metafile BOF define IMD_ENDFRAME Memi[$1+17] # frame advance at metafile EOF # extra space define IMD_CURSOR Memi[$1+20] # last cursor accessed define IMD_COLOR Memi[$1+21] # last color set define IMD_TXSIZE Memi[$1+22] # last text size set define IMD_TXFONT Memi[$1+23] # last text font set define IMD_TYPE Memi[$1+24] # last line type set define IMD_WIDTH Memi[$1+25] # last line width set define IMD_DEVNAME Memi[$1+26] # name of open device define IMD_FRAME Memi[$1+27] # frame buffer number # extra space define IMD_CHARHEIGHT Memi[$1+30+$2-1] # character height define IMD_CHARWIDTH Memi[$1+40+$2-1] # character width define IMD_CHARSIZE Memr[P2R($1+50+$2-1)] # text sizes permitted define IMD_PLAP ($1+60) # polyline attributes define IMD_PMAP ($1+64) # polymarker attributes define IMD_FAAP ($1+68) # fill area attributes define IMD_TXAP ($1+71) # default text attributes # Substructure definitions. define LEN_PL 4 define PL_STATE Memi[$1] # polyline attributes define PL_LTYPE Memi[$1+1] define PL_WIDTH Memi[$1+2] define PL_COLOR Memi[$1+3] define LEN_PM 4 define PM_STATE Memi[$1] # polymarker attributes define PM_LTYPE Memi[$1+1] define PM_WIDTH Memi[$1+2] define PM_COLOR Memi[$1+3] define LEN_FA 3 # fill area attributes define FA_STATE Memi[$1] define FA_STYLE Memi[$1+1] define FA_COLOR Memi[$1+2] define LEN_TX 10 # text attributes define TX_STATE Memi[$1] define TX_UP Memi[$1+1] define TX_SIZE Memi[$1+2] define TX_PATH Memi[$1+3] define TX_SPACING Memr[P2R($1+4)] define TX_HJUSTIFY Memi[$1+5] define TX_VJUSTIFY Memi[$1+6] define TX_FONT Memi[$1+7] define TX_QUALITY Memi[$1+8] define TX_COLOR Memi[$1+9]