Вверх ↑
Ответов: 8921
Рейтинг: 823
#1: 2023-12-31 18:11:44 ЛС | профиль | цитата
С Новым Годом 2024!!
Желаю всем нам встретить и 2025, и 2030 (в свете события Апофис 2029)!!
Нашёл у себя подходящую картинку:
Гравитационная Линза


Add(MainForm,2953706,399,42)
{
Left=150
Top=50
Width=599
Height=537
link(onCreate,4529164:doWork1,[(445,62)])
}
Add(Bitmap,10335066,497,98)
{
Picture=[ZIPE6710B0078DAEDDD777494E79DE8F1DDBFF76C28EA0D30B837DC304D08F52E4D2FD248A351D7684665D47B979050454242A8D37B2FA69966D36D63C0066C88633B4EDC12277777FFDFFBBCF30A99F54D72B3D96437F79EEFE73C9E339A794572E63DFECECFCF0C33C171BF76FCD33F48DE14FF3C2BFEF9B77F94FFF9C77FF074DE7E70FAFEC7DD6BF6FC0700C0FF5F683B00D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0040DB0100B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED00FEB3FEFDDFFF9D0701B41D0040DB0100B41D0040DB0180B60300683B0080B60300683B0080B603006D0700D07600006D0700D07600006D0700DACE830000B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600006D0700DA0E00A0ED0000DA0E00A0ED0000DA0E00B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B0080B603006D0700D07600006D0700D07600006D0700DA0E00A0ED0000DA0E00A0ED0000DA0E00B49D070100683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0000DA0E00B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600006D0700DA0E00A0ED0000DA0E00A0ED0000DA0E00B41D0040DB0100B41D0040DB0100B41D00683B0F0200D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0040DB0100B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0000DA0E00B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B00D0761E0400A0ED0000DA0E00A0ED0000DA0E00A0ED0040DB0100B41D0040DB0100B41D0040DB0180B60300683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0040DB0100B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED3C080040DB81FF2784BDFAB388D7678B15F5FAACE83766FFC125EE1207F05881B6037FE7E296CC895F3A47B17CB658AA15AEE2BAF4E3B2B9CAE52E62A956CE55FBBB88A559E5AA59255D11C788250E1087F1E881B6037F5734FEEE22CECA15D22A4C7C55E7EF2A375CBBF2C79E6BFDE7EA56B9E8574B97D2757F57F98A3EC0555CCAC78883E39633C983B603FFC366922EE670B1542BE7CCC47C663E17F516493704BAC897F2D205CC31AC761377C99762E99C7F82DAD979F18B3CB6A0EDC0FF40D597CD92722DB2BCCA4DCAFB635B2E3AB9E7CE25D22D0E3306B92604BB894B79C9D7E5A15D4EBD9C7D71A33CD8CB9D178BC719B41DF8EFA15AF1CF0981EE89C1D2C68B48BA73CCFE71C91B2F72A8A74B1EE89A18E4660A76174B5C9959330788251F2F5DAEF65007B98BEB62B0174F01D26520333C683BF0B715A84A34AD764F0A727BB4EBE2228FD922C222E933C3B9B832B3C4B38029C42D39CC2329D45D5C91232F5672B89729D42331C47DE648F97793825D54C13E9911EEA64057A3B837D053DCC8230FDA0EFC8D14D5F7EA035C9343BDB5CEB95ADE75D104CF99D97591D74CBDE525922E9668BB582961EEE6D0E9CECB379AC33D93C2DCCC111E3353BDF42B616E19915E9583FB6282BCA41B83C93B683BF0D72746F4036FBF63A91C4D0DF53087F998233DF541A2EAB37E32A58BB1FCC76287FE87AA4B37467858C23D52233CE503C4125712825CE4BBE4DF952F2D91DE850A8F86C183F5636F550E1D4B6BA9B28478C87B3B9C0BD076E0AF420CE729CAC5357D47520B3798CB46B24BCC529FC3A5A4EB43DDCCF24E8B33E369915E6991DE72BAE5E17C3AECE1EE626217614F8B9296F875715D2C71BB1C79738497F42BE1D3C75BA27C33A25D87769E9B3CFD69FB8EAB65E3272B360EA687CC4D08764D89F0E28C80B603FF45D27E4BB057DDD0FE55BAFAC8ECB650475B62F348B231CA1AEF9E1CEA298A3D3D8447FC18F099417D665697C7F5D44877B9EDFF21EF8F9E08E423B3E27C2C116E29919E59319EDBB76EAC193E357AE18B8E7DB7F2FAB63A06B66404BBCAFF2DC079016D07FE2B61D705CD0D4ACDB2366D8DC96B8DCCA8892E6C5297AD37E6B4A61857DBA2A5ADF2F408CFAC086FD1EA9470571167B9F3335B2EA2D2E24729ECCEB6A7477B66C478A5C778A447793B877C69893F441C260672714076ACB7B857C4DF1AE761B39A0BBB0F37EEBF593571B176F3BB192DA3994D1BD2E2BC53C2A40D1CCE0E683BF097490876330479EC3EFB619CAD2736BD23A9BC33AEB0C5D2BC35A569A865C79E4CF553A2C059B1EEA9D19E59911E195162B98BD44BA1965B2D255D5C3A1B1EE521C22E9618C8B363BDB262BCA4C88B5BA2BCC5B24449C788E3C51F22EEB2C6FBDA15BEDAE0A7860E7E50BCE1EDA643EF554E5EAC19BB54BDF18CB2A44D1C9F1CEE259E383841A0EDC05F10F6C4107775E882D6A953898ECE7873F532755A6471536C518BA9ADB76468481FF66489FA4947BC6F7EDCFC9C38D7F458EFB46877B9E1D2E56393B97CA388B9A8BA585685574E9CB7B3F09E72E1E5CB991D9BCC684F6BAC575EB632B7EBA075EDD6CAA9F3F5DBDE716C3856317A26AB61679C754D56A457FF91BD9C23D076E03F2531C8F98E9750CFBD676F6EBAF8304C5D149E5A6AAC6C5756B5D9B7ECD4F47624ADEBD1F70EEB6AAB8D4D8DAAECB4F4789FBC782F5BB4D78FBB2ECE295DFE51ACCC38A9E7D6781F9BC2CBAE94AE8825DF22EE95B6E2C561B1D39117CD177759621765376F2F183C523C74307FF478E9E4715BDFEEAA8933955B8F89DF4A97867C3E610CB41DF873C9EF6F1197E608B763EFFF6AF3A90F576932C3D31DC1B69282F16D21F5ADD1B5F5C6AE7E6DF790A17F7DDEE60399BD9B53629FB6A9BD33C50C1FEB2E253A763AE959D34BDA8711B91661172B4FE523E55D210DF036E7A518F845FCC5927F517E22C851F8354EEDCA1C1ECD19D85C387AB062F274DEE0FEFCA19D8E9123DAD681AC78CF98E86753A2795D15B41DF8B3C8EF5D490BF34A09F71DDE77559D5BB34C610ECE2C8AA9A9CBDEB86D556D634C5B6FFAD89EACF1DD49EB26F2B71DB5744E599256DB15BE19713E36E7AE8B5C697129AA3E1376AB73621761CFD7F8D8949EE2BAB414BE36E7009FADF091F32E2F718BB8373D6E91636C5BCEE01663D798A96BC43EB2C7D431621BDEAEAAEC5A51546C8D77ABDD7784F305DA0EFC39614F89F0B2447948AF90A6469E79FFEBCD27EFAC36E6ACCE295F6E495B5D509CBA699B756A9F75EA80B16F53F6E85EDBC643B6F1A3C919519971F3C5109EA190365B44CF459FE5DDF55C31813BC39EAB94E6F63CB5B743E32B56BEC25B2CBBCA6B6697667A133EDE793D5E8ABF433FCF94B022AB775B72CFB069ED7062C74452F76872CF44C6F0B6D88A7A6D4B5B86F219F124C259036D07FEB4D408CFB4482F69373BC6AB73E3E4ED5FFD4BCDA60331656B5616572C4DB61A060612378CAE6AA8CDDCB2C734B8C9D83999DAB7B760E26CC5A6B7B48A67B3D53E0EE75B5C729C3D97C77569C57B3E3EB4CB6D2F50798B25522F0FF0B98FF22E6FC24B07ABBD0BD53EE94921D6A1ADD9FD3BACFD87ADFD7BD27BB6A40D8C67F64FB5ED3DA8EE1B110724B5B673D640DB813F1DF6F468E75F328AF4CA8C751D397C79E8E895E1CB57421D75CBF31DAB4ACA33263729BABB97380A957DEBD2C677A40EEC48EF39507DF05DF3F89EB2ED87D332227215EEF2EBA48F875AAC5C67D8E5B61768A5B63BB452E4E5B68BDBB3E33CF2347EE28A3CE18B2BA2DBC57A3F6DAE5ADD58A16DEECCECDC656D3F90D5B3236BDD66FBC6AD39633B4DA3DB15D68442ED3C7B9C37E70EB41DF86366DEDCE27C47A2DFD0E1EBA5C33D2F99935E4DB3141F3CBACAE1589A97B53C2F7D6551C1AADADAF203A752C7F6564C5E2ADEF27EE9964B3527EFB45EF8CCAA999FEB1CC2731FBD5A2A2F39D7F96A5F79682FD2FA15E97CC5129D17B5174BB4DDAE16D7C5903FBF40ED95A7F428D2F816EBE659D2A323CB4BF575B539EBF7146C389AB9FE404EDFAE92C9FDC6B543F6913DB91D5DC52ADF82A4E73877A0EDC01F0BBBF41E9568CFDC18F7F418B71DEFDE49EA6D5F999EBAC46C793923256A6D63707DE952BB39A8323FA0CC165A5F9D3E311555DB91D0B7A770FBA5A1F7BF6C387ABFE9D8DD14D3329B5A0ABBFDFF588F6FC888B68B995C8CEEA2EDF21203BC98DBF3757E455A719877967A6181CA3D59BF784556767855556C4DAD76EDA87DF86046E70EDBC0B6D20DE38E6DDB6C53C756D8EBECCEA7867C05FF3681B6037FA4EDB1D2DB5AB262DD2F7D746FC7A5FB2B7431C1B6BC372C89CF65A7BE6EB3BC94A653363A5616A507D63816E766250F8F9847A642EBDBD3C6F7551DBF63E93F68C9492D48982F8FE2D31BE92AAFE9F578DBB53E62629F69BB3CB74B6F9E71EEC314A8E78BDBAB4CF30AF44FDACAB22C5DDDF1B5AD21A5A5E6AE89EC813DD9A37BF5EBC74CEB076DDB0F58779F708C9E28313837ED557C8618683BF0073C7ABFA27776A4CBE099FBC6751D2F24695F4854BF9693FA428AF1A5ACE4D8E6AAA595F92B6A1C2FE5A53E916A0A68AC7A2EC51852DD66D93055BBFF8C51F34699C1DBAEF62DD478CFE45DAC0229E0D3DBECE2B258374F545DB4DD39BD7B1569DCC58DE2B7C4CA55CF73683CF3B59E22EF859A05F9F12E05790AFF8C3463674F58556D724BBFB2A12BA2AE53BF6653E6E6AD8EC3A786F76D2B9F3C54A07D423C1788FF21CE20683BF0133F7E2040BC4F745C40CEFA9EA7E2C3975A129ED4C63F6BD03E69D0BC9696B438D3FC4C46E26BD6C4D78BAC2F655A9ECF4C5D95576C2CAD49D3BF5C93F0844337DFA1F3CCD34E6FA18BCB429DD4F0C2E9E537137C794A975E51D5FAE4A8E68BEB855A4F69A4D7B9892BCE61DE471C9FAF77CD487C3EBAA239B6B67E5551695C5397A2B92FB2BE2BBCB12F6B6C4BFAF8AE5CE3A2E623E78C35EBF374D2FB6AC4AF701E41DB81C74DBF5F31DE53ACB173EF05E4E72C5244BE92A07EDEA05D9C94B0CC627EC392F2724AF2F2ACF457CD692FE934C1C58E15B9366B91B9316941A97E7E896E9EFC4AA8BC9D2E0DE7CE35F3826981D6F7F1ED17F9479BDA5B8CEE2546CF62834F99717E8EFE897CB57BBEDAB72CD1BB2E694151C2132DA5AB0C8DEB8D1DEBF49D83DA963E91F7A8FA3645DF707053B76DD7D1AAFDA7FBCE5CD3B56CC951BE28FECCB284059C47D076E071F23B5B72545E052ACFD2AD9B5F4C31FA86AF7C52A709C8B5BD9CA40FCE2B0C2D2C0F7314853BF203ED792F259A83929556CB1BB5890BA56D738DEF4CAEE5ED74716389C1B9F7A295EE956ED7CF136BA6EDD2ACAEF313B714B6F4A6B46DAF1C3ED43E3C61AE1F7014A7D8F50B2B0CF32B4B6CE6C6BDE696314BFB8861CD80A6A127B1A15F5FD31357D59E3C3091D0BF297FEBB1EA2DE76B365F4A5ABB2BA37CD8A191FE7380F308DA0E3CCEF9BAA767BECA3329FE494D4BCDB389F1CF2BA39F35AA5F3419A34B2AA3F2CAE34ACAE22B6A231B1B5615DB5F31EAD3752F54A43C5395F484FC36F599C95C7E038CBCE44DF5E9174F45E48DDEF93A3FBB6A7E86C2D3AE76CFD12D6EECEB4F6E1ACEDBB03BA3679BA96E58D7BCDE58DE66695E67AC1DC85ABB33A97A445DD8A1AD1DD0D4759B9A86931A86C5ED6225356EC86CDD9CD5B1C7B1FE4C56D3A6C281B39139EB1C86270A55BE9C47D076E0F1B0E7A9BD73D49E36D5A28C356B5F30189FD6A9179B74B11595518E3245597D6C69B9BFCDFA7C5AFA92A2FC6515458696DE74C3E2CA64BF62838F34A5EBE6C9BBEB8FB75D0ABB56BA776613A650DA9CF1B16B3D4BF43E15A68585F94A5D6B5B724B9B7DDD9EB49E7DEAAAAEA89CC6D5A975597D5B2C1DBBC48A2F1E543BFA54C56B53D76E31374DA9CAFA631D9DC94D63999D7B525AB7294B860D1593DAAAF1AACDE792EA7645650CC9AFE1723641DB01994DE929DA9EABF12933FA356CDB625CBB76914EF57A9A2524AFE81573CA4B4996A0FC2275537BCC9AC6F48D1B756DEBFB769F72989E29332C70E8E64B61D7F8C9F59E19D467365EE4B7CACCBC7E9AAFF12E35CCAB485A90A47C31C26A35B57725370F26354FDABA0F25374EEAF27BA2F206151593C6A6C9B8F211C7F0D99CFE03F9A367D2BB0F978CBCAB2A1953978D24D66D2E18389DDEBE3F3ABF3F2EAF2F24A5A979FF85C6E14BA6D683F2CBB89C4DD076607A6E5779496F2F572F28D67A14B754C736D62D369BFCF3F3175BD2AC431BED93C3CBF31DC95D2371CDCD114D75F6D12DA96991A57AAF529D3427E769FCE4B63BB7D09D5557FBCA3D9FF90BAAF25F65CA537A486F86D1CFAB4A794993911A62AF36B70DA7B76F4D6BDB9BDDF156FA9AB7F4F57BB306CE2577BFA56EDE933B71B1F2F0EDA6130F2A76DD2AD97CC3D870D0DC7936B3FD88B9F550F1F8F5948EE3D105A39AC2B1F4D62D153BCF976E3A99D5F9B683B91DB41D788C34756BFC8A75BE056AAF7D07C69659B3A35BEAE31AAB020BCB5666A5670F75A76D1CEABC7825B36FA0A9BDBCD8F44C79C24231A24B1FFF2255DDFBD166BB34BACB7F4D49FEC08199AACB7F71A940E15DA0F4B36BBDD37333A3B36BE20B3AC26DDD868A495BCFA9FCA1CBA6F62305E3972BB6DF2CDE7ABD74EBF5AADD1F541DBCD571EEB3EA03EF976FBFACCB4A764C5EADDC71B7E9C0ADCE139F55EFBC933F7A25BDE36476EBD19AC9936BF7DDEC3AFF59BEE619879AB74182B603D3449345D88B127C4A750BCC71BE076F7D5AB467AF6D62A7BFBD68D7ED1B45BBA63A4FBF9DD4D1D536D05999EC5799E853A4959E0BF29D7F4D49BA54FFF8A95FF6FFF83132D6475FC621569652DAB4B1C77BD4F78E5ADA76690AD6D9BB4F65F79E2B1DFFA06CEAA648B77DEC7CCFE9CF5B45D28FDF2F9878B7F9C8C7E397BE98BAF460FCECEDB1776EB71EFDB0FCC0D58ED3F7862E7FD973F6F396430F73D79F33D4ED09CF2835554F36F70E5AE29F13FF37389BA0ED804C7A1F8B617EB1E1890283F46E96D4E4B092CD5B52BA27826CE5AF255BAA0FEDAD3A74AA71DB9E5CFD7C87DE4F7ACD54E357A0F4C9577AC99FD658A4F51397A2EDB6473D97DF273F9DF7388F02E7073C3A745E394AEF228DAF78FA28ECDF5D3179CE317ABEF6E0F5967D9787CFDE1DB9747FDD853BCDC7AE751EBBDD77EED3AEB77F5EBFF776F7E18FB65FFDFCECFB3FEF3E76B563CFD5F14BB746DFFDF98EDBBF9CFCE0AB35C7EEE56F7C377DED5B159B8FE5E45716EBBCDBBB1AC473076713B41D9095E8A5ADF232A35FA9D1A72241BAF2F6E7BF6DD9B5CD50DF195D5EA5AE696E9A3A54DE60AF4E585469F0B54B3BF38F765A9C5FB421DAFEF86ECC4F3E04529EDB0BB5F31C6A3F87C63B473D2F4FBD60D399F33D6F5D1E387667D7954FF75CFB74DFF5FB07AEDDDB72EEC3918B1F0F9E7BD875F2A3BEF30FC5F4DEBEFFBDFD37BFDC76E9FEC43B9FF49FBEDD76E06ACFA9DBFB3FFEAAFFFCFDAE539F546C7D3FB3F968D3D6ABFA98A5BD8363F94A37F1F4C1D9046D07A6E776FDBC12C3BC9284270A8DF3A4B735AA7CF7DCB85BD0B366E8EC49654DB5A5B5D696975862F495FF2ED2E31FF328BDB3512DBD8A2A7D7D92F36BF2A4A13DCE3B57E13B137631C08BCB7CB588BF67A14ADA78B7AA166D3F7AB875F7D989F3F7765FBEB7F5C6A7A317EE4C9DBF3375EEA3B12B0FDB8FBED77BE65EFFD9075D6FDD9EBCFA8B1D37BFDC78F17ECFB11B93EF3CC8EAD93D78E5B32D1F7CD17BEE5EE58E6BC5A397CA87DEB6DA321531CBA72EFDA254CD5F5F026D077E24A25D6A94F65B4A4C3E553A9F42E3930A63E893610121D9A9D95DEDC5C6F9052A6F11FF0AD34229E3CE2F4892BE084FE595A7F6923EB951E59DAF744EE98FBE8F63FA0B52E37D72E5EF608AF7946FB7C5FBE4C57BA56B5E1E3DFAC1D0B9FBA3E7EE0DBEF371EFA98FD71CBA5B3279B978E2DCC8F9FBC3173FD970EEE1F0F99FF79FBA3B7EE5B3D14B0F07CE7C3CFAEEA7A51B0FF59CB8D972E476CFDBF7FB2FFCBC74F33B35DBDE6B1D3B53A85BB876E785A1777F99A5799AB683B6038FB75D9AC9F5DE8546DF7CFDC20CF5A22CB5973D4F936058929FF0B428739EDABBC8305F2C31A84B1F4D1027455B84DAAEF095A777BBF3BB5045BD67BE055BFAB8E0F8E91FE54F98CC8AF1B2C7F859959E59EA45C39BC79AB75C69D97D7DDD89FB0D9BAE66761D597BE44EE7C1EB1BCFDFED3BF151FD8E77D61DBF3D72E69389739F4C5C7AB0EBD6571B2EDEEB3E77B76EDFB58EB76E8EDDF875FBD15BF6A193F6EEA3EB7AD666C72F6CDEF1FEE0955F1EB8F1904F83046D077EDA769DAFCDE8939C1A5062F42DD07915ABBD1D6A9F62AD9F4D257DB2BA188945DBB3E33CA6BFFFD4F94D79A2EDF2D75BCB6D17E37A66AC77468CD47371297FD9C7E34BA45E7A0A50F815189F9D3870A671D3F59AA9AB6B0F7EB0FEF483D20D976A26AFF49DB8DEBCF37AD5D4C5E61D97464FDEDD78F2EEE0DB9FECB8F355E9C4D9FCB1D3EB2F7FDA7CF08698E79BF7DFB4F61EB26F38911DFDD4E0910F1B765FE938F151D3E1BBCCEDA0EDC00CF99B32C46589E14955B6CE6E5A54A89C9FA7F6726EA4CF2BD47A8A59BD40277D18AFE8B3D4F658F799EFB9B639BFB75ADEA8913F2558AEFAA32FE6F310EBC7C88B193ECA3737CE5B8CF49AC8856B765D89CAEF2BD878A66ECBA5D6DD97CB264E77EEBF593874A261C7FBFDA7EE6DBCF8898876D9D6CBBD673FED3B75AF6AD38575A76FB71CFC78EDE19B8EB1B7FB8E7FD23EB62F3D555FB5E14CC3DE1B0D3BDE69DC72DEA1616E076D07A6C95F84E4FC060DEFC49224BD6149996E51A1CE374F3DDFAAF22B4AF0C9513C95AB59941AEE32FD19EFB15EF2368B98D2A5C8CBEF78FC236DFFC9F58C689F5C8DCF706D4C89E93975C84275696F5C617FDFE9BB1BCE7E5ABDE36CFF890F874FDE693F747DE3F5CFBBDFFAA07AF7B5EC81336513177A4FDF5EB3FBBDDCAEDDC5C367EBB6BEDBB2FB7A42F5649E76A1B962ACF5E0ADF643B79A474FD66D38C4A9046D077E32BA4B7FB154E59D383E1451995D6B9C579EB4A850B360B0D552BEA13F473D4F64DC1AE721BA9D1AE523B53AC6431EC5B39C5FEA31F312AA08FE4CDB678676F98A25D23B3542BADDAA58207D1548BCAF4DE997142BA6F7E3F6F5FB7A8FDF5DB3FFFAE6CB7727DFF9B8F3F89581A357DA0F5EABD9F541D99E0F5B8F7CDCBAE75AFF8EB79BC6CFD56D3CD23C79D65039149F98955B5933F2CE27CDC7EF551FBAD9509E7EF1FC7ECE23683BF0B862BD9F4DE397A359105D5F5A98F09C5DE99DA5F0CB8E753129E765A9BCB3A33DD2627CE4AD959FCEE451DE59CEC2CFB47DFADE482FF9DED448779174B1CCE1E2471F4BB8A725DC43DC28FF09A698A70DED6D6593FBD79FBCD97CF8FDA9AB0F062EDEEB3AF3C19A9D67BAF75FADDB7EADE3D047A52D13E2C945AB0FCEE93E503C783EA3B44E5FBB75ECC487CDFB6EAFBBFE8B96E31FADDBB4334BF1844D398FF308DA0EFC646E2FD179DA0CF302CB4B52E35C4A3522F55EE1114F59A2175815D22BA4A9311EF2F82D96DC6AB144C0A5F56847DDD976AF4CE77571638638D87980B857F4DC1CE19114EA9E1CE69112E62E0E73FE095E96081F53A45F78AEB97C62EF86530FA66EFCBAFBF4A723973E1DD8BEBF797C7F92D99811333F27DACB12E21117E41513F8547AA4BBF8CF8784F8D78D454D35BB6E946F7F2FA7FF5852E4FC347B5689763EE711B41DF88902ADEFF0A983B145166561B2F40AA96A7E4A7D76B16E5EAEC2777A5C8FF296E6F047614F8994963484CB9D7FB4B59E21E73DCA5DAC996D19715872B8BBB4C2A42B96282FE9D723BCD2C2BCC45DBAC885E141CFAA423DCDCD8DAD17EED5EFBFD6B2E5DD8E5DEF9BA37CD3637DADD16EE2C8CC28EFB4089F8CD05999316E22EF59EDC35587EEE7AF3B1C97983B76F9FB9E23D73883A0EDC0FF295FE3533DB1A7C0E097D6D660D7BC30BEB9C9A67EBA3673714AB8AB48BAB461FE680E17591643B8395C8AB3B834874F177E668C976775A9EA91EE337B3222E9F2E86E0A711397A9513EE24A72B86B6E4A8832DBDAB1F764B22E3423DC233174812ED8CD625CD9D6529912E197AC793535D82D35D23729CA5D193C2F39D43735DC55DCDE7DFD33D1F48C35BB7A4FDE6DD876415535C219046D07FE60DBD33A7BD25257561B9E2835FA14C6F93874F38B94DECE37C3784B498FF09AD98A1195962670E792F32E5F91233F937AE700EF9119E39B12E62ECFED49211EA660777989C22744F9F8E75875951D8E6DC71BF6BEAD8F5E981EE1690EF3498D7F42FC7A42E81C6D80F4CC52667E232AECA574E5A2FCAE0DEB0F9D5BBD7A71E6E8D1C4965D03971EF6EEBA90D834D172F8166710B41DF883D2326303B3126D4ACF9C58BF1C958B43E7A5CE54DB145E62FCB6447ACFA45B7A61D439B78B9ECB5BE8E27266FDD8FC088FB408B7AC47FB39C921AEE65037D1F68460B7C410776905B92586BA866718CA278EE66ED856BAF5704CF082AC28BFE408970CC5E2D428979460B7ECEA06ABFAA982F59B13A3DCF5F5ED0D7BDFDD78F597AD6FDDB16EBFBCE6E4C7A3173E299B7ABF64FC2CE70EB41DF863F2341EEB8F5CCC502EC856F8E4293D0AD45EF1E6D87CA58735D6B90FE39CCFC5042EBFE96526E9A610B799515C9AC6C564EEDC7591B65C9CAF9C8A670431F3CBC78B0344D545DE8D41AECED1DD3BCA6ACC199F6ADC77367FDD64E39623AA207763D8DCFEEE2C95455DD3BD3629D2B360CD9AC20D53A6C666B369B575C364C5CE777BCE7EBEE9DAC3DDF77F6F8C7CB27CE254F5C45ECE1D683BF02798CBADFED9B9A2EA0EB55FBACA3DBD3E4DAF79C6AEF0CD8C96667511EAA430CF99C95C0EB8347ECB2B584CE622DD6E09C1AE22E072EA67F66DA607FB4773BB68BBF8156DC0CFA49765235CA4CED7572B3ADA5F494CE93DB4A3B0A5DC525E1C1FE69D3D326E1E1A7DD392175B98217ED19C16668E9C3F7CE678C3AE7356954F802937B96B07670DB41DF8D312D40123C72FD87B3716287DF456E3928CD465B996E5A93AADEA858C681F69020F737F7C624F166D97622EE55ADA3F77567D662C17F59667F899E3E5BBE425AE2704BA2606CE3504494F1CA9235BC29AEAA2D6B677EC3B92D33B9C5C57B5CC51B8DA5258B0FD80A9733C32E20583730F5F13EA9733B9BD65D344665250647E97BA6E90B306DA0EFC5F196A2AC24A6A221C65E1F9D66566757C57DB6B69CAC5D94941F6D4948839C9E1EE29F2367BB0BB21C45513EA9214E89128BFF525C23329CC6DA6DB22EC52BD83A7A77A31B18B4B719721D06566E903DD2D615EE6F857E35BDB979556863496AA5BD7A4F50F691B5BD23A3A579AED01D60AC7AE33B1354D91B1AF273AAC619664657D778C29B1282BDE5ADBBBCC58C0F9026D07FE1CD931BEBD87AE69464797E4A48666DB5ECE3084B7940456A5BE91A90BD2F89B223CCDD1DEE991BEE608AFCC7097E4402F117631908B913E2BD2233BD2CD14EC39339C8B7ACB9D9776609CFB30D3495F3D572C714B7AA8474A844B8CBF8F25C227C0DF6F95A322D251A2AC6CD73575E76FDC9B37B6DBBC617BD2DAD1972DFAE762425FD51A42D3EDBAC2AAB430CF84BA2953E3D62D67AF72BE40DB813F53CDE8E1969D27F4EB4697646897E55ADE2CCA0E6AAC7EB5D8A26CAB0F6B6FD4F4B618A27D9363DC15892B92235DB3A33DCC41AE1951EEA6A827D3C2E6496F710FF7F8C97CFEE38FABDDC4D207489BEDA650D796E1CE98600F935DF566665A5CE433B13AF52B8909C14525CF6B13020BCAE3EA3B834BDAD59D53FE26F3739AC825064360468639C2C314314F15F46460561D670AB41DF84FE9D97BA9FCC0C1D489A9D0E6CA258E6C455753FAE01EF3E89AA8B5A5A12D2DFEF5652B737461C961469B5E17FB4452B87B455B55C3E44E63C8ECD460377DA08718CB1F6FFBF4AC1EE02A555D0CF0AB9DC10FF64C6A6A5912F87464E0A2C8D8C5C650B7B448EFE5EAD0445B767C51C56A6B4E58617D6C495F706ECDCAEC9C9559C94B32535ED747BE1C19FC667A9DAE7423E708B41DF80BF4ED3BD37AF86DFBBE63CB6BCB169AD4AF052C88E8EFCBD8BF33A6B73DB4BAE24D5B6A60A93DB6BE3C26CC3331DA377EA5B721F6D5C4200FE9330444CC9D191723FACCE68CF851EB3F57BA65B54B62B0748B36C02D4514DE6A090B7D3E597A6FE41C53B0675480675CCC8B49016E6A8B2EA2B0CDBFB829C851B4384DFB4C8AF6E514C3F3AAA8F0D2CA68477776DF764E10683BF017484DD5ECFBE05EFBF12B397BF6278D4E06AFA9090C785A97B024BC3657B9719D66ED9A67921294E5D92BFD1746543BF4BDEB123B07E2FCA5BD7743C0F4882EAD4703BC747D959B7C4B42A0147C5DC01C7390B741139818E466087151AF7655FABB284A0B82E3831357B9AF58FD66A4B522D09EF74AAAE63993EAD59C94572D66F59ABA2549B6A4A6359C1DD076E02F96DED0B1F1ED4BB5BB4F240D0F6BDA3B431ACAFC577A99DBCB22EAAB928706636A6BABF69CB48FEFB06D3F9832B275CDF6496DE4D38921EE9A8039FA552E624AD7F9BB6A56B98886CF6CC8E8C48FAB5CC48DE2BAC6B90FAF0F7631AC723305B97CF4C997BA8202636DA3393148A959AE4F8C7F2D2EFA4543F4F326CD628BF10583F2E5D4C497D2CDB1F5159C17D076E0BF68ECF8C53D973FAADBB43FAD7724B6B230A5B538BBA5D4DF668D305B14350DFA35EB54B52DB9FD7B4A068E968F1FD307BA6B9CF556FBBB1803666B56CF8E5C3257B7D2DDB0DC5D4A7DC01C71690C7251077A88BB44DE13823CA4E0AF7657AE703F7CE2ADC296D655FECFA80CFA188321243C5A9797F77A4ECA525BC61B39A9A1C585CFE8B52FC644724640DB81BF8AB4FAE6C6CD7BACDD0359BDC3B1E5F971B58E88DA5A656DC38AC067A2AC398AE6818CEE2D21F6EA9C8EF19C5C8398D5E357BAA9FDE7C62D77FFEEFB6FFFD76F7ED0AF9EA35EE1AE58EEA65E355BEFEF51575D76F5F27B0D7693E8BC72C51CE57217D54A31E7BBA98CAA8486F6E0254FC5E4E7C69A0CB10595AF18E39ED2C6BE94A0599E92FE9C3AE645450CE702B41DF8EB2AD9386E5DD3AF6D6C5DA90E0DABA80AABAC3795379942DCD4ABE726D577E8CA0703963F29667243C05CB568FB4AB7B8008FE367AEFCEB6F7FF8E177BFBD71FE8476859B7AF91CD5F25962B057AE981D2F257D6EDC9BB3E397CE51AD701573FED66D9B54258D9199250AA5367A994B48A6F965837AB149F78A56FB82222A637003A700B41DF85B3037346477F75BDA3AA3328DE1B682F09CD2B4206F53A8AB2AC8233E3628A5712266A9E7AB2FBEB07DE7CEF865AEF12BE69C39F7EE37BFFAFA37DF7EFFBBEFBEFFCD77DFFDFEBBDFFDDBEF7EA358EAA2583E2B6EE9CFC495E8D77E16BB748E58CAA5B356BFE16EA96F579A121431CB32531531B9798BD5FA97148AE763C379E441DB81BFA9BE8931CB607F5879B1A6A1D9DC3D189D9E991A345B1334B7BB3E5DED3F57959C6CAE5C1FAACFDBB5F3F0F0C4B862B95B777BF10FDF7CFBC3B7DF89B6FFCB0FFFFAFB6F7F3D35D8AD583E5BB1644E9C73C5BF39575C572C992D0A2F6678F1A36EC5CF344BDD8273ADAF29435E336878CC41DB81FF1E657D63896BFB2CDDEB748DED718EEA607381293927469F1B106518D97438385A55DA365AD3D6DDD53BA1F677F9E2934F7FF3F537DF7DFDED0FDFFFF6FBDFFEF0D567BF88797376D4EBB3C48A7E63B6FECD7F52BC312BF68DD9A2F3E2D25157A37ED3C56451BD121FC5E30CDA0EFCF7D39455C656D4ABF32BA3F3CAE3B21A42CD058ADCD663A72FAF546695F56CCE4C5028DEFC59D4EBB35F7BC1F3B75F7F23EDCCFCF0FB2FBEFAE6CB2FBF895A3237EA0D71D7ACE0976705BDBE2076C9AC98D76785BDF6CF31CBDCA297CE7D431FCB630BDA0EFCCF4AAF6A52580B3445D5FA8CDCE5AB43AFBF7FABBA69B473D3A5C6759B37ED7BABAABEC75EE818DF7EF0D43B571C5575BFF9F657F35D661DDBBAEFC1470F6E5DBF79F1DC05FF676735DA63A35FFFE7F837E7BEAAD6F17882B6037F579627A424D576EB56BAA7574D5DB976ABAC75382B2DE7E37B5FBCF7D183FB0FBFF8E5E75F7EF3F5B70F3FBEFFCB070F7FF5E0C1570F1F7EF1F0C19D6B37FB1B2A435F9ECBA307DA0EFC9D2B1F1859F6BCC7F9776E7C78E7C1673FFFE237DF7EFFDDD7DF7EFDEB6F7EFDABAF1FDEBAF3E907EFDDBAF1DE8DCB576BED561E2BD07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0040DB0100B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0000DA0E00B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B0080B603006D0700D07600006D0700D07600006D0700DA0E00A0ED0000DA0E00A0ED0000DA0E00B41D0040DB0100B41D0040DB0100B41D0040DB0180B60300683B0080B60300683B0080B603006D0700D07600006D0700D07600006D0700DA0E00A0ED0000DA0E00A0ED0000DA0E00A0ED0040DB0100B41D0040DB0100B41D0040DB0180B60300683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0040DB0100B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0000DA0E00B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B0080B603006D0700D07600006D0700D07600006D0700DA0E00A0ED0000DA0E00A0ED0000DA0E00B41D0040DB0100B41D0040DB0100B41D0040DB0180B60300683B0080B60300683B0080B603006D0700D07600006D0700D07600006D0700DA0E00A0ED0000DA0E00A0ED0000DA0E00A0ED0040DB0100B41D0040DB0100B41D0040DB0180B60300683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0040DB0100B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B00D07600006D0700D07600006D0700D07600A0ED0000DA0E00A0ED0000DA0E00A0ED0000DA0E00B41D0040DB0100B41D0040DB0100B41D00683B0080B60300683B0080B60300683B0080B603006D0700FCFDFBDF0736904C]
}
Add(Bitmap,3042156,560,140)
{
}
Add(DoData,12609256,497,140)
{
link(onEventData,3042156:doLoad,[])
link(Data,10335066:Bitmap,[])
}
Add(Image,9490441,560,189)
{
Left=85
Width=500
Height=500
Point(MouseX)
Point(MouseY)
link(Bitmap,12770496:Var2,[])
}
Add(Hub,15477813,455,140)
{
link(onEvent1,12609256:doData,[])
link(onEvent2,4202863:doWork1,[(480,153)])
}
Add(Button,12554658,399,140)
{
Left=10
Top=15
Caption="ХХ"
link(onClick,14936099:doWork2,[])
}
Add(Button,13712454,21,231)
{
Left=10
Top=45
Caption="Линза"
link(onClick,10870576:doEvent1,[])
}
Add(MathParse,14605705,189,252)
{
MathStr="%1*0.18"
link(onResult,5099695:doCalc,[])
}
Add(For,592573,140,252)
{
End=1999
link(onEvent,14605705:doCalc,[])
link(onStop,4661228:doEvent1,[(186,265)(186,209)])
}
Add(MathParse,10975351,280,252)
{
DataCount=1
MathStr="sin(%1)"
AngleMode=1
link(onResult,1950593:doFor,[])
link(X1,14605705:Result,[(286,243)(230,243)(230,292)(195,292)])
}
Add(MathParse,5099695,238,252)
{
DataCount=1
MathStr="cos(%1)"
AngleMode=1
link(onResult,10975351:doCalc,[])
}
Add(GetDataEx,12770496,560,175)
{
link(Data,3042156:Bitmap,[])
}
Add(Memory,6023775,308,140)
{
Default=Integer(255)
}
Add(HubEx,4202863,476,189)
{
link(onEvent,9490441:doLoad,[])
}
Add(For,1950593,329,252)
{
End=70
link(onEvent,10382772:doEvent1,[])
}
Add(Img_GetPoint,3786670,546,252)
{
link(Bitmap,12852350:Var2,[])
link(X,13046149:Result,[(559,243)(538,243)(538,299)(447,299)])
link(Y,7609775:Result,[(566,236)(531,236)(531,292)(496,292)])
}
Add(Hub,10382772,378,252)
{
OutCount=3
link(onEvent1,13046149:doCalc,[])
link(onEvent2,11974780:doCalc,[(403,265)(403,349)])
}
Add(MathParse,13046149,441,252)
{
MathStr="%1*(35-%2)+250"
link(onResult,7609775:doCalc,[])
link(X1,4530016:Var1,[(447,243)(432,243)])
}
Add(Img_Point,10096926,539,343)
{
Color=255
Point(Y)
Point(X)
Point(Color)
link(Bitmap,12852350:Var3,[(545,299)(538,299)(538,229)])
link(Y,7869985:Result,[(552,332)(522,332)(522,383)(489,383)])
link(X,11974780:Result,[(559,326)(532,326)(532,393)(440,393)])
link(Color,3786670:Color,[(566,320)(552,320)])
}
Add(MathParse,7609775,490,252)
{
MathStr="%1*(35-%2)+250"
link(onResult,3786670:doGetPixel,[])
link(X1,13643718:Var1,[(496,235)(419,235)])
link(X2,5731802:Var1,[(503,226)(368,226)])
}
Add(MathParse,11974780,434,343)
{
MathStr="%1*(223-%2)+250"
link(onResult,7869985:doCalc,[])
link(X1,4530016:Var3,[(440,315)])
}
Add(MathParse,7869985,483,343)
{
MathStr="%1*(223-%2)+250"
link(onResult,10096926:doDraw,[])
link(X1,13643718:Var3,[(489,306)])
link(X2,5731802:Var2,[(496,322)(368,322)])
}
Add(GetDataEx,4530016,426,310)
{
Angle=3
link(Data,5099695:Result,[(244,315)])
}
Add(GetDataEx,13643718,413,301)
{
Angle=3
link(Data,10975351:Result,[(286,306)])
}
Add(GetDataEx,5731802,362,287)
{
Angle=3
link(Data,1950593:Position,[(335,292)])
}
Add(GetDataEx,12852350,546,224)
{
link(Data,2963817:Var2,[])
}
Add(ScrollBar,14516768,189,84)
{
Left=285
Max=280
Min=220
Page=5
Position=250
link(onPosition,12576412:doWork1,[(284,90)])
}
Add(ScrollBar,6922080,238,91)
{
Left=85
Top=200
Width=15
Height=105
Max=280
Min=220
Page=5
Position=250
Kind=1
link(onPosition,12576412:doWork2,[])
}
Add(CheckBox,4824360,294,35)
{
Left=10
Top=120
Transparent=0
Caption="Вулкан"
}
Add(Img_Ellipse,15383459,301,203)
{
Point2=327685
Point2AsOffset=0
Color=255
BgColor=255
Style=1
Point(Point1)
Point(Point2)
link(onDraw,5804799:doWork2,[])
link(Bitmap,2963817:Var1,[(307,180)])
link(Color,6023775:Value,[])
link(Point1,6714349:Point,[(321,194)(237,194)])
}
Add(PointXY,6714349,231,140)
{
link(X,14516768:Position,[(237,131)(195,131)])
link(Y,6922080:Position,[])
}
Add(If_else,1129684,294,91)
{
link(onTrue,16348583:doEvent1,[])
link(Op1,4824360:Checked,[])
link(Op2,10222040:Value,[(307,82)(349,82)])
}
Add(HubEx,12576412,280,91)
{
link(onEvent,1129684:doCompare,[])
}
Add(Memory,10222040,343,42)
{
Default=Integer(1)
}
Add(Hub,16348583,343,91)
{
link(onEvent1,4529164:doWork2,[])
link(onEvent2,15383459:doDraw,[(368,104)(368,132)(291,132)(291,209)])
}
Add(HubEx,14936099,441,140)
{
link(onEvent,15477813:doEvent1,[])
}
Add(GetDataEx,2963817,546,175)
{
Angle=1
link(Data,12770496:Var1,[])
}
Add(LED,15319864,252,203)
{
Left=25
Top=70
}
Add(Hub,10870576,63,231)
{
link(onEvent1,15319864:doOn,[(214,237)(214,223)])
link(onEvent2,10124303:doStart,[(83,244)(83,258)])
}
Add(Hub,4661228,203,203)
{
link(onEvent1,5804799:doWork1,[(228,209)(228,188)(347,188)])
link(onEvent2,15319864:doOff,[])
}
Add(Thread,10124303,91,252)
{
Delay=0
FastStop=0
link(onExec,592573:doFor,[])
}
Add(HubEx,5804799,343,203)
{
link(onEvent,4202863:doWork3,[(480,209)])
}
Add(Button,16350523,91,364)
{
Left=10
Top=435
Caption="Открыть"
link(onClick,5354767:doExecute,[])
}
Add(HubEx,4529164,441,91)
{
Angle=1
link(onEvent,14936099:doWork1,[])
}
Add(ODialog,5354767,133,364)
{
Filter="All|*.jpg|*.bmp|*.png"
link(onExecute,6017879:doLoad,[])
}
Add(PictureStream,6017879,175,364)
{
link(onLoad,6525536:doResize,[])
}
Add(Resize,6525536,217,364)
{
Width=70
Height=70
link(onResult,697114:doEvent1,[])
}
Add(Img_Bmp,5894169,287,434)
{
X=215
Y=215
link(onDraw,5804799:doWork3,[(347,440)])
link(Bitmap,12770496:Var3,[(293,425)(601,425)(601,180)])
link(SourceBitmap,986651:Bitmap,[])
}
Add(Bitmap,986651,294,364)
{
}
Add(Hub,697114,259,364)
{
link(onEvent1,986651:doLoad,[])
link(onEvent2,5894169:doDraw,[(284,377)(284,426)(277,426)(277,440)])
}

карма: 19

1
Голосовали:sla8a