WW MYSGCASGDAEHKy]OA BըaBZ~LJPSCNA0pCSD3CSD2CCSD1@CSRP6CSIUImCSLVTXTCj DRAP} FFIG(SRCMSCNAWWp:826J>& 6cJ8@Rg O)/DHZeX fu͡dD "`CSD3WWCSD2WWCsicht=128*verdeckt txt="Beweg mich! Dreh mich" r=stw(txt)/1000*GLOB_SCALE !Textbreite als Radius HOTSPOT2 0,0,99 !Fangpunkt am Objekteinsetzpunkt ! Vertikale Richtung HOTSPOT2 d, 0, 01,c,1+sicht !Basisfangpunkt HOTSPOT2 d, c, 02,c,2 !beweglicher Fangpunkt HOTSPOT2 d,-1, 03,c,3 !Referenzrichtung ! Horizontale Richtung HOTSPOT2 0,c, 04,d,1+sicht !Basisfangpunkt HOTSPOT2 d,c, 05,d,2 !beweglicher Fangpunkt HOTSPOT2 -1,c, 06,d,3 !Referenzrichtung ADD2 d,c ! Drehung HOTSPOT2 0,0, 07,w,6 !Mittelpunkt HOTSPOT2 r,0, 08,w,4+sicht !Basispunkt HOTSPOT2 r*cos(w),r*sin(w),09,w,5 !Beweglicher Punkt ! Eindrehen und (Text)ausgabe ROT2 w IF not((PRG=10 or PRG=11) and GDL<= 1.331) THEN TEXT2 0,0,txt ELSE LINE2 0,0,r,0 ENDIF DEL 2 CSD1WW@GDL=req("GDL_Version") PRG= REQ("Program") CSRPWWCSIUWWmUI_DIALOG "Zurücksetzen" , 300, 200 GLOB_UI_BUTTON_ID = 0 x=100 y=50 br=150 h=20 id=1 UI_BUTTON UI_FUNCTION, "Parameter zurücksetzen", x, y, br, h, id UI_TOOLTIP "Parameter zurücksetzen" x=100 y=150 br=150 h=20 id=2 UI_BUTTON UI_FUNCTION, "Standardwerte übernehmen", x, y, br, h, id UI_TOOLTIP "Standardwerte übernehmen"CSLVWW! Zurücksetzen aller Werte auf 0 durch VALUES !IF GLOB_UI_BUTTON_ID = 1 THEN !id=1 -> zurücksetzen Werte auf 0 ! !! VALUES "c" 0 !! VALUES "d" 0 !! VALUES "w" 0 ! !ENDIF ! Zurücksetzen aller Werte auf 0 durch VALUES mit Parameterarray !DIM wt[3] !Anzahl der Parameter =3 !wt[1]="c" !Parameter 1 !wt[2]="d" !Parameter 2 !wt[3]="w" !Parameter 3 ! !IF GLOB_UI_BUTTON_ID = 1 THEN !id=1 -> zurücksetzen Werte auf 0 ! FOR k=1 TO 3 ! VALUES wt[k] 0 ! NEXT k ! !ENDIF ! Zurücksetzen aller Werte auf 0 und Standardwerte durch VALUES mit 2-dimensionalem Parameterarray !DIM wt[3], wt1[3] !Anzahl der Parameter, Werte !wt[1]= "c": wt1[1]= 1 !Parameter 1: Wert 1 !wt[2]= "d": wt1[2]= 2 !Parameter 2: Wert 2 !wt[3]= "w": wt1[3]= 20 !Parameter 3: Wert 3 ! ! !IF GLOB_UI_BUTTON_ID = 1 THEN !s. Interfacescript: id=1 -> zurücksetzen Werte auf 0 ! FOR k=1 TO 3 ! VALUES wt[k] 0 ! NEXT k !ENDIF ! !IF GLOB_UI_BUTTON_ID = 2 THEN !s. Interfacescript: id=2 -> Übernehmen Standardwerte ! FOR k=1 TO 3 ! VALUES wt[k] wt1[k] ! NEXT k !ENDIF ! Zurücksetzen aller Werte auf 0 und Standardwerte durch VALUES mit 2-dimensionalem Parameterarray aus Datei test.txt DIM wt[3], wt1[3] wt[1]="c" wt[2]="d" wt[3]="w" IF GLOB_UI_BUTTON_ID = 1 THEN !s. Interfacescript: id=1 -> zurücksetzen Werte auf 0 FOR k=1 TO 3 VALUES wt[k] 0 NEXT k ENDIF IF GLOB_UI_BUTTON_ID = 2 THEN !s. Interfacescript: id=2 -> Übernehmen Standardwerte ch=OPEN("DATA","datei","MODE=RO,SEPARATOR=':', DIALOG") FOR k=1 TO 3 searchfield=wt[k] wert=INPUT(ch,searchfield,1,wt1[k]) VALUES wt[k] wert NEXT k CLOSE ch ENDIF TXTCWWDRAPWWWW0?A?B?c?d?w verdeckt getbackX DimensionY DimensionVerschiebung in XVerschiebung in yDrehungFangpunkte verstecken?ZurcksetzenFFIGWW(image/pngPNG  IHDRIޅgAMABOPLTEttt{{{듓˴@@@000bbPPMM66XXXNNN$$$iii" pHYs  $tEXtSoftwareQuickTime 7.0.3 (Mac OS X)^8ItIME aIDATxWk@ =88g֑$#nJGs;IIAr,asPcx0 eŋy ʐ.M(8xӺ_/$&ySN$)8 j6B~gQd)>[Ӳ_>J, 4Ji m%n{ӺE>Ź&_YsRv*9w|R_S~dQO =m,pγ'yjfrJ`pQAW8Zf=*a$ɮ:w]X4GVe^:m?6ݟuڷ7V*A:-1ׂߤU}lFHVvJ׻S:q>[Gcζݢø6W:C 1VЕIfZY9Mm{uv"v3B>.WT4/J.; rFVB= Gl6J{cMP[O7p,{GGGGGGGqd/ekIENDB`SRCMWW