tests/bugs/caf/bug26290_newattribute_2

   1 # OCAF VISUALIZATION
   2 # Presentation attributes
   3 #
   4 # Testing attribute: TPrsStd_AISPresentation & TDataXtd_Presentation
   5 #
   6 # Testing command:   standard set of commands
   7 #
   8 # The test checks joint work of these attributes, opens kept before file 'bug26290_new_1.cbf', modifies it,
   9 # checks Undo/Redo work and keeps it in 'bug26290_new_2.cbf'
  10 pload FULL
  11
  12 # prepare document
  13 box b 100 200 300
  14 NewDocument D BinOcaf
  15 UndoLimit D 100
  16 NewCommand D
  17 set Lab1 [Label D 0:1:1]
  18 SetShape D $Lab1 b
  19 AISInitViewer D
  20 vsetdispmode 1
  21 AISSet D $Lab1 NS
  22 AISDisplay D $Lab1
  23 vfit
  24 NewCommand D
  25 Undo D 1
  26 Redo D 1
  27 AISColor D $Lab1 11
  28 NewCommand D
  29 SaveAs D $imagedir/bug26290_new_1.cbf
  30 Close D
  31
  32 # test
  33 Open $imagedir/bug26290_new_1.cbf D
  34 UndoLimit D 100
  35 NewCommand D
  36
  37 ## DFBrowse D
  38 AISInitViewer D
  39 vsetdispmode 1
  40 vfit
  41 NewCommand D
  42 set Lab2 [Label D 0:1:2]
  43 pcylinder cy 50 190
  44 ttranslate cy 200 0 0
  45 SetShape D $Lab2 cy
  46 AISSet D $Lab2 NS
  47 AISDisplay D $Lab2
  48 NewCommand D
  49 vfit
  50 AISTransparency D $Lab2 0.7
  51 NewCommand D
  52 Undo D 1
  53 Redo D 1
  54
  55 SaveAs D $imagedir/bug26290_new_2.cbf
  56 AISErase D $Lab2
  57 set Lab1 [Label D 0:1:1]
  58 AISErase D $Lab1
  59 NewCommand D
  60 Close D
  61
  62 Open $imagedir/bug26290_new_2.cbf D
  63
  64 ## DFBrowse D
  65 AISInitViewer D
  66 vsetdispmode 1
  67 vfit
  68 AISColor D $Lab2 44
  69 AISErase D $Lab2
  70 AISErase D $Lab1
  71 AISUnset D $Lab2
  72 Close D