| f23d022c |
1 | puts "TODO DEBUG_24148 Windows: Tcl Exception: Dumping failed!" |
| 2 | puts "TODO DEBUG_24148 Windows: TEST INCOMPLETE" |
| 3 | |
| a577aaab |
4 | puts "========" |
| 5 | puts "OCC24131 Markers using Point Sprites" |
| 6 | puts "========" |
| 7 | |
| 8 | # reflects Aspect_TypeOfMarker enumeration |
| 9 | set aMarkerTypeNames { |
| 10 | Aspect_TOM_POINT |
| 11 | Aspect_TOM_PLUS |
| 12 | Aspect_TOM_STAR |
| 13 | Aspect_TOM_X |
| 14 | Aspect_TOM_O |
| 15 | Aspect_TOM_O_POINT |
| 16 | Aspect_TOM_O_PLUS |
| 17 | Aspect_TOM_O_STAR |
| 18 | Aspect_TOM_O_X |
| 19 | Aspect_TOM_RING1 |
| 20 | Aspect_TOM_RING2 |
| 21 | Aspect_TOM_RING3 |
| 22 | Aspect_TOM_BALL |
| 23 | Aspect_TOM_USERDEFINED |
| 24 | } |
| 25 | |
| 26 | # generate custom marker |
| 27 | set aCustom1 $imagedir/${casename}_m1.png |
| 28 | set aCustom2 $imagedir/${casename}_m2.png |
| 29 | box b 1 1 1 |
| 30 | vinit name=Driver0/Viewer1/View1 l=32 t=32 w=512 h=512 |
| 31 | vclear |
| 32 | vdisplay b |
| 33 | vaxo |
| 34 | vfit |
| 35 | vdump $aCustom1 rgba 32 32 |
| 36 | vsetdispmode b 1 |
| 37 | vsetcolor b RED |
| 38 | vrotate 1 0 0 |
| 39 | vdump $aCustom2 rgba 32 32 |
| 40 | |
| 41 | # draw box in advance which should fit all our markers |
| 42 | box b -8 -8 0 16 16 2 |
| 43 | puts "hI" |
| 44 | for { set aMode 0 } { $aMode <= 1 } { incr aMode } { |
| 45 | set aTitle "bitmaps" |
| 46 | if { $aMode == 1 } { set aTitle "sprites" } |
| 47 | vcaps sprites=$aMode |
| 48 | set aV "Driver${aMode}/Viewer1/View1" |
| 49 | vinit name=$aV l=32 t=32 w=512 h=512 |
| 50 | vactivate $aV |
| 51 | vclear |
| 52 | |
| 53 | vbottom |
| 54 | vdisplay b |
| 55 | vfit |
| 56 | verase b |
| 57 | |
| 58 | for { set aMarkerType 0 } { $aMarkerType <= 13 } { incr aMarkerType } { |
| 59 | set aRow [expr $aMarkerType - 7] |
| 60 | set aCol 5 |
| 61 | set aName [lindex $aMarkerTypeNames $aMarkerType] |
| 62 | vdrawtext "$aName" 0 [expr $aRow + 0.5] 0 128 255 255 1 1 000 0 12 2 Arial |
| 63 | if { $aMarkerType == 13 } { |
| 64 | vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom1 |
| 65 | set aCol [expr $aCol - 1] |
| 66 | vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom2 |
| 67 | } else { |
| 68 | for { set aMarkerScale 1.0 } { $aMarkerScale <= 7 } { set aMarkerScale [expr $aMarkerScale + 0.5] } { |
| 69 | vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 MarkerType=$aMarkerType Scale=$aMarkerScale PointsOnSide=1 |
| 70 | set aCol [expr $aCol - 1] |
| 71 | } |
| 72 | } |
| 73 | } |
| 74 | vdump $imagedir/${casename}_${aTitle}.png |
| 75 | } |
projects / occt.git / blame