home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / j / jet_master / jetmaster1.dms / in.adf / Scripts / Comic.Script < prev    next >
Encoding:
Text File  |  1988-12-27  |  1.3 KB  |  35 lines
  1. ; Comic-Book Script
  2. ; This is similar to the other outline fonts, except the shadowed region
  3. ; has a checker-like pattern. This script is in two parts. The first part
  4. ; generates a wood-cut effect. Outlining this once produces comic-book.
  5. ;
  6. magx 10
  7. magy 5
  8. FW 12
  9. FH 7        ;increase the size of the font correspondingly.
  10. AR             ;Allocate raster (required before GT and D, below).
  11. ;
  12. ; draw diagnal representations of the character from 0,0 to 7,7
  13. ; and for each y, (x+1,y) ... (x+6, y).
  14. gt 0 0, d 1, gt 1 0, d 1, gt 2 0, d 1, gt 3 0, d 1, gt 4 0, d 1, gt 5 0, d 1
  15. gt 1 1, d 1, gt 2 1, d 0, gt 3 1, d 0, gt 4 1, d 0, gt 5 1, d 0, gt 6 1, d 1
  16. gt 2 2, d 1, gt 3 2, d 0, gt 4 2, d 0, gt 5 2, d 0, gt 6 2, d 0, gt 7 2, d 1
  17. gt 3 3, d 1, gt 4 3, d 0, gt 5 3, d 0, gt 6 3, d 0, gt 7 3, d 0, gt 8 3, d 1
  18. gt 4 4, d 1, gt 5 4, d 0, gt 6 4, d 0, gt 7 4, d 0, gt 8 4, d 0, gt 9 4, d 1
  19. gt 5 5, d 1, gt 6 5, d 1, gt 7 5, d 1, gt 8 5, d 1, gt 9 5, d 1, gt 10 5
  20. d 1
  21. ;
  22. ; increase the DeltaX for each character (otherwise they overlap)
  23. DX 48        ; Note: These are quarter-dot increments.
  24. ; save character.
  25. SC
  26. ; What we have at this point is woodcut effect. To produce the comic-boox
  27. ; effect we now outline the character
  28. magx 2
  29. magy 2
  30. AR
  31. gt 0 0, d 1, gt 1 0, d 1, gt 2 0, d 1
  32. gt 0 1, d 1, gt 1 1, d 1, gt 2 1, d 1
  33. gt 0 2, d 1, gt 1 2, d 1, gt 2 2, d 1
  34. gt 1 1, d 0
  35.