home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / fonts / tallfont.txt < prev   
Text File  |  1990-06-05  |  855b  |  33 lines
  1. \CLEAR PICS\READ 242917PW.PIC
  2. \LOC 0,0\WID 320\OVER 0\HEIG 199
  3. This program lets you modify the
  4. height of a font.  It is set up
  5. to handle proportional fonts.
  6. First, rename the font to be changed
  7. to a .PIC file.
  8. To use, with the P11 editor change
  9. the name of the font on the first
  10. line.  After it runs save the new font
  11. which will be above the original 
  12. font file.
  13. \MOVE 1 TO M \MOVE 0 TO X \MOVE 0 TO Y
  14. \CLEAR SCREEN
  15. \SHOW 0,0,M
  16. \X LOOP1
  17. \DOT X,Y,?
  18. \IF A>0\DOT X+96,Y*3/4,1\ENDIF
  19. \ADD 1 TO X
  20. \IF Y=27\DOT 96+X,Y,1\ENDIF
  21. \IF X<28\JUMP LOOP1\ENDIF
  22. \MOVE 0 TO X \ADD 1 TO Y
  23. \IF Y<32\JUMP LOOP1\ENDIF
  24. \MOVE 0 TO Y
  25. \SHOW 96,0,M,M,S
  26. \CLEAR SCREEN
  27. \SHOW 192,0,M\MOVE 7 TO T
  28. \X SAVELOOP\DOT T+192,27,?\IF A>0\ADD 1 TO T\JUMP SAVELOOP\ENDIF
  29. \FRAME 192,0,T,22
  30. \ADD 1 TO M
  31. \CLEAR SCREEN
  32. \IF M>95\END\ELSE\SHOW 0,0,M\JUMP LOOP1\ENDIF
  33.