mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-09-28 09:46:30 +08:00
13 lines
509 B
Plaintext
13 lines
509 B
Plaintext
puts "========"
|
|
puts "GitHub Issue #1488: Vector scale issue in DRAW"
|
|
puts "========"
|
|
|
|
set aScaled2d [2dscale 1 2 5]
|
|
checkreal "2D scaled vector X component" [lindex ${aScaled2d} 0] 5 0 0
|
|
checkreal "2D scaled vector Y component" [lindex ${aScaled2d} 1] 10 0 0
|
|
|
|
set aScaled3d [scale 1 -2 3 -4]
|
|
checkreal "3D scaled vector X component" [lindex ${aScaled3d} 0] -4 0 0
|
|
checkreal "3D scaled vector Y component" [lindex ${aScaled3d} 1] 8 0 0
|
|
checkreal "3D scaled vector Z component" [lindex ${aScaled3d} 2] -12 0 0
|