drawing

Abstract : Used by both the Tcl code and the PP Group's C++ code to
           create objects and display them.

Comments : The names of the calls in here are the exact ones called in the
           C++. First the object structure is created, then it is displayed.



proc tclCVert { lbl coords {lblCoords {0 -20}} } {
    newVertex $lbl Constr $lbl $lblCoords $coords
    createVertex $lbl
}

proc tclAVert { lbl coords {lblCoords {0 -20}} } {
    newVertex $lbl Alter $lbl $lblCoords $coords
    createVertex $lbl
}

proc tclCEdge { lbl srcVert dstVert {lblCoords {0 -10}} {nodes {}} } {
    newEdge $lbl Constr $srcVert $dstVert $lblCoords $nodes
    createEdge $lbl
}

proc tclAEdge { srcVert dstVert {nodes {}} } {
    newEdge $srcVert-none-$dstVert Alter $srcVert $dstVert {} $nodes
    createEdge $srcVert-none-$dstVert
}

proc tclCMoveLabelTo { name coords } {
    moveVertexLabel $name $coords
}