[occt.git] / tests / bugs / caf / buc60846

puts "TODO OCC12345 ALL: Faulty : Present script does not work currently !!! SKETCH application is missing"
puts "TODO OCC12345 ALL: Tcl Exception"
puts "TODO OCC12345 ALL: TEST INCOMPLETE"

puts "==========="
puts "BUC60846"
puts "==========="

puts "Faulty : Present script does not work currently !!! SKETCH application is missing"
##############################################################

NewDocument D MDTV-Standard
UndoLimit D 100

NewCommand D

Label D 0:3
NewSketch D 0:3 0 0 0 1 0 0
Point D 0:3 10 20
Point D 0:3 11 20
Segment D 0:3 0:3:2:3 0:3:2:4

Point D 0:3 10 21
Point D 0:3 11 21
Segment D 0:3 0:3:2:9 0:3:2:10

Distance D 0:3 0:3:2:5 0:3:2:11

AISInitViewer D

AISSet D 0:3:2:15 C

AISDisplay D 0:3:2:15

NewCommand D
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty : Present script does not work currently !!! SKETCH application is missing"
	2	puts "TODO OCC12345 ALL: Tcl Exception"
	3	puts "TODO OCC12345 ALL: TEST INCOMPLETE"
	4
	5	puts "==========="
	6	puts "BUC60846"
	7	puts "==========="
	8
	9	puts "Faulty : Present script does not work currently !!! SKETCH application is missing"
	10	##############################################################
	11
	12	NewDocument D MDTV-Standard
	13	UndoLimit D 100
	14
	15	NewCommand D
	16
	17	Label D 0:3
	18	NewSketch D 0:3 0 0 0 1 0 0
	19	Point D 0:3 10 20
	20	Point D 0:3 11 20
	21	Segment D 0:3 0:3:2:3 0:3:2:4
	22
	23	Point D 0:3 10 21
	24	Point D 0:3 11 21
	25	Segment D 0:3 0:3:2:9 0:3:2:10
	26
	27	Distance D 0:3 0:3:2:5 0:3:2:11
	28
	29	AISInitViewer D
	30
	31	AISSet D 0:3:2:15 C
	32
	33	AISDisplay D 0:3:2:15
	34
	35	NewCommand D
	36
	37