home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / Title.ifx < prev    next >
Encoding:
Text File  |  1992-10-27  |  1.1 KB  |  64 lines
  1. /*
  2.  * $VER: Title 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Center a string of text on a black background screen,
  8.  * render the results as a greyscale screen, and save
  9.  * the rendered image to disk.
  10.  *
  11.  * Uses the CGTriumvirate.font outline font.
  12.  *
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. Render Mode Hires Lace
  18. Render Colors 16
  19. Render Dither 0 0 0
  20.  
  21. swidth = 640
  22. sheight = 400
  23.  
  24. RequestNumber '"Font size:"' 80
  25. IF rc ~= 0 THEN EXIT
  26.  
  27. size = result
  28.  
  29. DO FOREVER
  30.  
  31.    CreateBuffer swidth sheight Grey Force
  32.  
  33.    width = swidth + 1
  34.    DO UNTIL width < swidth
  35.  
  36.       RequestString '"Enter your title:"'
  37.       IF rc ~= 0 THEN EXIT
  38.  
  39.       title = result
  40.  
  41.       Text 'CGTriumvirate.font' size 100 title
  42.  
  43.       GetBrush ; IF result = "" THEN EXIT
  44.       PARSE VAR result name width height .
  45.  
  46.       IF width > swidth THEN RequestNotify 'Text too wide.'
  47.  
  48.       END
  49.  
  50.    EdgeMode AntiAlias
  51.    BrushHandle 0 0
  52.  
  53.    Point (swidth-width)%2 (sheight-height)%2
  54.  
  55.    KillBrush
  56.  
  57.    Render Go
  58.    SaveRenderedAs ILBM 'RAM:Title_'||TRANSLATE(title,'___',' /:')||'.pic'
  59.    Render Close
  60.  
  61.    END
  62.  
  63. EXIT
  64.