#! /bin/sh

# "dip" = below head
# "swell" = edge of head
# "notch" = break in swell
# "tip" = rounded end
# "dimple" = concavity at end of tip

# count, triangles per ring
nring=20

# count, rings in main shaft
shaftrings=20

# count, rings in dip half
diprings=3

# count, rings in swell
swellrings=5

# count, rings in tip
tiprings=8

# count, rings in dimple
dimplerings=3

# distance
radius=1

# distance
length=10

# degrees above horizontal
upslant=45

# 0=straight, 1=limp
limpness=.1

# degrees, 0=straight across
headslant=30

# percent of radius
dip=5

# distance, main shaft to min radius
diplen1=.15

# distance, min radius to swell edge
diplen2=.05

# percent of radius
swell=15

# distance, radius of curvature of swell edge
swellround=.1

# distance, notch to tip
tiplen=.3

# radius of curvature of tip
tipround=.5

# circumferential degrees, middle to edge
notchwidth=10

# distance, offset from centreline towards notch
dimpleoffset=.3

# distance, length of dimple (long dimension, towards notch)
dimplelen=.4

# distance, width of dimple (short dimension, perpendicular to notch direction)
dimplewidth=.1

# distance, depth of dimple's concavity
dimpledepth=.1


gen-m \
	$nring			\
	$shaftrings		\
	$diprings		\
	$swellrings		\
	$tiprings		\
	$dimplerings		\
	$radius			\
	$length			\
	$upslant		\
	$limpness		\
	$headslant		\
	$dip			\
	$diplen1		\
	$diplen2		\
	$swell			\
	$swellround		\
	$tiplen			\
	$tipround		\
	$notchwidth		\
	$dimpleoffset		\
	$dimplelen		\
	$dimplewidth		\
	$dimpledepth