home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / cbm / nduk-v40.lha / V40 / include / devices / printer.i < prev    next >
Encoding:
Text File  |  1993-10-15  |  8.0 KB  |  216 lines
  1.    IFND  DEVICES_PRINTER_I
  2. DEVICES_PRINTER_I EQU    1
  3. **
  4. **    $VER: printer.i 1.7 (26.7.90)
  5. **    Includes Release 40.15
  6. **
  7. **    printer.device structure definitions
  8. **
  9. **    (C) Copyright 1987-1993 Commodore-Amiga, Inc.
  10. **        All Rights Reserved
  11. **
  12.  
  13.    IFND  EXEC_TYPES_I
  14.    INCLUDE  "exec/types.i"
  15.    ENDC
  16.  
  17.    IFND  EXEC_NODES_I
  18.    INCLUDE  "exec/nodes.i"
  19.    ENDC
  20.  
  21.    IFND  EXEC_LISTS_I
  22.    INCLUDE  "exec/lists.i"
  23.    ENDC
  24.  
  25.    IFND  EXEC_PORTS_I
  26.    INCLUDE  "exec/ports.i"
  27.    ENDC
  28.  
  29.    IFND  EXEC_IO_I
  30.    INCLUDE  "exec/io.i"
  31.    ENDC
  32.  
  33.    DEVINIT
  34.  
  35.    DEVCMD   PRD_RAWWRITE
  36.    DEVCMD   PRD_PRTCOMMAND
  37.    DEVCMD   PRD_DUMPRPORT
  38.    DEVCMD   PRD_QUERY
  39.  
  40. ;****** printer definitions
  41. aRIS     EQU    0 ; ESCc  reset              ISO
  42. aRIN     EQU    1 ; ESC#1 initialize              +++
  43. aIND     EQU    2 ; ESCD  lf                  ISO
  44. aNEL     EQU    3 ; ESCE  return,lf              ISO
  45. aRI     EQU    4 ; ESCM  reverse lf              ISO
  46.  
  47. aSGR0     EQU    5 ; ESC[0m normal char set          ISO
  48. aSGR3     EQU    6 ; ESC[3m italics on              ISO
  49. aSGR23     EQU    7 ; ESC[23m italics off          ISO
  50. aSGR4     EQU    8 ; ESC[4m underline on          ISO
  51. aSGR24     EQU    9 ; ESC[24m underline off          ISO
  52. aSGR1     EQU   10 ; ESC[1m boldface on              ISO
  53. aSGR22     EQU   11 ; ESC[22m boldface off          ISO
  54. aSFC     EQU   12 ; SGR30-39  set foreground color    ISO
  55. aSBC     EQU   13 ; SGR40-49  set background color    ISO
  56.  
  57. aSHORP0  EQU   14 ; ESC[0w normal pitch          DEC
  58. aSHORP2  EQU   15 ; ESC[2w elite on              DEC
  59. aSHORP1  EQU   16 ; ESC[1w elite off              DEC
  60. aSHORP4  EQU   17 ; ESC[4w condensed fine on          DEC
  61. aSHORP3  EQU   18 ; ESC[3w condensed off          DEC
  62. aSHORP6  EQU   19 ; ESC[6w enlarged on              DEC
  63. aSHORP5  EQU   20 ; ESC[5w enlarged off          DEC
  64.  
  65. aDEN6     EQU   21 ; ESC[6"z shadow print on           DEC (sort of)
  66. aDEN5    EQU   22 ; ESC[5"z shadow print off          DEC
  67. aDEN4     EQU   23 ; ESC[4"z doublestrike on           DEC
  68. aDEN3    EQU   24 ; ESC[3"z doublestrike off          DEC
  69. aDEN2     EQU   25 ; ESC[2"z  NLQ on                   DEC
  70. aDEN1    EQU   26 ; ESC[1"z  NLQ off              DEC
  71.  
  72. aSUS2     EQU   27 ; ESC[2v superscript on          +++
  73. aSUS1     EQU   28 ; ESC[1v superscript off          +++
  74. aSUS4     EQU   29 ; ESC[4v subscript on          +++
  75. aSUS3     EQU   30 ; ESC[3v subscript off          +++
  76. aSUS0     EQU   31 ; ESC[0v normalize the line          +++
  77. aPLU     EQU   32 ; ESCL  partial line up          ISO
  78. aPLD     EQU   33 ; ESCK  partial line down          ISO
  79.  
  80. aFNT0     EQU   34 ; ESC(B US char set         or Typeface  0 (default)
  81. aFNT1     EQU   35 ; ESC(R French char set    or Typeface  1
  82. aFNT2     EQU   36 ; ESC(K German char set    or Typeface  2
  83. aFNT3     EQU   37 ; ESC(A UK char set         or Typeface  3
  84. aFNT4     EQU   38 ; ESC(E Danish I char set  or Typeface  4
  85. aFNT5     EQU   39 ; ESC(H Sweden char set    or Typeface  5
  86. aFNT6     EQU   40 ; ESC(Y Italian char set   or Typeface  6
  87. aFNT7     EQU   41 ; ESC(Z Spanish char set   or Typeface  7
  88. aFNT8     EQU   42 ; ESC(J Japanese char set  or Typeface  8
  89. aFNT9     EQU   43 ; ESC(6 Norweign char set  or Typeface  9
  90. aFNT10     EQU   44 ; ESC(C Danish II char set or Typeface 10
  91.  
  92. ;    Suggested typefaces are:
  93. ;
  94. ;     0 - default typeface.
  95. ;     1 - Line Printer or equiv.
  96. ;     2 - Pica or equiv.
  97. ;     3 - Elite or equiv.
  98. ;     4 - Helvetica or equiv.
  99. ;     5 - Times Roman or equiv.
  100. ;     6 - Gothic or equiv.
  101. ;     7 - Script or equiv.
  102. ;     8 - Prestige or equiv.
  103. ;     9 - Caslon or equiv.
  104. ;    10 - Orator or equiv.
  105. ;
  106.  
  107. aPROP2     EQU   45 ; ESC[2p  proportional on          +++
  108. aPROP1     EQU   46 ; ESC[1p  proportional off          +++
  109. aPROP0     EQU   47 ; ESC[0p  proportional clear          +++
  110. aTSS     EQU   48 ; ESC[n E set proportional offset   ISO
  111. aJFY5     EQU   49 ; ESC[5 F auto left justify          ISO
  112. aJFY7     EQU   50 ; ESC[7 F auto right justiy          ISO
  113. aJFY6     EQU   51 ; ESC[6 F auto full justify          ISO
  114. aJFY0     EQU   52 ; ESC[0 F auto justify off          ISO
  115. aJFY2     EQU   53 ; ESC[2 F  word space(auto center)  ISO (special)
  116. aJFY3     EQU   54 ; ESC[3 F letter space (justify)    ISO (special)
  117.  
  118. aVERP0     EQU   55 ; ESC[0z  1/8" line spacing         +++
  119. aVERP1   EQU   56 ; ESC[1z  1/6" line spacing          +++
  120. aSLPP     EQU   57 ; ESC[nt  set form length n          DEC
  121. aPERF     EQU   58 ; ESC[nq  perf skip n (n>0)          +++
  122. aPERF0     EQU   59 ; ESC[0q  perf skip off          +++
  123.  
  124. aLMS     EQU   60 ; ESC#9  Left margin set          +++
  125. aRMS     EQU   61 ; ESC#0  Right margin set          +++
  126. aTMS     EQU   62 ; ESC#8  Top margin set          +++
  127. aBMS     EQU   63 ; ESC#2  Bottom marg set          +++
  128. aSTBM     EQU   64 ; ESC[Pn1;Pn2r  T&B margins          DEC
  129. aSLRM     EQU   65 ; ESC[Pn1;Pn2s  L&R margin          DEC
  130. aCAM     EQU   66 ; ESC#3  Clear margins          +++
  131.  
  132. aHTS     EQU   67 ; ESCH    Set horiz tab          ISO
  133. aVTS     EQU   68 ; ESCJ    Set vertical tabs          ISO
  134. aTBC0     EQU   69 ; ESC[0g  Clr horiz tab          ISO
  135. aTBC3     EQU   70 ; ESC[3g  Clear all h tab          ISO
  136. aTBC1     EQU   71 ; ESC[1g  Clr vertical tabs          ISO
  137. aTBC4     EQU   72 ; ESC[4g  Clr all v tabs          ISO
  138. aTBCALL  EQU   73 ; ESC#4   Clr all h & v tabs          +++
  139. aTBSALL  EQU   74 ; ESC#5   Set default tabs          +++
  140. aEXTEND  EQU   75 ; ESC[Pn"x extended commands        +++ 
  141.  
  142. aRAW     EQU   76 ; ESC[Pn"r Next 'Pn' chars are raw  +++
  143.  
  144.  
  145.  STRUCTURE IOPrtCmdReq,IO_SIZE
  146.     UWORD   io_PrtCommand  ; printer command
  147.     UBYTE   io_Parm0    ; first command parameter
  148.     UBYTE   io_Parm1    ; second command parameter
  149.     UBYTE   io_Parm2    ; third command parameter
  150.     UBYTE   io_Parm3    ; fourth command parameter
  151.     LABEL   iopcr_SIZEOF
  152.  
  153.  STRUCTURE  IODRPReq,IO_SIZE
  154.     APTR    io_RastPort    ; raster port
  155.     APTR    io_ColorMap    ; color map
  156.     ULONG   io_Modes       ; graphics viewport modes
  157.     UWORD   io_SrcX       ; source x origin
  158.     UWORD   io_SrcY       ; source y origin
  159.     UWORD   io_SrcWidth    ; source x width
  160.     UWORD   io_SrcHeight   ; source x height
  161.     LONG    io_DestCols    ; destination x width
  162.     LONG    io_DestRows    ; destination y height
  163.     UWORD   io_Special       ; option flags
  164.     LABEL   iodrpr_SIZEOF
  165.  
  166. SPECIAL_MILCOLS        EQU    $0001    ; DestCols specified in 1/1000"
  167. SPECIAL_MILROWS        EQU    $0002    ; DestRows specified in 1/1000"
  168. SPECIAL_FULLCOLS    EQU    $0004    ; make DestCols maximum possible
  169. SPECIAL_FULLROWS    EQU    $0008    ; make DestRows maximum possible
  170. SPECIAL_FRACCOLS    EQU    $0010    ; DestCols is fraction of FULLCOLS
  171. SPECIAL_FRACROWS    EQU    $0020    ; DestRows is fraction of FULLROWS
  172. SPECIAL_CENTER        EQU    $0040    ; center image on paper
  173. SPECIAL_ASPECT        EQU    $0080    ; ensure correct aspect ratio
  174. SPECIAL_DENSITY1    EQU    $0100    ; lowest resolution (dpi)
  175. SPECIAL_DENSITY2    EQU    $0200    ; next res
  176. SPECIAL_DENSITY3    EQU    $0300    ; next res
  177. SPECIAL_DENSITY4    EQU    $0400    ; next res
  178. SPECIAL_DENSITY5    EQU    $0500    ; next res
  179. SPECIAL_DENSITY6    EQU    $0600    ; next res
  180. SPECIAL_DENSITY7    EQU    $0700    ; highest res
  181. SPECIAL_NOFORMFEED    EQU    $0800    ; don't eject paper after gfx prints
  182. SPECIAL_TRUSTME        EQU    $1000    ; don't reset on gfx prints
  183. ;
  184. ;    Compute print size, set 'io_DestCols' and 'io_DestRows' in the calling
  185. ;    program's 'IODRPReq' structure and exit, don't print.  This allows the
  186. ;    calling program to see what the final print size would be in printer
  187. ;    pixels.  Note that it modifies the 'io_DestCols' and 'io_DestRows'
  188. ;    fields of your 'IODRPReq' structure.  Also, set the print density and
  189. ;    update the 'MaxXDots', 'MaxYDots', 'XDotsInch', and 'YDotsInch' fields
  190. ;    of the 'PrinterExtendedData' structure.
  191. ;
  192. SPECIAL_NOPRINT        EQU    $2000    ; see above
  193.  
  194. PDERR_NOERR        EQU    0    ; clean exit, no errors
  195. PDERR_CANCEL        EQU    1    ; user cancelled print
  196. PDERR_NOTGRAPHICS    EQU    2    ; printer cannot output graphics
  197. PDERR_INVERTHAM        EQU    3    ; OBSOLETE
  198. PDERR_BADDIMENSION    EQU    4    ; print dimensions illegal
  199. PDERR_DIMENSIONOVFLOW    EQU    5    ; OBSOLETE
  200. PDERR_INTERNALMEMORY    EQU    6    ; no memory for internal variables
  201. PDERR_BUFFERMEMORY    EQU    7    ; no memory for print buffer
  202. ;
  203. ;    Note : this is an internal error that can be returned from the render
  204. ;    function to the printer device.  It is NEVER returned to the user.
  205. ;    If the printer device sees this error it converts it 'PDERR_NOERR'
  206. ;    and exits gracefully.  Refer to the document on
  207. ;    'How to Write a Graphics Printer Driver' for more info.
  208. ;
  209. PDERR_TOOKCONTROL    EQU    8    ; I took control in case 0 of render
  210.  
  211. ; internal use
  212. SPECIAL_DENSITYMASK    EQU $0700    ;  masks out density values
  213. SPECIAL_DIMENSIONSMASK    EQU SPECIAL_MILCOLS!SPECIAL_MILROWS!SPECIAL_FULLCOLS!SPECIAL_FULLROWS!SPECIAL_FRACCOLS!SPECIAL_FRACROWS!SPECIAL_ASPECT
  214.  
  215.    ENDC
  216.