'encoding UTF-8 Do not remove or change this line! public glLocale (15*20) as string sub main use "graphics\tools\id_tools.inc" hSetLocaleStrings ( gTesttoolPath + "graphics\tools\locale_1.txt" , glLocale () ) GetOLEDefaultNames PrintLog "------------------------- Slideshow test -------------------------" call tiFormat3D_Effekte call tiFormat3D_Effekte call tiFormat3D_Effekte end sub testcase tiFormat3D_Effekte Dim Hor as string Dim Vert as string Dim Rund as string Dim Skal as string Dim Tief as string Dim Winkel as string '/// get value for angle ///' ' dim Vertikal% Dim X as string Dim y as integer Dim i as integer Dim Zaehler as integer Dim Posi as string Call hNewDocument '/// new document ///' '-----------------------------------RECTANGLE------------------------------------------------------ Call hRechteckErstellen (20,20,60,70) '/// create rectangle ///' sleep 1 ContextPositionAndSize '/// get position and size of rectangle ///' Kontext Active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" X=PositionX.GetText printlog "--- created RECTANGLE; xPosition @ "+ x TabPositionAndSize.OK ContextConvertInto3D '/// convert rectangle into 3d ///' sleep 1 Format3D_Effects '/// open 3d flyer///' Kontext "Drei_D_Effekte" try if Perspektive.isvisible then Perspektive.Click '/// check perspective ///' else warnlog "why not in draw?" endif catch warnlog "something is wrong mit perspective" endcatch Zuweisen.Click '/// assign perspective ///' Kontext "DocumentImpress" gMouseClick 40,40 ContextPositionAndSize '/// check position and size ///' Kontext Active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" if PositionX.GetText = X Then Warnlog "- Perspective not acitvated x: "+PositionX.GetText else Printlog "- Perspective seems to work" end if TabPositionAndSize.OK Kontext "Drei_D_Effekte" Aktualisieren.Click Drei_D_Effekte.Close EditSelectAll '/// delete rectangle ///' hTypeKeys "" '-----------------------------------RECTANGLE------------------------------------------------------ hRechteckErstellen (20,20,60,70) '/// create new rectangle ///' printlog "--- created RECTANGLE 2" Format3D_Effects '/// open 3d flyer ///' Kontext "Drei_D_Effekte" Rotationskoerper.Click '/// create lathe object ///' sleep 1 Kontext "DocumentImpress" ContextPositionAndSize '/// check position and size ///' Kontext Active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" if PositionX.GetText = X Then Warnlog "- Rectangle not converted into a lath object; x: "+PositionX.GetText else Printlog "- Creating a lath object seems to work" end if TabPositionAndSize.OK EditSelectAll hTypeKeys "" '/// delete object ///' sleep 1 '-----------------------------------RECTANGLE------------------------------------------------------ hRechteckErstellen (20,20,60,70) '/// create rectangle ///' printlog "--- created RECTANGLE 3" Kontext "Drei_D_Effekte" sleep 1 In_3D_Umwandeln.Click '/// convert to 3d in 3d flyer ///' sleep 2 gMouseClick 40,40 hOpenContextmenu y = hMenuItemGetCount gMouseClick 90,90 if y = 18 Then Warnlog "- Create 3d object does not work; x: " + PositionX.GetText if y = 14 Then Printlog "- 3D object created" ' ContextPositionAndSize '/// check changes using position and size of object ///' ' Kontext ' Active.SetPage TabPositionAndSize ' Kontext "TabPositionAndSize" ' if PositionX.GetText = X Then ' Warnlog "- Create 3d object does not work; x: " + PositionX.GetText ' else ' Printlog "- 3D object created" ' end if ' TabPositionAndSize.OK EditSelectAll hTypeKeys "" '/// delete object ///' '-----------------------------------ZYLINDER------------------------------------------------------ sleep 1 printlog "--- create CYLINDER" WL_SD_Zylinder '/// create cylinder ///' gMousemove 30,30,80,80 '/// This affects the Vertical-value down to 15 ///' sleep 1 hTypeKeys "" Kontext "Drei_D_Effekte" Geometrie.Click '/// geometry ///' sleep 1 ' Endwinkel.More Vert=Vertikale_Segmente.GetText '/// get value for vertical segments (default) ///' Hor =Horizontale_Segmente.GetText '/// get value for horizontal segments (default) ///' Rund=Kantenrundung.GetText '/// get value for edge rounding ///' Skal=Tiefenskalierung.GetText '/// get value for scale ///' Tief=Tiefe.GetText '/// get value for depth ///' Winkel=Endwinkel.GetText '/// get value for angle ///' '/// Check if every entry has a value <> "" -> an init value is shown. ///' if Vert ="" then warnlog "Vertical Segment has no init value" if Hor ="" then warnlog "Horizontal Segment has no init value" if Rund ="" then warnlog "Rounded edges has no init value" if Skal ="" then warnlog "Scaled depth has no init value" if Tief ="" then warnlog "Depth has no init value" if Winkel="" then printlog "Rotation angle has no init value" '/// Go back to the 3d-effects-dialogue and change the value for the cylinder ///' hTypeKeys "" '/// Deselect object and check if 3d controller has default values again ///' Kontext "Drei_D_Effekte" '/// Check if value for vertical segments has changed in 3d controller ///' if Vertikale_Segmente.GetText = Vert Then Printlog "- Vertical segment value read from object's properties in the 3d flyer" else Warnlog "- 3D flyer could not read vertical segment information from object. It is = '"+ Vertikale_Segmente.GetText + "' but should be = '" + Vert + "'" end if if Horizontale_Segmente.GetText = Hor Then '/// check if value for horizontal segments has changed ///' Printlog "- Horizontal segment value read from object's properties in the 3d flyer" else Warnlog "- 3D flyer not be able to read horizonal segment information from object. It is = '"+ Horizontale_Segmente.GetText + "' but should be = '" + Hor + "'" end if if Kantenrundung.GetText = Rund Then '/// check if value for edge rounding has changed ///' Printlog "- Rounded edges works" else Warnlog "- Rounded edges value could not be read by the 3d flyer It is = '" + Kantenrundung.GetText + "' but should be = '" + rund + "'" end if if Tiefenskalierung.GetText = Skal Then '/// check value for scale ///' Printlog "- Scaled depth works" else Warnlog "- Scale depth value could not be read by the 3d flyer It is = '" + Tiefenskalierung.GetText + "' but should be = '" + skal + "'" end if if Tiefe.GetText = Tief Then '/// check value for depth ///' Printlog "- Depth value could be read by the 3d flyer" else Warnlog "- Depth value of object could not be read by the flyer It is = '"+ Tiefe.GetText + "' but should be = '" + tief + "'" end if if Endwinkel.GetText = Winkel Then '/// check value for angle ///' Printlog "- Angle value could be read by the 3d flyer" else Warnlog "- Angle value is not correct" end if hTypeKeys "" '/// deselect object and check if 3d controller has default values again ///' Kontext "Drei_D_Effekte" sleep 2 Printlog "- check if 3D flyer goes back to default values if object is deselected" if Vertikale_Segmente.GetText <> Vert Then Warnlog " Vertical Segment - Default value is wrong is: "+Vertikale_Segmente.GetText+"; should: " +vert if Horizontale_Segmente.GetText <> Hor Then Warnlog " Horizontal Segment - Default value is wrong" if Kantenrundung.GetText <> Rund Then Warnlog " Rounded edges - Default value is wrong" if Tiefenskalierung.GetText <> Skal Then Warnlog " Scaled depth - Default value is wrong" if Endwinkel.GetText <> Winkel Then Warnlog " Rotation angle - Default value is wrong" if Tiefe.GetText<>Tief Then Warnlog " Depth - Default value is wrong" hTypeKeys "" Kontext "Drei_D_Effekte" sleep 2 Horizontale_Segmente.SetText "32" '/// change horizontal and vertical segments ///' Vertikale_Segmente.SetText "32" Kantenrundung.SetText "100" Endwinkel.Settext "300" Tiefenskalierung.SetText "500" Tiefe.SetText "100" Zuweisen.Click '/// assign changes ///' sleep 1 '/// check value changes ///' if Vertikale_Segmente.GetText = Vert Then Warnlog "- Default value is wrong" if Horizontale_Segmente.GetText = Hor Then Warnlog "- Default value is wrong" if Kantenrundung.GetText = Rund Then Warnlog "- Default value is wrong" if Tiefenskalierung.GetText = Skal Then Warnlog "- Default value is wrong" if Endwinkel.GetText = Winkel Then Warnlog "- Default value is wrong" if Tiefe.GetText=Tief Then Warnlog "- Default value is wrong" EditSelectAll hTypeKeys "" '/// delete cylinder ///' '-----------------------------------ZYLINDER------------------------------------------------------ WL_SD_Zylinder '/// create new cylinder ///' gMouseMove (20,20,60,60) sleep 3 ' check if default values are correct for a standard cylinder ///' Kontext "Drei_D_Effekte" ' Printlog "- check default valueus for a cylinder" ' if Horizontale_Segmente.GetText <>"24" Then Warnlog "- Horizontal segment number is not correct. should: 24 Is: "+ Horizontale_Segmente.GetText ' if Vertikale_Segmente.GetText <> "16" Then Warnlog "- Vertical segment number is not correct. should: 16 Is: "+ Vertikale_Segmente.GetText ' if Kantenrundung.GetText <>"10 %" Then Warnlog "- Rounded edges should be enabled for lathe objects. should: 10 % Is: "+Kantenrundung.GetText ' if Endwinkel.GetText <> "360,0 Ôö¼Ôûæ" or Endwinkel.GetText <>"360.0 Ôö¼Ôûæ" Then Warnlog "- for a lathe object Agnel should be enabled. should: 360,.0 Ôö¼Ôûæ Is: "+Endwinkel.GetText ' if Tiefe.GetText <> "" Then Warnlog "- This function is only avaiable for Extrusionobjects. should: Is: "+Tiefe.GetText Printlog "- Change basic geometric parameters for the object" Printlog "Segments : Horizontal: 8; Vertical: 8; Rounded edges: 50 %" sleep 3 Horizontale_Segmente.SetText "8" '/// changing values for cylinder ///' Vertikale_Segmente.SetText "8" Kantenrundung.SetText "50 %" sleep 1 Zuweisen.Click sleep 2 gMouseClick 90,90 sleep 1 EditSelectAll '/// select object ///' sleep 1 Kontext "Drei_D_Effekte" '/// control if changes are done ///' if Horizontale_Segmente.GetText <> "8" Then Warnlog "- Horizontal segment count is not correct "+Horizontale_Segmente.GetText if Vertikale_Segmente.GetText <> "8" Then Warnlog "- Vertical segment count is not correct "+Vertikale_Segmente.GetText if Kantenrundung.GetText <> "50 %" Then Warnlog "- Value for rounded edges is not correct "+Kantenrundung.GetText Darstellung.Click Zaehler=Modus.GetItemCount '/// get number of pssibole render methods ///' for i =1 to Zaehler Modus.Select i Zuweisen.Click '/// assign every render method ///' gMouseClick 90,90 sleep 1 EditSelectAll '/// select object ///' sleep 1 Kontext "Drei_D_Effekte" if Modus.GetSelIndex <> i Then Warnlog "- Value for render modus did not change" '/// check if render method has changed ///' next i Printlog "- Check 3d shadow and surface angle" Drei_DSchatten.Click '/// check 3d shadow ///' Papierneigung.SetText "90" vert = Papierneigung.getText Zuweisen.Click '/// assign shadow ///' gMouseClick 90,90 '/// deselect object ///' sleep 1 EditSelectAll '/// select object ///' Kontext "Drei_D_Effekte" if Papierneigung.GetText <> vert Then Warnlog "- Value for surface angle is not correct" '/// check value changes ///' Entfernung.SetText "10" '/// set distance to 10///' sleep 1 hor = Entfernung.getText sleep 1 Zuweisen.Click if Entfernung.GetText <> hor Then Warnlog "- Value for distance is not correct; should: "+hor+"; is: "+Entfernung.GetText sleep 2 hTypeKeys "" sleep 2 ContextPositionAndSize sleep 2 Kontext Active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" Posi=PositionX.GetText TabPositionAndSize.OK sleep 1 Kontext "Drei_D_Effekte" sleep 1 Brennweite.SetText "50" '/// set focval length to 50 ///' Zuweisen.Click ContextPositionAndSize '/// check change in position of the object ///' Kontext Active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" If PositionX.GetText = Posi Then Warnlog "- Raising value for focal length has not changed optical appearence of object" TabPositionAndSize.OK sleep 1 Kontext "Drei_D_Effekte" Brennweite.SetText "5" Zuweisen.Click sleep 1 EditSelectAll sleep 3 ContextPositionAndSize sleep 1 Kontext sleep 2 Active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" sleep 2 if PositionX.GetText = Posi Then Warnlog "- Lowering focus length value has not changed optical appearence of object" TabPositionAndSize.OK Kontext "Drei_D_Effekte" '/// close document ///' Drei_D_Effekte.Close Call hCloseDocument endcase sub LoadIncludeFiles use "global\system\inc\master.inc" use "global\system\inc\gvariabl.inc" gApplication = "Impress" Call GetUseFiles end sub