% Testdarrow.m4
define(`testinit',`
darrow_init

#fgpic(scale = 1.05)

# Grid:
define drawgrid {
 cell = 0.25
 grht = 8.5
 grwid = 7
 tmplinethick = linethick; linethick = 0.4
 nx = int(grwid/cell+0.5)
 for i=0 to nx do { x = i*cell
  line up grht from (x,0) }
 for i=0 to grwid do { sprintf("%g",i) at (i,0) below }
 ny = int(grht/cell+0.5)
 for i=0 to ny do { y = i*cell
  line right grwid from (0,y) }
 for i=0 to grht do { sprintf("%g",i) at (0,i) rjust }
 linethick = tmplinethick
  }
drawgrid
define(`dlthick',1.5)
linethick = 0.5/(1bp__)
define(`darcrad',2.0)
')dnl
.PS
testinit

linethick = 0.5/(1bp__)
define(`dlthick',0.5)

  linethick = 0.1/(1bp__)
  s = dlthick/1.5
  move to (0.25,1)
darrow(right_ 2)
  move to last arrow.start+(0,1)
darrow(right_ 2,,,,2.5*s,2*s,|-)
  move to last arrow.start+(0,1)
darrow(right_ 2,,,,2.5*s,2*s,->)
  move to last arrow.start+(0,1)
darrow(right_ 2,,,,2.5*s,2*s,|->)
  move to last arrow.start+(0,1)
darrow(right_ 2,,,,2.5*s,2*s,<-!)
  move to last arrow.start+(0,1)
darrow(right_ 2,t,,,2.5*s,2*s,<-|)
  move to 2nd last arrow.start+(0,1*2)
darrow(right_ 2,,t,,2.5*s,2*s,<->)
  move to 3rd last arrow.start+(0,1*3)
darrow(right_ 2,t,t,,2.5*s,2*s,!-)

#1#####################################

  move to (2.5,1)
Darrow(right_ 2)
  move to last arrow.start+(0,1)
Darrow(right_ 2,wid=2.5*s;ht=2*s;ends=|-)
  move to last arrow.start+(0,1)
Darrow(right_ 2,wid=2.5*s;ht=2*s;ends=->)
  move to last arrow.start+(0,1)
Darrow(right_ 2,wid=2.5*s;ht=2*s;ends=|->)
  move to last arrow.start+(0,1)
Darrow(right_ 2,wid=2.5*s;ht=2*s;ends=<-!)
  move to last arrow.start+(0,1)
Darrow(right_ 2,S;wid=2.5*s;ht=2*s;ends=<-|)
  move to 2nd last arrow.start+(0,1*2)
Darrow(right_ 2,E;wid=2.5*s;ht=2*s;ends=<->)
  move to 3rd last arrow.start+(0,1*3)
Darrow(right_ 2,S;E;wid=2.5*s;ht=2*s;ends=!-)

#2#####################################

  move to (5,1)
A: dline(right_ 2)
  move to A.start+(0,0.75)
A: dline(right_ 2,,,,|-)
  move to A.start+(0,0.75)
A: dline(right_ 2,,,,-|)
  move to A.start+(0,0.75)
A: dline(right_ 2,,,,|-|)
  move to A.start+(0,0.75)
A: dline(right_ 2,,,,!-)
  move to A.start+(0,0.75)
A: dline(right_ 2,,,,-!)
  move to A.start+(0,0.75)
B: dline(right_ 2,t,,,!-!)
  move to A.start+(0,0.75*2)
C: dline(right_ 2,,t,,!-|)
  move to A.start+(0,0.75*3)
D: dline(right_ 2,t,t,,|-!)
.PE

.PS
testinit
dline(right_ 1.8 from (2.1,1))
dleft
dright
dline(right_ 2 from (1,4.0),t)
dline(right 1,,t)

move to (4.5,4.5); right_
dturn(80)
dturn(-80)
dline(to rvec_(0.5,0))

move to (5,7.5); right_
dtee(,1.5)
dline(right 1.5 from (0.5,7.5))
dtee(R)
dline(down_ 1.5,t)

move to (0.25,1); right_
dturn(70)
.PE

.PS
testinit
darrow(right_ 4 from (0,7.0),t,,1.5,3,2.5,|-)
 dline(right_ 1 with .end at (2,4.5),,,1.5,|-)
 dturn(120)
 dline(to rvec_(0.5,0),,,1.5)
right_
dright(at (1.5,2.5),)
right_
dleft(at (3.5,2.5),)
.PE

.PS
testinit
define(`dlthick',1)
#efine(`dlthick',0.15)
linethick = 0.20/(1bp__)
Point_(0)
move to (0.5,3.5)
Darc(,,-pi__/2,0)
Darc(Here+(darcrad,0),,pi__/2,pi__)

command "\definecolor{gold}{rgb}{1,0.84,0}"
define(`dfillcolor',gold)
move to (3.5,2); right_
Point_(0)
#arc(,,,,,,,<->)
Darc(,,,,ends=<->)
#darc(,,,,,,,!-|)
Darc(,,,,ends=!-|)

.PE