home *** CD-ROM | disk | FTP | other *** search
- /* TextFX Generator - ver 1.0 26.12.94 - by R.Michael Fierro
- *
- * Taken from Chapter 8 of ImageFX 2.0 Manual plus a few more...
- */
-
- OPTIONS RESULTS
-
-
- gadget.1 = "d/135/18/140/Choose Effect/10/ Metal Plate / Brushed Brass/
- Candy / Silver / Liquid Mercury / Plastic/ *Soft Pillow* / Leather / Hammered
- Gold/ Money /0 "
- gadget.2 = "l/135/37/3/0/by R.Michael Fierro '94"
-
- complexrequest '"TextFX Generator"' 2 gadget
-
- IF rc~=0 THEN exit
-
- IF result.1 = 0 THEN call MetalPlate
- IF result.1 = 1 THEN call Brass
- IF result.1 = 2 THEN call Candy
- IF result.1 = 3 THEN call Silver
- IF result.1 = 4 THEN call LiqMerc
- IF result.1 = 5 THEN call Plastic
- IF result.1 = 6 THEN call Pillow
- if result.1 = 7 then call leather
- if result.1 = 8 then call HamGold
- if result.1 = 9 then call Money
-
-
- MetalPlate:
-
- redraw off
- ActiveColor 17
- setpalette '-1' 134 128 138
- hook text
- Region Brush
- Convolve "Storage/Convolve/GaussianHigh"
- Convolve "Storage/Convolve/GaussianHigh"
- ReliefMap 256 0
- DrawMode Color
- Call Standard
-
- LiqMerc:
-
- redraw off
- ActiveColor 17
- setpalette '-1' 134 150 150
- hook text
- Region Brush
- Convolve "Storage/Convolve/GaussianHigh"
- Convolve "Storage/Convolve/GaussianHigh"
- ReliefMap 256 0
- ColorTransform "Storage/Transform/Chrome3"
- DrawMode Color
- Call Standard
-
-
- Brass:
-
- Redraw off
- ActiveColor 17
- SetPalette '-1' 127 127 127
- hook text
- Region Brush
- Roughen 128
- MotionBlur 45 10
- ReliefMap 255 0
- Negative
- ActiveColor 17
- SetPalette '-1' 148 113 13
- drawmode color
- call standard
-
- Candy:
-
- redraw off
- ActiveColor 17
- SetPalette '-1' 127 127 127
- hook text
- Region Brush
- Roughen 128
- Convolve "Storage/Convolve/GaussianHigh"
- Convolve "Storage/Convolve/GaussianHigh"
- ReliefMap 255 0
- Negative
- Red "127"
- Blue "60"
- DrawMode Normal
- EdgeMode AntiAlias 0
- menu toolbox
- region full
- lockinput
- requestnotify "Click anywhere on panel for text placement"
- address command wait 1
- redraw on
- hidepanel
- NewArea
- waitfor selectup
- AddArea x y
- KillBrush
- showpanel
- unlockinput
- exit
-
-
- Silver:
-
- redraw off
- ActiveColor 17
- SetPalette '-1' 148 143 153
- hook text
- Region Brush
- Roughen 198
- MotionBlur 25 10
- ReliefMap 255 0
- Negative
- DrawMode Color
- Call Standard
-
-
- Plastic:
-
- redraw off
- ActiveColor 17
- setpalette '-1' 240 240 220
- hook text
- Region Brush
- Convolve "Storage/Convolve/GaussianHigh"
- Convolve "Storage/Convolve/GaussianHigh"
- ReliefMap 256 0
- Negative
- drawmode color
- call standard
-
-
- Pillow:
-
- requestresponse "This Will Clear Out the Main, Swap and Alpha Buffers"
- IF rc ~=0 THEN exit
- requestresponse "Please compose your text and stamp it down on the main buffer"
- IF rc ~=0 THEN exit
- AlphaChannel Off
- Hook Text
- Region Brush
- DrawMode Normal
- EdgeMode AntiAlias 0
- menu toolbox
- region full
- lockinput
- requestnotify "Click anywhere on panel for text placement"
- address command wait 1
- hidepanel
- NewArea
- waitfor selectup
- AddArea x y
- killbrush
- redraw off
- Buffer2Alpha
- Convolve "Storage/Convolve/GaussianHigh"
- Convolve "Storage/Convolve/GaussianHigh"
- ReliefMap 256 0
- Buffer2Swap
- Negative
- Swap
- Hook Composite MERGE 255 1 0 0 MatchMain AlphaFrisket
- redraw on
- killalpha
- killswap
- exit
-
-
- Leather:
-
- redraw off
- ActiveColor 17
- setpalette '-1' 117 109 57
- DrawMode Color
- hook text
- Hook ApplyTexture "Textures/Leather" 0 50 SHINY
- reliefMap 255 0
- call standard
-
-
- HamGold:
-
- redraw off
- ActiveColor 17
- setpalette '-1' 207 163 33
- DrawMode Color
- hook text
- Hook ApplyTexture "Textures/Cubist" 0 135 SHINY SHADING
- reliefMap 175 0
- call standard
-
- Money:
-
- redraw off
- ActiveColor 17
- setpalette '-1' 7 128 43
- DrawMode Color
- hook text
- Hook ApplyTexture "Textures/Money" 0 180 SHINY SHADING
- Negative
- reliefMap 85 0
- call standard
-
- standard:
-
- EdgeMode AntiAlias 0
- menu toolbox
- region full
- lockinput
- requestnotify "Click anywhere on panel for text placement"
- address command wait 1
- redraw on
- hidepanel
- NewArea
- waitfor selectup
- AddArea x y
- DrawMode Add
- redo
- killbrush
- showpanel
- unlockinput
- exit
-
-
-