home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 377a.lha / libraries / graphics / text / suits8.asm < prev    next >
Encoding:
Assembly Source File  |  1980-02-04  |  10.0 KB  |  222 lines
  1. * A sparse (but complete) sample font.
  2. *
  3. * Copyright (c) 1990 Commodore-Amiga, Inc.
  4. *
  5. * This example is provided in electronic form by Commodore-Amiga, Inc. for
  6. * use with the 1.3 revisions of the Addison-Wesley Amiga reference manuals. 
  7. * The 1.3 Addison-Wesley Amiga Reference Manual series contains additional
  8. * information on the correct usage of the techniques and operating system
  9. * functions presented in this example.  The source and executable code of
  10. * this example may only be distributed in free electronic form, via bulletin
  11. * board or as part of a fully non-commercial and freely redistributable
  12. * diskette.  Both the source and executable code (including comments) must
  13. * be included, without modification, in any copy.  This example may not be
  14. * published in printed form or distributed with any commercial product.
  15. * However, the programming techniques and support routines set forth in
  16. * this example may be used in the development of original executable
  17. * software products for Commodore Amiga computers.
  18. * All other rights reserved.
  19. * This example is provided "as-is" and is subject to change; no warranties
  20. * are made.  All use is at your own risk.  No liability or responsibility
  21. * is assumed.
  22. *
  23. * To use this font, do the following:
  24. *
  25. * 1.  Assemble this file (assumed to have been saved as "suits8.asm").
  26. *     For example, if you have the CAPE 680x0 assembler, and you have
  27. *     assigned "include:" to the directory containing your include files,
  28. *     use:
  29. *        CAsm -a "suits8.asm" -o "suits8.o" -i "include:"
  30. *
  31. *     Link "suits8.o".  For example, if you have Lattice, use:
  32. *        BLink from "suits8.o" to "suits8"
  33. *
  34. * 2.  Create the subdirectory "Fonts:suits".
  35. *     Copy the file "suits8" (created in step 1.) to "Fonts:suits/8".
  36. *
  37. * 3.  Create a font contents file for the font.  You can do this
  38. *     by three methods:
  39. *   a. Run the program "Workbench1.3:System/FixFonts" which
  40. *      will create the file "Fonts:suits.font" automatically.
  41. *   b. Use the NewFontContents() call in the diskfont library to
  42. *      create a FontContentsHeader structure, which can be saved
  43. *      in the Fonts: directory as "suits.font".   This is essentially
  44. *      what FixFonts does.
  45. *   c. Create the file manually by following these directions:
  46. *
  47. * Create a file in the Fonts: directory named "suits.font" the
  48. * contents of which are as follows:
  49. * 
  50. * The first word (two bytes) must contain the font header identifier, FCH_ID
  51. * FCH_ID is defined in "libraries/diskfont.i" and is currently 0x0f00.
  52. *
  53. * The next word contains the number of FontContents entries.  There will
  54. * be only one font descriptor file in this sample font's directory, so the
  55. * value 0x0001 should be used.
  56. *
  57. * Follow this information with the hex values for the string "suits/8";
  58. * the path AmigaDOS should follow to reach this font size.  The path is
  59. * relative to "Fonts:"; "suits" is the directory in which AmigaDOS will find
  60. * this font's font descriptor files and "8" is a font descriptor file.
  61. * This should be followed by enough null characters (0x00) to pad the
  62. * pathname to MAXFONTPATH bytes in length.  MAXFONTPATH is defined in
  63. * "libraries/diskfont.i" and is currently 256 bytes.  The string in this
  64. * example is 7 bytes long, therefore 249 bytes of padding are needed.
  65. * Note that the font pathname must have at least one null character after
  66. * it, making the maximum pathname length MAXFONTPATH-1.
  67. *
  68. * The next word contains the font YSize; in this case, 0x0008.  
  69. *
  70. * The next byte contains the font Flags, in this case 0x00.
  71. *
  72. * The last byte contains the font characteristics, in this case 0x60.
  73. * This says it is a disk-based font (bit 1 set) and the font has been
  74. * removed (bit 7 set), saying that the font is not currently resident.
  75. *
  76. * Summary of suits.font file:
  77. *
  78. * Name: fch_FileID fch_NumEntries fc_FileName     fc_YSize fc_Flags fc_Style
  79. * Size: word       word         MAXFONTPATH bytes word     byte     byte
  80. * Hex:  0f00       0001         73756974732F3800  0008     00       60
  81. * ASCII:                        s u i t s / 8 \0
  82. *
  83. * The correct length of a font file may be calculated with this formula:
  84. * length := ((number of font contents entries) * (MAXFONTPATH+4)) + 4.
  85. * In this case (one entry), this becomes (MAXFONTPATH + 8) or 264.
  86. *
  87. * To try out this example font, do the following.
  88. * Start up the Notepad program or any other program which allows the
  89. * user to select fonts.  Choose the "suits" font in size 8 and type "abcd".
  90. * This example font defines ASCII characters 'a' 'b' 'c' and 'd' only.
  91. * All other characters map to a rectangle, meaning "character unknown".
  92.  
  93.         INCLUDE        "exec/types.i"
  94.         INCLUDE        "exec/nodes.i"
  95.         INCLUDE        "libraries/diskfont.i"
  96.  
  97. * Provide an easy exit in case this file is "Run" instead of merely loaded.
  98.  
  99.         MOVEQ        #-1,D0
  100.         RTS
  101.  
  102. * The following five entries comprise a Node structure, used by the system
  103. * to link disk fonts into a list.  See the definition of the "DiskFontHeader"
  104. * structure in the "libraries/diskfont.i" include file for more information.
  105.  
  106.         DC.L        0               ; ln_Succ
  107.         DC.L        0               ; ln_Pred
  108.         DC.B        NT_FONT         ; ln_Type
  109.         DC.B        0               ; ln_Pri
  110.         DC.L        fontName        ; ln_Name
  111.  
  112.         DC.W        DFH_ID          ; FileID
  113.         DC.W        1               ; Revision
  114.         DC.L        0               ; Segment
  115.  
  116. * The next MAXFONTNAME bytes are a placeholder.  The name of the
  117. * font contents file (e.g. "suits.font") will be copied here after this
  118. * font descriptor is LoadSeg-ed into memory.  The Name field could have
  119. * been left blank, but inserting the font name and size (or style) allows
  120. * one to tell something about the font by using "Type OPT H" on the file.
  121.  
  122. fontName:
  123.         DC.B        "suits8"        ; Name
  124.  
  125. * If your assembler needs an absolute value in place of the "length"
  126. * variable, simply count the number of characters in Name and use that.
  127.  
  128. length  EQU         *-fontName      ; Assembler calculates Name's length.
  129.         DCB.B       MAXFONTNAME-length,0 ; Padding of null characters.
  130.  
  131. * The rest of the information is a TextFont structure.
  132. * See the "graphics/text.i" include file for more information.
  133.  
  134. font:
  135.         DC.L        0               ; ln_Succ
  136.         DC.L        0               ; ln_Pred
  137.         DC.B        NT_FONT         ; ln_Type
  138.         DC.B        0               ; ln_Pri
  139.         DC.L        fontName        ; ln_Name
  140.         DC.L        0               ; mn_ReplyPort
  141.         DC.W        0               ; (Reserved for 1.4 system use.)
  142.         DC.W        8               ; tf_YSize
  143.         DC.B        0               ; tf_Style
  144.         DC.B        FPF_DESIGNED!FPF_PROPORTIONAL!FPF_DISKFONT ; tf_Flags
  145.         DC.W        14              ; tf_XSize
  146.         DC.W        6               ; tf_Baseline
  147.  
  148. * tf_Baseline must be no greater than tf_YSize-1, otherwise algorithmically-
  149. * generated styles (italic in particular) can corrupt system memory. 
  150.  
  151.         DC.W        1               ; tf_BoldSmear
  152.         DC.W        0               ; tf_Accessors
  153.         DC.B        97              ; tf_LoChar
  154.         DC.B        100             ; tf_HiChar
  155.         DC.L        fontData        ; tf_CharData
  156.         DC.W        8               ; tf_Modulo, no. of bytes to add to the
  157.                                     ; data pointer to go from one row of
  158.                                     ; a character to the next row of it.
  159.         DC.L        fontLoc         ; tf_CharLoc, bit position in the font
  160.                                     ; data at which the character begins.
  161.         DC.L        fontSpace       ; tf_CharSpace
  162.         DC.L        fontKern        ; tf_CharKern
  163.  
  164. * The four characters of this font define the four playing-card suit symbols.
  165. * The heart, club, diamond, and spade map to the lower-case ASCII characters
  166. * 'a', 'b', 'c', and 'd' respectively.  The fifth entry in the table is the
  167. * character to be output when there is no entry defined in the character set
  168. * for the requested ASCII value.
  169. *
  170. *
  171. *   97 (a)       98 (b)       99 (c)   100 (d)      255
  172. * <            X            X        X            X            >
  173. *  .@@@...@@@.  .....@.....  ...@...  ....@@@....  @@@@@@@@@@@@
  174. *  @@@@@.@@@@@  ...@@@@@...  ..@@@..  ...@@@@@...  @@........@@
  175. *  .@@@@@@@@@.  .@@@@@@@@@.  .@@@@@.  .@@..@..@@.  @@........@@
  176. *  ..@@@@@@@..  @@@@@@@@@@@  @@@@@@@  @@@@@@@@@@@  @@........@@
  177. *  ...@@@@@...  .@@@.@.@@@.  .@@@@@.  .@@..@..@@.  @@........@@
  178. *  ....@@@....  .....@.....  ..@@@..  .....@.....  @@........@@
  179. *  .....@.....  ...@@@@@...  ...@...  ...@@@@@...  @@@@@@@@@@@@
  180. *  ...........  ...........  .......  ...........  ............
  181.  
  182. * Font data is bit-packed edge to edge to save space.
  183.  
  184. fontData:
  185.         DC.W        $071C0,$08040,$070FF,$0F000
  186.         DC.W        $0FBE3,$0E0E0,$0F8C0,$03000
  187.         DC.W        $07FCF,$0F9F3,$026C0,$03000
  188.         DC.W        $03F9F,$0FFFF,$0FFC0,$03000
  189.         DC.W        $01F0E,$0B9F3,$026C0,$03000
  190.         DC.W        $00E00,$080E0,$020C0,$03000
  191.         DC.W        $00403,$0E040,$0F8FF,$0F000
  192.         DC.W        $00000,$00000,$00000,$00000
  193.         DC.W        $00000,$00000,$00000,$00000
  194.  
  195. * The fontLoc information is used to "unpack" the fontData.
  196. * Each pair of words specifies how the characters are bit-packed.  For
  197. * example, the first character starts at bit position 0x0000, and is 0x000B
  198. * (11) bits wide.  The second character starts at bit position 0x000B and
  199. * is 0x000B bits wide, and so on.  This tells the font handler how to unpack
  200. * the bits from the array.
  201.  
  202. fontLoc:         
  203.         DC.L        $00000000B,$0000B000B,$000160007,$0001D000B,$00028000C
  204.  
  205. * fontSpace array:  Use a space this wide to contain this character when it
  206. * is printed.  For reverse-path fonts these values would be small or negative.
  207.  
  208. fontSpace:
  209.         DC.W        000012,000012,000008,000012,000013
  210.  
  211. * fontKern array:  Place a space this wide after the corresponding character
  212. * to separate it from the following character.  For reverse-path fonts these
  213. * values would be large negative numbers, approximately the width of the
  214. * characters.
  215.  
  216. fontKern:
  217.         DC.W        000001,000001,000001,000001,000001
  218.  
  219. fontEnd:
  220.         END
  221.  
  222.