home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / td187src.lzh / MAGICTYP.D < prev    next >
Text File  |  1991-06-08  |  14KB  |  303 lines
  1. (*######################################################################
  2.                                                                         
  3.         MAGIC         Modula's  All purpose  GEM  Interface  Cadre
  4.                                                               
  5.   ######################################################################
  6.  
  7.                 Typdeklarationen nach Profibuch, Anhang C
  8.  
  9.   ######################################################################
  10.   V2.0  26.09.90  Peter Hellinger       Anpassung an neues MagicSys
  11.   V1.0  (C) by Peter Hellinger
  12.   ####################################################################*)
  13.  
  14. DEFINITION MODULE MagicTypes;
  15.  
  16. FROM SYSTEM     IMPORT  ADDRESS;
  17. FROM MagicSys   IMPORT  Nil, Null,
  18.                         Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6, Bit7,
  19.                         Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14, Bit15,
  20.                         LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL, sBITSET,
  21.                         lWORD, lINTEGER, lCARDINAL, lBITSET;
  22.  
  23.  
  24.  
  25. TYPE    BITBLK =        RECORD
  26.                          bWd:           sINTEGER;
  27.                          bHt:           sINTEGER;
  28.                          planeCt:       sINTEGER;
  29.                          fgCol:         sINTEGER;
  30.                          bgCol:         sINTEGER;
  31.                          opTab:         ARRAY [0..3] OF Byte;
  32.                          sXmin:         sINTEGER;
  33.                          sYmin:         sINTEGER;
  34.                          sForm:         ADDRESS;
  35.                          sNxwd:         sINTEGER;
  36.                          sNxln:         sINTEGER;
  37.                          sNxpl:         sINTEGER;
  38.                          dXmin:         sINTEGER;
  39.                          dYmin:         sINTEGER;
  40.                          dForm:         ADDRESS;
  41.                          dNxwd:         sINTEGER;
  42.                          dNxln:         sINTEGER;
  43.                          dNxpl:         sINTEGER;
  44.                          pAddr:         ADDRESS;
  45.                          pNxln:         sINTEGER;
  46.                          pNxpl:         sINTEGER;
  47.                          pMask:         sINTEGER;
  48.                          filler:        ARRAY [0..23] OF Byte;
  49.                         END;
  50.  
  51. TYPE    PtrFONTHDR =    POINTER TO FONTHDR;
  52.         FONTHDR =       RECORD
  53.                          fontId:        sINTEGER;
  54.                          point:         sINTEGER;
  55.                          name:          ARRAY [0..31] OF CHAR;
  56.                          firstAde:      sCARDINAL;
  57.                          lastAde:       sCARDINAL;
  58.                          top:           sCARDINAL;
  59.                          ascent:        sCARDINAL;
  60.                          half:          sCARDINAL;
  61.                          descent:       sCARDINAL;
  62.                          bottom:        sCARDINAL;
  63.                          maxCharwidth:  sCARDINAL;
  64.                          maxCellwidth:  sCARDINAL;
  65.                          leftOffset:    sCARDINAL;
  66.                          rightOffset:   sCARDINAL;
  67.                          thicken:       sCARDINAL;
  68.                          ulSize:        sCARDINAL;
  69.                          lighten:       sCARDINAL;
  70.                          skew:          sCARDINAL;
  71.                          flags:         sBITSET;
  72.                          horTable:      POINTER TO ARRAY [0..255] OF sCARDINAL;
  73.                          offTable:      POINTER TO ARRAY [0..255] OF sCARDINAL;
  74.                          datTable:      ADDRESS;
  75.                          formWidth:     sCARDINAL;
  76.                          formHeight:    sCARDINAL;
  77.                          nextFont:      PtrFONTHDR;
  78.                         END;
  79.  
  80.  
  81. TYPE    IMGHEADER =     RECORD
  82.                          imVersion:     sINTEGER;
  83.                          imHeadlength:  sINTEGER;
  84.                          imNplanes:     sINTEGER;
  85.                          imPatlen:      sINTEGER;
  86.                          imPixwidth:    sINTEGER;
  87.                          imPixheight:   sINTEGER;
  88.                          imScanwidth:   sINTEGER;
  89.                          imNlines:      sINTEGER;
  90.                         END;
  91.  
  92.  
  93. TYPE    PtrLINEA =      POINTER TO LINEA;
  94.         LINEA =         RECORD
  95.                          PLANES:        sINTEGER;
  96.                          WIDTH:         sINTEGER;
  97.                          CONTRL:        POINTER TO ARRAY [0.. 11] OF sINTEGER;
  98.                          INTIN:         POINTER TO ARRAY [0..255] OF sINTEGER;
  99.                          PTSIN:         POINTER TO ARRAY [0..255] OF sINTEGER;
  100.                          INTOUT:        POINTER TO ARRAY [0..255] OF sINTEGER;
  101.                          PTSOUT:        POINTER TO ARRAY [0..255] OF sINTEGER;
  102.                          COLBIT0:       sINTEGER;
  103.                          COLBIT1:       sINTEGER;
  104.                          COLBIT2:       sINTEGER;
  105.                          COLBIT3:       sINTEGER;
  106.                          LSTLIN:        sINTEGER;
  107.                          LNMASK:        sBITSET;
  108.                          WMODE:         sINTEGER;
  109.                          X1:            sINTEGER;
  110.                          Y1:            sINTEGER;
  111.                          X2:            sINTEGER;
  112.                          Y2:            sINTEGER;
  113.                          PATPTR:        ADDRESS;
  114.                          PATMSK:        sBITSET;
  115.                          MFILL:         sINTEGER;
  116.                          CLIP:          sINTEGER;
  117.                          XMINCL:        sINTEGER;
  118.                          YMINCL:        sINTEGER;
  119.                          XMAXCL:        sINTEGER;
  120.                          YMAXCL:        sINTEGER;
  121.                          XDDA:          sINTEGER;
  122.                          DDAINC:        sINTEGER;
  123.                          SCALDIR:       sINTEGER;
  124.                          MONO:          sINTEGER;
  125.                          SOURCEX:       sINTEGER;
  126.                          SOURCEY:       sINTEGER;
  127.                          DESTX:         sINTEGER;
  128.                          DESTY:         sINTEGER;
  129.                          DELX:          sINTEGER;
  130.                          DELY:          sINTEGER;
  131.                          FBASE:         PtrFONTHDR;
  132.                          FWIDTH:        sINTEGER;
  133.                          STYLE:         sBITSET;
  134.                          LITEMASK:      sBITSET;
  135.                          SKEWMASK:      sBITSET;
  136.                          WEIGHT:        sINTEGER;
  137.                          ROFF:          sINTEGER;
  138.                          LOFF:          sINTEGER;
  139.                          SCALE:         sINTEGER;
  140.                          CHUP:          sINTEGER;
  141.                          TEXTFG:        sINTEGER;
  142.                          SCRTCHP:       ADDRESS;
  143.                          SCRTP2:        sINTEGER;
  144.                          TEXTBG:        sINTEGER;
  145.                          COPYTRAN:      sINTEGER;
  146.                          SEEDABORT:     ADDRESS;
  147.                         END;
  148.  
  149. TYPE    PtrLINEAFonts = POINTER TO ARRAY [0..2] OF PtrFONTHDR; 
  150.  
  151.  
  152.  
  153. TYPE    METAHDR =       RECORD
  154.                          mfHeader:      sINTEGER;
  155.                          mfHlenght:     sINTEGER;
  156.                          mfVersion:     sINTEGER;
  157.                          mfNdcrcfl:     sINTEGER;
  158.                          mfExtents:     ARRAY [0..3] OF sINTEGER;
  159.                          mfPagesz:      ARRAY [0..1] OF sINTEGER;
  160.                          mfCoords:      ARRAY [0..3] OF sINTEGER;
  161.                          mfImgflag:     sINTEGER;
  162.                          mfResvd:       ARRAY [0..8] OF sINTEGER;
  163.                         END;
  164.  
  165.  
  166. TYPE    MFORM =         RECORD
  167.                          mfXhot:        sINTEGER;
  168.                          mfYhot:        sINTEGER;
  169.                          mfNplanes:     sINTEGER;
  170.                          mfFg:          sINTEGER;
  171.                          mfBg:          sINTEGER;
  172.                          mfMask:        ARRAY [0..15] OF sCARDINAL;
  173.                          mfData:        ARRAY [0..15] OF sCARDINAL;
  174.                         END;
  175.  
  176.  
  177. TYPE    RSHDR =         RECORD
  178.                          rshVrsn:       sCARDINAL;
  179.                          rshObject:     sCARDINAL;
  180.                          rshTedinfo:    sCARDINAL;
  181.                          rshIconblk:    sCARDINAL;
  182.                          rshBitblk:     sCARDINAL;
  183.                          rshFrstr:      sCARDINAL;
  184.                          rshString:     sCARDINAL;
  185.                          rshImdata:     sCARDINAL;
  186.                          rshFrimg:      sCARDINAL;
  187.                          rshTrindex:    sCARDINAL;
  188.                          rshNobs:       sCARDINAL;
  189.                          rshNtree:      sCARDINAL;
  190.                          rshNted:       sCARDINAL;
  191.                          rshNib:        sCARDINAL;
  192.                          rshNbb:        sCARDINAL;
  193.                          rshNstring:    sCARDINAL;
  194.                          rshNimages:    sCARDINAL;
  195.                          rshRssize:     sCARDINAL;
  196.                         END;
  197.  
  198.  
  199. TYPE    SDB =           RECORD
  200.                          xhot:          sINTEGER;
  201.                          yhot:          sINTEGER;
  202.                          form:          sINTEGER;
  203.                          bgcol:         sINTEGER;
  204.                          fgcol:         sINTEGER;
  205.                          image:         ARRAY [0..31] OF sINTEGER;
  206.                         END;
  207.  
  208.  
  209. TYPE    PtrSYSHDR =     POINTER TO SYSHDR;
  210.         SYSHDR =        RECORD
  211.                          osEntry:       sCARDINAL;
  212.                          osVersion:     sCARDINAL;
  213.                          osStart:       ADDRESS;
  214.                          osBase:        ADDRESS;
  215.                          osMembot:      ADDRESS;
  216.                          osShell:       ADDRESS;
  217.                          osMagic:       ADDRESS;
  218.                          osGendat:      lCARDINAL;
  219.                          osPalmode:     sCARDINAL;
  220.                          osGendatg:     sCARDINAL;
  221.                          osCountry:     lCARDINAL;
  222.                          root:          ADDRESS;
  223.                          kbshift:       ADDRESS;
  224.                          run:           ADDRESS;
  225.                         END;
  226.  
  227.  
  228. TYPE    PtrVDIESC =     POINTER TO VDIESC;
  229.         VDIESC =        RECORD
  230.                          RESERVED6:     lCARDINAL;
  231.                          CURFONT:       POINTER TO FONTHDR;
  232.                          RESERVED5:     ARRAY [0..21] OF sINTEGER;
  233.                          MPOSHX:        sINTEGER;
  234.                          MPOSHY:        sINTEGER;
  235.                          MPLANES:       sINTEGER;
  236.                          MCDBBG:        sINTEGER;
  237.                          MCDBFG:        sINTEGER;
  238.                          MASKFORM:      ARRAY [0..63] OF sINTEGER;
  239.                          INQTAB:        ARRAY [0..44] OF sINTEGER;
  240.                          DEVTAB:        ARRAY [0..44] OF sINTEGER;
  241.                          GCURX:         sINTEGER;
  242.                          GCURY:         sINTEGER;
  243.                          MHIDCT:        sINTEGER;
  244.                          MOUSEBT:       sINTEGER;
  245.                          REQCOL:        ARRAY [0..47] OF sINTEGER;
  246.                          SIZTAB:        ARRAY [0..14] OF sINTEGER;
  247.                          RESERVED4:     ARRAY [0..1] OF sINTEGER;
  248.                          CURWORK:       ADDRESS;
  249.                          DEFFONT:       POINTER TO FONTHDR;
  250.                          FONTRING:      ARRAY [0..3] OF ADDRESS;
  251.                          FONTCOUNT:     sINTEGER;
  252.                          RESERVED3:     ARRAY [0..44] OF sINTEGER;
  253.                          CURMSSTAT:     SET OF [0..7];
  254.                          RESERVED2:     Byte;
  255.                          VHIDCNT:       sINTEGER;
  256.                          CURX:          sINTEGER;
  257.                          CURY:          sINTEGER;
  258.                          CURFLAG:       Byte;
  259.                          MOUSEFLAG:     Byte;
  260.                          RESERVED1:     lCARDINAL;
  261.                          VSAVXY:        ARRAY [0..1] OF sINTEGER;
  262.                          SAVELEN:       sINTEGER;
  263.                          SAVEADDR:      ADDRESS;
  264.                          SAVESTAT:      sBITSET;
  265.                          SAVEAREA:      ARRAY [0..63] OF lCARDINAL;
  266.                          USERTIM:       ADDRESS;
  267.                          NEXTTIM:       ADDRESS;
  268.                          USERBUT:       ADDRESS;
  269.                          USERCUR:       ADDRESS;
  270.                          USERMOT:       ADDRESS;
  271.                          VCELHT:        sINTEGER;
  272.                          VCELMX:        sINTEGER;
  273.                          VCELMY:        sINTEGER;
  274.                          VCELWR:        sINTEGER;
  275.                          VCOLBG:        sINTEGER;
  276.                          VCOLFG:        sINTEGER;
  277.                          VCURAD:        ADDRESS;
  278.                          VCUROF:        sINTEGER;
  279.                          VCURXY:        ARRAY [0..1] OF sINTEGER;
  280.                          VPERIOD:       sINTEGER;
  281.                          VCURCT:        sINTEGER;
  282.                          VFNTAD:        ADDRESS;
  283.                          VFNTND:        sINTEGER;
  284.                          VFNTST:        sINTEGER;
  285.                          VFNTWD:        sINTEGER;
  286.                          VREZHZ:        sINTEGER;
  287.                          VOFFHD:        sINTEGER;
  288.                          RESERVED:      sINTEGER;
  289.                          VREZVT:        sINTEGER;
  290.                          BYTESLIN:      sINTEGER;
  291.                         END;
  292.  
  293.  
  294. PROCEDURE LineA (): PtrLINEA;
  295.  
  296. PROCEDURE LineAFonts (): PtrLINEAFonts;
  297.  
  298. PROCEDURE Vdiesc (): PtrVDIESC;
  299.  
  300. PROCEDURE Syshdr (): PtrSYSHDR;
  301.  
  302. END MagicTypes.
  303.