Adding test cases from grid chl
[occt.git] / tests / bugs / caf / buc60846
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