source base.tcl set w .line set graph [bltLineGraph $w] set mm [$graph marker create bitmap tt -element data1 \ -coords {1.5 100} -bitmap error] return bltTest3 $graph marker $mm -anchor nw bltTest3 $graph marker $mm -background yellow bltTest3 $graph marker $mm -bg red bltTest3 $graph marker $mm -bindtags {aa} bltTest3 $graph marker $mm -bitmap hourglass bltTest3 $graph marker $mm -coords {1 50} bltTest3 $graph marker $mm -coords {1 50 1.1 60} bltTest3 $graph marker $mm -element data2 bltTest3 $graph marker $mm -fg cyan bltTest3 $graph marker $mm -fill yellow bltTest3 $graph marker $mm -foreground blue bltTest3 $graph marker $mm -hide yes bltTest3 $graph marker $mm -mapx x bltTest3 $graph marker $mm -mapy y bltTest3 $graph marker $mm -outline green bltTest3 $graph marker $mm -state disabled bltTest3 $graph marker $mm -under yes bltTest3 $graph marker $mm -xoffset 20 bltTest3 $graph marker $mm -yoffset 20 echo "done" bltPlotDestroy $w