#!/bin/csh -f

#set path=($path /grass.src/4.1/sun4/bin)

clear

while (1 == 1)

d.erase
echo Choose point A1
set A1=`d.where -1`
echo Choose point A2
set A2=`d.where -1`
d.mapgraph color=gray << EOF
move $A1[1] $A1[2]
draw $A2[1] $A2[2]
EOF

echo Choose POINT 
set B1=`d.where -1`
d.mapgraph color=green << EOF
move $B1[1] $B1[2]
icon x 2 $B1[1] $B1[2]
EOF

echo ./ccw $A1[1] $A1[2] $A2[1] $A2[2] $B1[1] $B1[2] 
./ccw $A1[1] $A1[2] $A2[1] $A2[2] $B1[1] $B1[2] 

echo 
echo 
echo 
echo Hit mouse to continue
set a=`d.where -1`

end
