Tk Library Source Code

2017-03-14  Arjen Markus  <arjenmarkus@users,sourceforge.net>
	* plotchart.man:  Describe the "minmax" command
	* plotchart.tcl:  Add the "minmax" command
	* plotpriv.tcl:   Add the DrawMinMax procedure that implements the "minmax" command
	* pkgIndex.tcl:   Bumped version to 2.4.1
	* testregion.tcl: New test/demo script for demostrating the region and minmax commands

   set methodProc(polarplot,legendconfig)      LegendConfigure
   set methodProc(polarplot,legend)            DrawLegend
   set methodProc(polarplot,removefromlegend)  RemoveFromLegend
   set methodProc(polarplot,balloon)           DrawBalloon
   set methodProc(polarplot,balloonconfig)     ConfigBalloon
   set methodProc(polarplot,plaintext)         DrawPlainText
   set methodProc(polarplot,plaintextconfig)   ConfigPlainText

   set methodProc(polarplot,labeldot)          DrawLabelDot
   set methodProc(polarplot,canvas)            GetCanvas
   set methodProc(polarplot,deletedata)        DeleteData
   set methodProc(histogram,title)             DrawTitle
   set methodProc(histogram,subtitle)          DrawSubtitle
   set methodProc(histogram,xtext)             DrawXtext
   set methodProc(histogram,xsubtext)          DrawXsubtext

            set newdot [$w create oval $x1 $y1 $x2 $y2 -fill $newcolour -outline {} \
                            -tag [list data $w data_$series]]
            $w scale $newdot $xcentre $ycentre $factor $factor
        }
    }

    $w lower [list data && $w]
}

# DrawLog*Dot, DrawPolarDot --
#    Draw a dot at the given coordinates - variants for logarithmic axes and polar axis
# Arguments:
#    w           Name of the canvas
#    series      Data series (identifier for the vectors)
#    xcrd        X coordinate of start or centre
#    ycrd        Y coordinate of start or centre
#    value       Value to be used
# Result:
#    None
# Side effects:
#    New oval drawn in canvas
#
proc ::Plotchart::DrawLogXDot { w series xcrd ycrd value } {

    DrawDot $w $series [expr {log10($xcrd)}] $ycrd $value
}

proc ::Plotchart::DrawLogYDot { w series xcrd ycrd value } {

    DrawDot $w $series $xcrd [expr {log10($ycrd)}] $value
}

proc ::Plotchart::DrawLogXLogYDot { w series xcrd ycrd value } {

    DrawDot $w $series [expr {log10($xcrd)}] [expr {log10($ycrd)}] $value
}

proc ::Plotchart::DrawPolarDot { w series rad phi value } {
   variable torad
   set xcrd [expr {$rad*cos($phi*$torad)}]
   set ycrd [expr {$rad*sin($phi*$torad)}]

   DrawDot $w $series $xcrd $ycrd $value
}

# DrawRchart --
#    Draw data together with two horizontal lines representing the
#    expected range
# Arguments:
#    w           Name of the canvas
#    series      Data series
#    xcrd        X coordinate of the data point