mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
53 lines
1.1 KiB
Plaintext
53 lines
1.1 KiB
Plaintext
puts "=========="
|
|
puts "OCC25853"
|
|
puts "=========="
|
|
puts ""
|
|
###########################################################
|
|
# Edges disappear or reappear when displaying new edges
|
|
###########################################################
|
|
|
|
vinit View1 w=1024 h=1024
|
|
vsetdispmode View1 1
|
|
vclear
|
|
|
|
#vtop
|
|
set scale 0.086865724500890112
|
|
set vpprojx 0.0
|
|
set vpprojy 0.0
|
|
set vpprojz 1.0
|
|
set vpupx 0.0
|
|
set vpupy 1.0
|
|
set vpupz 0.0
|
|
set vpatx 4995
|
|
set vpaty 500
|
|
set vpatz 0
|
|
set vpeyex 4995
|
|
set vpeyey 500
|
|
set vpeyez 0.0001
|
|
vviewparams -scale $scale -eye $vpeyex $vpeyey $vpeyez -at $vpatx $vpaty $vpatz -up $vpupx $vpupy $vpupz -proj $vpprojx $vpprojy $vpprojz
|
|
|
|
set NB 1000
|
|
|
|
proc draw_lines {{distance 10.0}} {
|
|
# set colors to corner spheres
|
|
for {set i 0} {$i < $::NB} {incr i} {
|
|
set x [expr $i * $distance]
|
|
set ya 0.0
|
|
set yb 1000.0
|
|
set z 0.0
|
|
vertex v1 $x $ya $z
|
|
vertex v2 $x $yb $z
|
|
edge e$i v1 v2
|
|
vdisplay -update e$i
|
|
puts "$i: $x $ya $yb $z"
|
|
}
|
|
}
|
|
|
|
puts "Start test lines"
|
|
draw_lines 10.0
|
|
|
|
checkcolor 804 483 1 0 0
|
|
checkcolor 860 500 1 0 0
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|