/*
 * $VER: Snapshot 2.0.0 (19.8.94)
 *
 * Arexx program for the ImageFX image processing system.
 * Written by Thomas Krehbiel (from an idea by Bob Fisher)
 *
 * Take a directory of images, and reduce them to small thumbnail
 * snapshot images, and place them on one or more images which are
 * then saved out somewhere.  This script also renders the snapshot
 * pages down to 16 color images for easy viewing.  We can also
 * optionally stamp the name of the file at the bottom of each
 * thumbnail.
 *
 * By default we make 640x400 24-bit renderings with a 5x5 grid
 * of thumbnails.
 *
 * This script is just the interface for the snapshot options.
 *
 */

OPTIONS RESULTS

/* retreive defaults from any previous useage of this macro */

defdest  = GETCLIP('IFX_Snapshot_DefDest')
numcols  = GETCLIP('IFX_Snapshot_Colors')
gridsize = GETCLIP('IFX_Snapshot_Grid')
width    = GETCLIP('IFX_Snapshot_Width')
height   = GETCLIP('IFX_Snapshot_Height')
labelit  = GETCLIP('IFX_Snapshot_Labels')
grey     = GETCLIP('IFX_Snapshot_Grey')
keepext  = GETCLIP('IFX_Snapshot_KeepExt')
saveform = GETCLIP('IFX_Snapshot_SaveForm')
saveopt  = GETCLIP('IFX_Snapshot_SaveOpts')
spacing  = GETCLIP('IFX_Snapshot_Spacing')
enhance  = GETCLIP('IFX_Snapshot_Enhance')
doback   = GETCLIP('IFX_Snapshot_DoBack')
backdrop = GETCLIP('IFX_Snapshot_Backdrop')
doshadow = GETCLIP('IFX_Snapshot_DoShadow')
red      = GETCLIP('IFX_Snapshot_Red')
green    = GETCLIP('IFX_Snapshot_Green')
blue     = GETCLIP('IFX_Snapshot_Blue')

/* some defaults - change as desired */

IF defdest  = '' THEN defdest  = "RAM:.Snap" /* default dest files */
IF numcols  = '' THEN numcols  = 8           /* colors in renderings */
IF gridsize = '' THEN gridsize = 5           /* thumbnail rows/cols */
IF width    = '' THEN width    = 640         /* dest width */
IF height   = '' THEN height   = 400         /* dest height */
IF labelit  = '' THEN labelit  = 1           /* label each thumbnail? */
IF grey     = '' THEN grey     = 0           /* convert to greyscale? */
IF keepext  = '' THEN keepext  = 1           /* keep file extensions? */
IF saveform = '' THEN saveform = 'ILBM'      /* save format */
IF spacing  = '' THEN spacing  = 10          /* spacing between nails */
IF enhance  = '' THEN enhance  = 1           /* enhance nails? */
IF doback   = '' THEN doback   = 0           /* do backdrop texture? */
IF backdrop = '' THEN backdrop = 'Textures/Leather'   /* backdrop texture */
IF doshadow = '' THEN doshadow = 1           /* do shadowed nails? */
IF red      = '' THEN red      = 128
IF green    = '' THEN green    = 100
IF blue     = '' THEN blue     = 140

/* get a directory and pattern and grid size */

Gadget.1  = 'I/190/19/Rows & Columns:/'gridsize
Gadget.2  = 'I/190/34/Spacing:/'spacing

Gadget.3  = 'I/190/50/Width (Pixels):/'width
Gadget.4  = 'I/190/65/Height (Pixels):/'height
Gadget.5  = 'T/190/80/60/0/Save Format:/'saveform
Gadget.6  = 'T/190/95/60/0/Save Options:/'saveopt
Gadget.7  = 'D/162/110/100/Colors:/10/2/4/8/16/32/64/128/256/24-Bit/Print/'numcols
Gadget.8  = 'T/110/125/140/1/Basename:/'defdest

Gadget.9  = 'X/300/20/Convert To Greyscale?/'grey
Gadget.10 = 'X/300/34/Label Thumbnails?/'labelit
Gadget.11 = 'X/300/46/Keep Extensions?/'keepext
Gadget.12 = 'X/300/60/Enhance Thumbnails?/'enhance
Gadget.13 = 'X/300/72/Create Shadows?/'doshadow
Gadget.14 = 'X/300/86/Create Backdrop?/'doback

Gadget.15 = 'T/300/98/180/0/ /'backdrop

Gadget.16 = 'J/300/125/35/R:/'red
Gadget.17 = 'J/370/125/35/G:/'green
Gadget.18 = 'J/440/125/35/B:/'blue

ComplexRequest '"Snapshot V2.1 Options:"' 18 Gadget 520 165
IF rc ~= 0 THEN EXIT

gridsize = result.1
spacing  = result.2
width    = result.3
height   = result.4
saveform = result.5
saveopt  = result.6
numcols  = result.7
destbase = result.8
grey     = result.9
labelit  = result.10
keepext  = result.11
enhance  = result.12
doshadow = result.13
doback   = result.14
backdrop = result.15
red      = result.16
green    = result.17
blue     = result.18

CALL SETCLIP('IFX_Snapshot_DefDest', destbase)
CALL SETCLIP('IFX_Snapshot_Colors', numcols)
CALL SETCLIP('IFX_Snapshot_Grid', gridsize)
CALL SETCLIP('IFX_Snapshot_Width', width)
CALL SETCLIP('IFX_Snapshot_Height', height)
CALL SETCLIP('IFX_Snapshot_Labels', labelit)
CALL SETCLIP('IFX_Snapshot_Grey', grey)
CALL SETCLIP('IFX_Snapshot_KeepExt', keepext)
CALL SETCLIP('IFX_Snapshot_SaveForm', saveform)
CALL SETCLIP('IFX_Snapshot_SaveOpts', saveopt)
CALL SETCLIP('IFX_Snapshot_Spacing', spacing)
CALL SETCLIP('IFX_Snapshot_Enhance', enhance)
CALL SETCLIP('IFX_Snapshot_DoBack', doback)
CALL SETCLIP('IFX_Snapshot_Backdrop', backdrop)
CALL SETCLIP('IFX_Snapshot_DoShadow', doshadow)
CALL SETCLIP('IFX_Snapshot_Red', red)
CALL SETCLIP('IFX_Snapshot_Green', green)
CALL SETCLIP('IFX_Snapshot_Blue', blue)