#!/home/al/cavcvs4/cavor/bin/cslp
# test cslp handling of draw command
#

include 'stdcolor';                # some standard color value names

create picture foo (0,0) (500, 500); # create the 'world' extents
create window (240, 240);          # create an X window on that world

include 'triangle';                # defines function to draw triangle
triangle(10,10, 5, RED);           # call it with various parms
triangle(300,300, 10, GREEN);
triangle(150, 400, 15, 7);

include 'circle';                  # define function to draw circle
circle(250, 250, 100);             # call it

# test miscellaneous text and symbol draws

draw text 'symbol here' at (100, 290) color VIOLET size 20;
draw symbol 'sopsign' at (100, 300) color GREEN size 55 angle 45;
draw symbol 'pickandshovel' at (300, 125) color RED size 70;
draw text 'yet more text' at (300, 300) size 15 angle 60;


include 'putsymbol';    # place a symbol with parameterized position, angle, size, color

i := 1;
y := 400;
x := 40;
sym := 'pickandshovel';

# loop through positions, angles and colors placing the symbol

while (i <= 8) {
    chroma := i;
    putsymbol(sym, x, y, chroma, 45, 20*i);    # last parameter is angle
    i := i+1;
    x := x+60;
}

# some miscellaneous symbols

putsymbol('sopsign', 30, 30, ORANGE, 80, 0);

draw symbol 'arrowhead' at (400, 30) color BLACK size 35;

# draw the active feature (a line) in full symbology using
# the named symbology file

symbolize 'cable.syl';
#symbolize 'rail.syl';

message 'done';