5 #######################################################################
6 puts "Visualization - improve selection mechanism"
7 # tests performance of selection algorithm. Creates a spiral via polyline
8 # and checks its selection in neutral point. For representative result,
9 # increase the number of points in POINTS_NUM and check time measurments
10 # in comparsion to previous OCCT versions.
11 #######################################################################
22 for {set i 0} {$i < $POINTS_NUM} {incr i} {
23 set aX [expr $aCoef * $aZ * cos($aZ)]
24 set aY [expr $aCoef * $aZ * sin($aZ)]
25 set aZ [expr $aZ + $STEP]
26 lappend aPointCoords $aX
27 lappend aPointCoords $aY
28 lappend aPointCoords $aZ
32 set aMemInit [meminfo h]
33 puts "Initial mem: [expr $aMemInit / (1024 * 1024)] MiB ([expr $aMemInit])"
34 polyline p {*}$aPointCoords
39 puts "Selection time before the transformations:"
53 puts "Applying transformations..."
58 puts "Selection time after the transformations:"
71 set aMemSel [meminfo h]
72 puts "Selection mem: [expr $aMemSel / (1024 * 1024)] MiB ([expr $aMemSel])"
74 checkcolor 131 195 0 1 1