/* Create Wood Texture v1.0, for Photogenics v2a by Ryan Wade Morse © 1996.
$VER: Create_Wood_Texture_Macro v1.0 (30/7/96)

INSTRUCTIONS: This macro will create a wood texture, following the tutorial from Amiga Shopper #50, June 1995, page 72 by Graeme Sandiford. */

/* Return results */
OPTIONS RESULTS

/* Address Photogenics */
ADDRESS PHOTOGENICS.1

/* CREATE NEW IMAGE */
/* Get dimensions */
ASKSIZE "Wood_Texture" '640' '512'
Size = RESULT
/* Set progress */
OPENPROGRESS "Wood_Texture" ""
SETPROGRESS "" 5
/* Create work area */
NEW Size 0 0 0
Image = RESULT
/* Set progress */
SETPROGRESS "" 35

/* CREATE TEXTURE */
/* Apply AddNoise paintmode */
PAINTMODE Image "AddNoise"
MODEOPTS Image RANDOM 80
FILLIMAGE Image
FIX Image
/* Set progress */
SETPROGRESS "" 60
/* Apply MotionBlur paintmode */
/* NOTE: Photogenics crashes on my Amiga if I spell MotionBlur with a capital B! */
PAINTMODE Image "Motionblur"
MODEOPTS Image 20 90
FILLIMAGE Image
FIX Image
/* Set progress */
SETPROGRESS "" 90
/* Apply Antique paintmode */
PAINTMODE Image "Antique"
FILLIMAGE Image
FIX Image
/* Set progress */
SETPROGRESS "" 100
CLOSEPROGRESS