# OCAF VISUALIZATION # Presentation attributes # # Testing attribute: TPrsStd_AISPresentation & TDataXtd_Presentation # # Testing command: standard set of commands # # The test checks joint work of these attributes, opens kept before file 'bug26290_new_1.cbf', modifies it, # checks Undo/Redo work and keeps it in 'bug26290_new_2.cbf' pload OCAF VISUALIZATION # prepare document box b 100 200 300 NewDocument D BinOcaf UndoLimit D 100 NewCommand D set Lab1 [Label D 0:1:1] SetShape D $Lab1 b AISInitViewer D vsetdispmode 1 AISSet D $Lab1 NS AISDisplay D $Lab1 vfit NewCommand D Undo D 1 Redo D 1 AISColor D $Lab1 11 NewCommand D SaveAs D $imagedir/bug26290_new_1.cbf Close D # test Open $imagedir/bug26290_new_1.cbf D UndoLimit D 100 NewCommand D ## DFBrowse D AISInitViewer D vsetdispmode 1 vfit NewCommand D set Lab2 [Label D 0:1:2] pcylinder cy 50 190 ttranslate cy 200 0 0 SetShape D $Lab2 cy AISSet D $Lab2 NS AISDisplay D $Lab2 NewCommand D vfit AISTransparency D $Lab2 0.7 NewCommand D Undo D 1 Redo D 1 SaveAs D $imagedir/bug26290_new_2.cbf AISErase D $Lab2 set Lab1 [Label D 0:1:1] AISErase D $Lab1 NewCommand D Close D Open $imagedir/bug26290_new_2.cbf D ## DFBrowse D AISInitViewer D vsetdispmode 1 vfit AISColor D $Lab2 44 AISErase D $Lab2 AISErase D $Lab1 AISUnset D $Lab2 Close D