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