/*
 * $VER: EOT_Straw.ifx 2.6 (24.04.96)
 * Copyright © 1992-1996 Nova Design, Inc.
 *
 * Written by Ola Eric Olsson
 */

OPTIONS RESULTS

framenum = Word(Arg(1),1)
mainname = Word(Arg(1),2)
swapname = Word(Arg(1),3)
seqnum   = Word(Arg(1),4)
framemax = Word(Arg(1),5)

base  = 'autofx_straw_'

linesize  = GETCLIP(base||'size')
spacing   = GETCLIP(base||'density')
min       = GETCLIP(base||'minangle')
max       = GETCLIP(base||'maxangle')

amt = TRUNC(linesize * (framenum / framemax))

Hook Straw Size amt Density spacing MinAngle min MaxAngle max

EXIT rc