home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The AGA Experience 2
/
agavol2.iso
/
software
/
utilities
/
icon_tools
/
iconian296
/
macros
/
bevel.icrx
< prev
next >
Wrap
Text File
|
1995-09-17
|
802b
|
50 lines
/* An example REXX script for Iconian */
/* Draws a "bevel" of the current brush! */
address 'ICONIAN.1'
options results
/* grab current mouse coords */
'getcoord x'
mx=result
'getcoord y'
my=result
/* Lock the GUI so the user can interfere! */
lockgui
/* find white and black pens */
'closestcolor 255 255 255'
white=result
'closestcolor 0 0 0'
black=result
/* Select the paste-brush method */
brush
/* Make it paste-color method */
color
/* ...and, set the pen to black...*/
setfgcolor black
/* stamp the black brush +1, +1 */
moveto mx+1 my+1
leftmouse click
/* do the same thing, but white at -1,-1 */
setfgcolor white
moveto mx-1 my-1
leftmouse click
/* Now, paste the brush with matte, over the beveled image */
matte
moveto mx my
leftmouse click
/* Let go of the GUI. */
unlockgui