# $Id$
# Definition file to make wind barbs used in Meteorology.
# Created by Time Hume, Australian Bureau of Meteorology
# [Timothy Hume <T.Hume@bom.gov.au>]

# Two args: windspeed(knots) and plotangle(degrees)
N:	2 oa
# Rotate the coordinate system by the number of degrees specified by $2
$2 R

if $1 [> 50:55 then {
# 50 knot wind barbs
	0	0	M
	0.5	0	D
	0.5	0.3	D
	0.47	0	D
} elseif $1 [> 45:50 then {
# 45 knot wind barbs
	0	0	M
	0.47	0	D
	0.5	0.3	D
	0.47	0	D
	0.44	0	D
	0.47	0.3	D
	0.44	0	D
	0.41	0	D
	0.44	0.3	D
	0.41	0	D
	0.38	0	D
	0.41	0.3	D
	0.38	0	D
	0.35	0	D
	0.365	0.15	D
	0.35	0	D
} elseif $1 [> 40:45 then {
# 40 knot wind barbs
	0	0	M
	0.47	0	D
	0.5	0.3	D
	0.47	0	D
	0.44	0	D
	0.47	0.3	D
	0.44	0	D
	0.41	0	D
	0.44	0.3	D
	0.41	0	D
	0.38	0	D
	0.41	0.3	D
	0.38	0	D
} elseif $1 [> 35:40 then {
# 35 knot wind barbs
	0	0	M
	0.47	0	D
	0.5	0.3	D
	0.47	0	D
	0.44	0	D
	0.47	0.3	D
	0.44	0	D
	0.41	0	D
	0.44	0.3	D
	0.41	0	D
	0.38	0	D
	0.395	0.15	D
	0.38	0	D
} elseif $1 [> 30:35 then {
# 30 knot wind barbs
	0	0	M
	0.47	0	D
	0.5	0.3	D
	0.47	0	D
	0.44	0	D
	0.47	0.3	D
	0.44	0	D
	0.41	0	D
	0.44	0.3	D
	0.41	0	D
} elseif $1 [> 25:30 then {
# 25 knot wind barbs
	0	0	M
	0.47	0	D
	0.5	0.3	D
	0.47	0	D
	0.44	0	D
	0.47	0.3	D
	0.44	0	D
	0.41	0	D
	0.425	0.15	D
	0.41	0	D
} elseif $1 [> 20:25 then {
# 20 knot wind barbs
	0	0	M
	0.47	0	D
	0.5	0.3	D
	0.47	0	D
	0.44	0	D
	0.47	0.3	D
	0.44	0	D
} elseif $1 [> 15:20 then {
# 15 knot wind barbs
	0	0	M
	0.47	0	D
	0.5	0.3	D
	0.47	0	D
	0.44	0	D
	0.455	0.15	D
	0.44	0	D
} elseif $1 [> 10:15 then {
# 10 knot wind barbs
	0	0	M
	0.47	0	D
	0.5	0.3	D
	0.47	0	D
} elseif $1 [> 5:10 then {
# 5 knot wind barbs
	0	0	M
	0.485	0	D
	0.5	0.15	D
	0.485	0	D
} elseif $1 <> 0:10 then {
# 0 < speed < 5 knots
	0	0	M
	0.5	0	D
} else {
#Calm
}
