RbBFBlokProj>9(or ËPSIVStrn5.5OPSpStrnUntitledACnmStrnAChpStrnACsvStrnlocalhost:7325Ver1Strn1Ver2Strn0Ver3Strn0RelsStrn0NnRlStrn0RegnStrn0SVerStrnLVerStrnIVerStrnDVewInt ÁX-prTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrupE¤EndGInt E¤CPalGrupÐE¥flagInt elemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿEndGInt E¥MacCStrn????BMacStrnMy Application (Classic)BCarStrnMy ApplicationBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy ApplicationBWinStrnMy Application.exeBMDIInt BL86Strn MyApplicationrEdtRectLàȾfTypGrupLE¦nameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt E¦PadnPadn8********************************************************BlokpVewÁX-,>9(or ËNameStrnWindow1ContInt rEdtRect;!•eSptInt ÿÿübPGpGrupPE§bPElGrup4E¨scKyInt õãÑrEdtRect;!•eSptInt ÿÿüEndGInt E¨EndGInt E§lstHInt —lstVInt †PDefGrup4E©nameStrnNamePValStrnWindow1EncoInt EndGInt E©PDefGrup(EªnameStrnFramePValStrn0EndGInt EªPDefGrup0E«nameStrn CompositePValStrnFalseEndGInt E«PDefGrup0E¬nameStrn HasBackColorPValStrnFalseEndGInt E¬PDefGrup0E­nameStrn BackColorPValStrn16777215EndGInt E­PDefGrup(E®nameStrnBackdropPValStrn0EndGInt E®PDefGrup8E¯nameStrnTitlePValStrnUntitledEncoInt EndGInt E¯PDefGrup(E°nameStrnVisiblePValStrnTrueEndGInt E°PDefGrup0E±nameStrn FullScreenPValStrnFalseEndGInt E±PDefGrup0E²nameStrnMenuBarVisiblePValStrnTrueEndGInt E²PDefGrup(E³nameStrnCloseBoxPValStrnTrueEndGInt E³PDefGrup,E´nameStrnGrowIconPValStrnFalseEndGInt E´PDefGrup0EµnameStrn LiveResizePValStrnFalseEndGInt EµPDefGrup,E¶nameStrnZoomIconPValStrnFalseEndGInt E¶PDefGrup(E·nameStrn BalloonHelpPValStrnEndGInt E·PDefGrup,E¸nameStrn MacProcIDPValStrn0EndGInt E¸PDefGrup0E¹nameStrnMenuBarPValStrn -1051190484EndGInt E¹PDefGrup,EºnameStrn PlacementPValStrn0EndGInt EºPDefGrup(E»nameStrnWidthPValStrn300EndGInt E»PDefGrup(E¼nameStrnHeightPValStrn318EndGInt E¼PDefGrup(E½nameStrnMinWidthPValStrn64EndGInt E½PDefGrup,E¾nameStrn MinHeightPValStrn64EndGInt E¾PDefGrup,E¿nameStrnMaxWidthPValStrn32000EndGInt E¿PDefGrup0EÀnameStrn MaxHeightPValStrn32000EndGInt EÀFDefGrupÄEÁNameStrnWindow1SizeInt ŒSuprStrnWindowbNtrInt CnstGruphEÂEncoInt nameStrnpitypeInt defnStrn"3.14159265358979323846264338327950flagInt EndGInt EÂEndGInt EÁCBhvGrup<EÃNameStrnSizeInt tSuprStrnCanvasbNtrInt EndGInt EÃCBhvGrup ŒEÄNameStrnSizeInt €SuprStrn PushButtonbNtrInt HInsGrup¼EÅEncoInt nameStrn MouseEntersorcGrup|EÆstsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub MouseEnter()srclStrnsrclStrnEnd SubEndGInt EÆEndGInt EÅHInsGrup `EÇEncoInt nameStrnActionsorcGrup $EÈstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrndim x1,y1,x2,y2 as integersrclStrnx1=10srclStrnx2=110srclStrny1=50srclStrny2=50srclStrndim rotation as integersrclStrn rotation=45srclStrnsrclStrn//the origin locationsrclStrndim originX,originY as integersrclStrn//the offsets from the originsrclStrndim x3,y3,x4,y4 as integersrclStrn//the distance to the originsrclStrn"dim distance1, distance2 as doublesrclStrn//the angle to the originsrclStrndim angle1, angle2 as doublesrclStrn//our new coordinatessrclStrn)dim newx1, newx2, newy1, newy2 as integersrclStrnsrclStrn //find centersrclStrn originX=x2srclStrn originY=y2srclStrnsrclStrn //get offsetssrclStrn x3=x1-originXsrclStrn y3=y1-originYsrclStrn x4=x2-originXsrclStrn y4=y2-originYsrclStrnsrclStrn//get distancesrclStrn#distance1=sqrt(abs(x3)^2+abs(y3)^2)srclStrn#distance2=sqrt(abs(x4)^2+abs(y4)^2)srclStrnsrclStrn //get anglessrclStrn if x3>0 thensrclStrnangle1=atan(y3/x3)*(180/PI)srclStrnelseif x3=0 thensrclStrn angle1=0.0srclStrnelseif x3<0 thensrclStrnangle1=atan(y3/x3)*(180/PI)+180srclStrnend ifsrclStrnsrclStrn if x4>0 thensrclStrnangle2=atan(y4/x4)*(180/PI)srclStrnelseif x4=0 thensrclStrn angle2=0.0srclStrnelseif x4<0 thensrclStrnangle2=atan(y4/x4)*(180/PI)+180srclStrnend ifsrclStrnsrclStrn//offset anglessrclStrnangle1=angle1+rotationsrclStrnangle2=angle2+rotationsrclStrnsrclStrn'//convert to radians now to save lattersrclStrnangle1=angle1*(pi/180)srclStrnangle2=angle2*(pi/180)srclStrnsrclStrn%//get new corrdinates based on originsrclStrnnewx1 = distance1*cos(angle1)srclStrnnewy1 = distance1*sin(angle1)srclStrnnewx2 = distance2*cos(angle2)srclStrnnewy2 = distance2*sin(angle2)srclStrnsrclStrn//offset from the originsrclStrnnewx1 = newx1+originXsrclStrnnewy1 = newy1+originYsrclStrnnewx2 = newx2+originXsrclStrnnewy2 = newy2+originYsrclStrnsrclStrn//drawsrclStrn4canvas1.graphics.drawline(newx1, newy1, newx2,newy2)srclStrnEnd SubEndGInt EÈEndGInt EÇEndGInt EÄCBhvGrup¬EÉNameStrnSizeInt €SuprStrn PushButtonbNtrInt HInsGrupTEÊEncoInt nameStrnActionsorcGrupEËstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrndim x1,y1,x2,y2 as integersrclStrnx1=10srclStrnx2=110srclStrny1=50srclStrny2=50srclStrn&canvas1.graphics.drawLine(x1,y1,x2,y2)srclStrnEnd SubEndGInt EËEndGInt EÊEndGInt EÉCtrlGrupEÌcclsStrnCanvasnameStrnCanvasPDefGrup4EÍnameStrnNamePValStrnCanvas1EncoInt EndGInt EÍPDefGrup0EÎnameStrnIndexPValStrn -2147483648EndGInt EÎPDefGrup0EÏnameStrn TabPanelIndexPValStrn0EndGInt EÏPDefGrup(EÐnameStrnVisiblePValStrnTrueEndGInt EÐPDefGrup$EÑnameStrnLeftPValStrn20EndGInt EÑPDefGrup$EÒnameStrnTopPValStrn14EndGInt EÒPDefGrup(EÓnameStrnWidthPValStrn260EndGInt EÓPDefGrup(EÔnameStrnHeightPValStrn266EndGInt EÔPDefGrup,EÕnameStrn InitialParentPValStrnEndGInt EÕPDefGrup$EÖnameStrnHelpTagPValStrnEndGInt EÖPDefGrup(E×nameStrn BalloonHelpPValStrnEndGInt E×PDefGrup0EØnameStrnDisabledBalloonHelpPValStrnEndGInt EØPDefGrup0EÙnameStrnAutoDeactivatePValStrnTrueEndGInt EÙPDefGrup,EÚnameStrnLockLeftPValStrnFalseEndGInt EÚPDefGrup,EÛnameStrnLockTopPValStrnFalseEndGInt EÛPDefGrup0EÜnameStrn LockRightPValStrnFalseEndGInt EÜPDefGrup0EÝnameStrn LockBottomPValStrnFalseEndGInt EÝPDefGrup(EÞnameStrnBackdropPValStrn0EndGInt EÞPDefGrup(EßnameStrnEnabledPValStrnTrueEndGInt EßPDefGrup,EànameStrn UseFocusRingPValStrnTrueEndGInt EàPDefGrup0EánameStrn AcceptFocusPValStrnFalseEndGInt EáPDefGrup0EânameStrn AcceptTabsPValStrnFalseEndGInt EâCBixInt EndGInt EÌCtrlGrup0EãcclsStrn PushButtonnameStrn PushButtonPDefGrup8EänameStrnNamePValStrn PushButton1EncoInt EndGInt EäPDefGrup0EånameStrnIndexPValStrn -2147483648EndGInt EåPDefGrup0EænameStrn TabPanelIndexPValStrn0EndGInt EæPDefGrup(EçnameStrnVisiblePValStrnTrueEndGInt EçPDefGrup$EènameStrnLeftPValStrn197EndGInt EèPDefGrup$EénameStrnTopPValStrn292EndGInt EéPDefGrup(EênameStrnWidthPValStrn69EndGInt EêPDefGrup(EënameStrnHeightPValStrn22EndGInt EëPDefGrup,EìnameStrn InitialParentPValStrnEndGInt EìPDefGrup$EínameStrnHelpTagPValStrnEndGInt EíPDefGrup(EînameStrn BalloonHelpPValStrnEndGInt EîPDefGrup0EïnameStrnDisabledBalloonHelpPValStrnEndGInt EïPDefGrup0EðnameStrnAutoDeactivatePValStrnTrueEndGInt EðPDefGrup,EñnameStrnLockLeftPValStrnFalseEndGInt EñPDefGrup,EònameStrnLockTopPValStrnFalseEndGInt EòPDefGrup0EónameStrn LockRightPValStrnFalseEndGInt EóPDefGrup0EônameStrn LockBottomPValStrnFalseEndGInt EôPDefGrup8EõnameStrnTextFontPValStrnSystemEncoInt EndGInt EõPDefGrup(EönameStrnTextSizePValStrn12EndGInt EöPDefGrup(E÷nameStrnBoldPValStrnFalseEndGInt E÷PDefGrup,EønameStrnItalicPValStrnFalseEndGInt EøPDefGrup0EùnameStrn UnderlinePValStrnFalseEndGInt EùPDefGrup4EúnameStrnCaptionPValStrngoEncoInt EndGInt EúPDefGrup,EûnameStrnDefaultPValStrnFalseEndGInt EûPDefGrup,EünameStrnCancelPValStrnFalseEndGInt EüPDefGrup(EýnameStrnEnabledPValStrnTrueEndGInt EýCBixInt EndGInt EãCtrlGrup4EþcclsStrn PushButtonnameStrn PushButtonPDefGrup8EÿnameStrnNamePValStrn PushButton2EncoInt EndGInt EÿPDefGrup0FnameStrnIndexPValStrn -2147483648EndGInt FPDefGrup0FnameStrn TabPanelIndexPValStrn0EndGInt FPDefGrup(FnameStrnVisiblePValStrnTrueEndGInt FPDefGrup$FnameStrnLeftPValStrn20EndGInt FPDefGrup$FnameStrnTopPValStrn292EndGInt FPDefGrup(FnameStrnWidthPValStrn69EndGInt FPDefGrup(FnameStrnHeightPValStrn22EndGInt FPDefGrup,FnameStrn InitialParentPValStrnEndGInt FPDefGrup$FnameStrnHelpTagPValStrnEndGInt FPDefGrup(F nameStrn BalloonHelpPValStrnEndGInt F PDefGrup0F nameStrnDisabledBalloonHelpPValStrnEndGInt F PDefGrup0F nameStrnAutoDeactivatePValStrnTrueEndGInt F PDefGrup,F nameStrnLockLeftPValStrnFalseEndGInt F PDefGrup,F nameStrnLockTopPValStrnFalseEndGInt F PDefGrup0FnameStrn LockRightPValStrnFalseEndGInt FPDefGrup0FnameStrn LockBottomPValStrnFalseEndGInt FPDefGrup8FnameStrnTextFontPValStrnSystemEncoInt EndGInt FPDefGrup(FnameStrnTextSizePValStrn12EndGInt FPDefGrup(FnameStrnBoldPValStrnFalseEndGInt FPDefGrup,FnameStrnItalicPValStrnFalseEndGInt FPDefGrup0FnameStrn UnderlinePValStrnFalseEndGInt FPDefGrup8FnameStrnCaptionPValStrnresetEncoInt EndGInt FPDefGrup,FnameStrnDefaultPValStrnFalseEndGInt FPDefGrup,FnameStrnCancelPValStrnFalseEndGInt FPDefGrup(FnameStrnEnabledPValStrnTrueEndGInt FCBixInt EndGInt EþPadnPadnP****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnuÁX,>9(or ËNameStrnMenuBar1ContInt rEdtRectdd,ÈMItmGrup˜FspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupÀFspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt FEndGInt FMItmGrup˜FspmuInt nameStrnFileMenutextStrn&FileindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupØFspmuInt nameStrnFileQuittextStrnE&xitindxInt €scutStrnQbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrn QuitMenuItembNtrInt EndGInt FMItmGrupÀFspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt FEndGInt FMItmGrup FspmuInt nameStrnEditMenutextStrn&EditindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupÔFspmuInt nameStrnEditUndotextStrn&UndoindxInt €scutStrnZbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt FMItmGrupÄF spmuInt nameStrntextStrn-indxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt F MItmGrupÐF!spmuInt nameStrnEditCuttextStrnCu&tindxInt €scutStrnXbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt F!MItmGrupÔF"spmuInt nameStrnEditCopytextStrn&CopyindxInt €scutStrnCbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt F"MItmGrupØF#spmuInt nameStrn EditPastetextStrn&PasteindxInt €scutStrnVbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt F#MItmGrupÔF$spmuInt nameStrn EditCleartextStrnClearindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt F$MItmGrupÀF%spmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt F%EndGInt FMItmGrupÀF&spmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt F&PadnPadn,********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjÁX+>9(or ËNameStrnAppContInt rEdtRect_K!•eSptInt ÿÿübPGpGrupPF'bPElGrup4F(scKyInt õãÑrEdtRect_K!•eSptInt ÿÿüEndGInt F(EndGInt F'bClsInt NameStrnAppSizeInt 4SuprStrn ApplicationbNtrInt IntrStrnbApOInt PDefGrup0F)nameStrnMenuBarPValStrn -1051190484EndGInt F)PadnPadn€****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!