аЯрЁБс>ўџ *-ўџџџ)џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьЅС` ёПbjbjъъ ;э€э€џџџџџџЄЈЈЈЈЈЈЈМрррр ь МЖЖппп&777777$l hд b[Јппппп[ЈЈлpщщщпЈЈщпщщЈЈщј ШЛkХрпщ†0Жщ6 п6 щ6 Јщ(ппщппппп[[п пппЖппппМММ$рМММрМММЈЈЈЈЈЈџџџџ  ќh}’§§9&P 1h0:picOАЦA А‚.!Аn"Аn#n$n%ААХАХ Ф†œ@@ёџ@ NormalCJ_HaJmH sH tH DAђџЁD Default Paragraph FontViѓџГV  Table Normal :V і4ж4ж laі (kєџС(No List џџџџйЪ0€№8№@ёџџџ€€€ї№’№№0№( № №№B №S №ПЫџ ?№хicO`{}’DЩџVџџ;  Fractal Tree™џџ Fractal TreeLcf@ЪyјўLcf@ЪyјўLcf@ЪyјўLcf@ЪyјўLcf@Ъyј0ƒ(  Draw Tree Draw TreeFractalTree.DrawTree˜ш(€€€€€€€€€€€€€РРРџџџџџџџџџџџџ  Њ  ЊЊЊ  Њ  ЊЊЊ         ЁЁЁ ЊЁЁЊ  Њ ЁЊЊЊЊЊЊp(џџџўўўўўўsї*QLЦ!j­Ё@єЧТЫдхєЯОџџProject.FractalTree.DrawTreePROJECT.FRACTALTREE.DRAWTREE@€ьЛ @@џџUnknownџџџџџџџџџџџџG‡: џTimes New Roman5€Symbol3& ‡: џArial"1ˆ№афh-@–f-@–fщ№nnДД4dЗ*[ 2ƒ№мHX)№џ?фџџџџџџџџџџџџџџџџџџџџџDЩ2џџTony WoodhouseTony Woodhouseўџр…ŸђљOhЋ‘+'Гй0„˜ЄАШдрќ   @ L Xdlt|фTony WoodhouseFractal Tree.dotTony Woodhouse2Microsoft Office Word@@цѕъКkХ@цѕъКkХўџеЭеœ.“—+,љЎ0ш hp|„Œ” œЄЌД М ЩфN/A  Titleўџџџ ўџџџўџџџ ўџџџ"#$%&'(ўџџџ§џџџ+,Dўџџџ/;123456789:ўџџџ<=>?@ABCEўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF0=жЛkХ.@Data џџџџџџџџџџџџ 1TableџџџџџџџџWordDocumentџџџџ;SummaryInformation(џџџџџџџџџџџџDocumentSummaryInformation8џџџџџџџџ!Macros ШЛkХШЛkХVBAџџџџџџџџ ШЛkХШЛkХdirџџџџџџџџџџџџFractalTree џџџџ0ThisDocumentџџџџ џџџџ й_VBA_PROJECTџџџџџџџџџџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQўџџџSTUVWXўџџџZўџџџ\ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџВ€0* pH‚dфProjectQ(@=­ l €cд D+ J< rstdole>stdoleP h%^*\G{00020А430-C 0046}#2.0#0#C:\WINDOWS\System32\e2.tlb#OLE Aut€omation`ƒƒEOffic„EˆOf€ic‚Ež€”€E2DF8D04C-5BFA-101B-BDE5€EAA€C4€2ˆE€˜gram Files\@CommonMicrosoft Shared\OFFICE11\MSO.DLL#‡ƒM 11.0 ObС LibАraryKгˆ‚Ѓ~‚ЈThisDocu€mentG€‚T€ЋisD€Г cum€onР]*Ю 2к Р HB1Bx%B,Т!]‰"EB+B РFractalTr eeGraZt@lTе@e% 2 O#DЅO#=ф!€ C#Т№ФдџџџџЫЃ~]‰џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020№dдˆџџџџkŸЃ~=фџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP "@џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ &Јџџџџџџџџџџџџџџџџ€џџџџџџџџ$„Iƒ(џџџџџџџџ џџ €s Iƒ*џџџџџџџџ џџР€leIƒ,џџџџџџџџ џџр€PrIƒ.џџџџџџџџ џџџџџџ€@„0џџџџџџџџ џџum@„2џџџџџџџџ џџcu@„4џџџџџџџџ џџy @„6џџџџџџџџ џџy @„8џџџџџџџџ џџMy@„:џџџџџџџџ џџc`„<џџџџџџџџџџ @џџџџџџџџџџџџџџџџш џџџџџџŒIƒ,џџџџџџџџ џџџџџџ€ј $џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „џџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪN"(€ џџџџ" 0€,8€ џџџџ€ Th Р р€ <@€ P$h ЈАИи€ џџџџfр€ :H$ˆ$Аиј€ `xЈ4А&ш(@X€ џџџџ`€ џџџџB h€ 6pЈШ€ џџџџ"а€ џџџџ и шј 0@Ph€˜ЈАИРШаирш№ј€ џџџџ0€ џџџџџџџџ@–A$ЌЌ&ЌДЌШA&coџџP–@]ђђђ0ђHђ`ђxђouрMCalculate the end points of the branch based on start point, angle and lengthle ( ,$@$> . '0 * ,$@$B . '2р6Calculate thickness of branch as a ratio of the length .Ќ '<рDraw the branch ( * 0 2 D!F%HB@H J!L!шѕ <9N R9P V9TЌ™Ќ3Ќ$@5X(@И”ъqџџ .Ќ œрSIf this branch is longer than the threshold, draw new sub-branches on the end of itр3Calculate length and angles of the two sub-branches .Др?$ZЌ '8 .Др?$ZЌ ': ,Ќ< $ZЌ '4il ,Ќ< $ZЌ '6erрYCall this routine recursively to draw both branches, and any sub-branches they might have 0 2 4 8A& 0 2 6 :A&dџџP ^ 0Ќ 2Ќ ЌЌ D!F%\B@HЌ3Ќ™Ќf$@ J!L!`!X(@ R J!L!`(P J!L!`B@b d J!L!ш(Pkџџ oџџ˜–Јр0Convert angles in degrees into angles in radians ,Д-DTћ! @ЌД'@iџџ0– D!$ѕЗ5f(h l9jЌ$p9nЌ$p9rЌ$p9tЌ$p9vЌ$p9xДє?$p9zДє?$p9|Д33333Г=@$p9~Ќ$p9€ „9‚ „9† Š9ˆЗ9ŒЗ9Ž ’9З9”З9–З9˜З9šЗ9œЌ9ž Ђ9 qџџш Ў Є!І!Ј!Њ(ЌoџџШџџџџРџџџџцЕAttribute VB_Name = "FractalTree" Sub Draw8()  Call PageSetup&PBranch(400, 55‰18200xEnd   Р Priva№_6StartX, Y, Angle, Leng„th~Dim Iз%#1+2,5Thickness As D`oubleЕƒ'hculGthe e€Rpoint s of b‚i based o(n sR ‚, ЦaQ€d l‚Rƒ)P€Іƒg + Si n(DegЊsToRadiansТ(‚n)) *pŠYYCos%Šd…yb`as aР ratio…l‰,GI=Ф# / 10%'СvCCActiveDocument.Shapes.AddLiИne(?sСD,nY).Selec‚tCWith (ionCR€Ue.УС.WeightРF†*Visiv@msoTr†u„xStylЗ@c€•ШForeColor.R GB@@(153п@А€‘AЎA€/ *У CIf…J> 5 @Then 'Рt0his ]@longer@Oan‚Pthreshold, dРж ne@w sub-C eяРУ AЂ@oiФI!HxУnBžТ †ЋtwoŠwƒ*ACФ1@8C O(0.5€LRnd(к)р=5„lЇ2ПCuA ЂZ - 60ёц * 3фHAС х#+!- #+Ё†l@&`(rout€J€ recurs N ly toу'boзH…'!rd "yj с.ˆy mтGhavˆCпЂ™(—ЇTDŠ&‰1h#ОХ‘2ЄElsЈ6g bh(UOval]BfX*@ €Y#48, 4ЫhA+ВhFihll.Q\5@Т\10Ѕ›xl7Sol\idgPЁr.Њ FFaц%€ If# Ц ЁŒШFun‘Г4ЌC'Conve rt`C s in| d#В@@I„hРr?уГУm РaуV@U.141592653 58979сЅ8]џAeнццЁщ# тŸ BЬыС2ЂЁNumbeрring. (%БТOri€БЁМn wdуLandscрГc"TopMˆarg= C0@imeterjPтo(I!.BottomџџБ .LИeftппгR‘9ЧяяуGut р o s([Ё.He@aderDi0{nc1`s(1.2ћ‰OР2oрO@зMq!Wid HпР„(P29.7D.ёH#m_ s(2 G.First1Tray‚0”na efa@ultBinЈOѕp‹rбsяярx4{ВSаyРxNewA‰ddAndE˜venвуFoё€Н(DifferO %ж iQ.V:icalAlign?A…ввЅP+јSuTppаts07n@sO.MirrorƒУ%џ .TwoВ 0OnOn"M BoxokFаzђ 7/.ё%Rev_"+@V!%SheePІ= &1 Ѓ-Po‘ wd?жс4SбEwˆc@Window4APaneРTew.Zoo’mr&Fia“wdqсАFullЁСIсєT906-0000-0000-C000-000000000046}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџААAttribute VB_Name = "ThisDocument" ŒBasŒ0{00020P906-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’BustomizD2Ьayџ  фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.3#0#C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library џџџџџџџџcд D+џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЃ~ThisDocument25440cd3f3џџThisDocumentџџ]‰%џџFractalTree28440cd454џџFractalTreeџџ=ф0ЅџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ OяЃъQХM‹hЎ0WйЁ‚џџџџџџџџЅЅмoз ‰™џџџџп§dŸCF|ЯЉXNЌ џџџџџџџџ0€WXџЈ1WordЕkVBAїтWin16С~Win32MacГВVBA6­#Project1 stdole“`Project-Ў ThisDocument<ž €џ_EvaluateйNormalпи„џOfficeuDocumentjгModule1b FractalTreeА FractalTree1DrawTreeИЊ PageSetupщЊ DrawBranchъStartXР StartYН Angle€ALengthYФEndX№CEndYэCAngle1ЋœAngle2ЌœLength1SLength2T Thickness'~SinќгDegreesToRadianst@CosOActiveDocumentг\Shapesћ<AddLine8 SelectionZЎ ShapeRange˜ЬWeight1ЩVisibleЖгmsoTrueь StyleХp msoLineSingleт ForeColorRndRЯAddShape™, msoShapeOvalЭ–Fill,№SolidпcmsoFalseF. LineNumbering)˜ActiveзS OrientationwwdOrientLandscapeЮО TopMarginљiCentimetersToPointsяЃ BottomMarginuФ LeftMarginЅ] RightMargin[єGutterЛVHeaderDistanceSЮFooterDistancekТ PageWidthŒ! PageHeightи  FirstPageTray[wdPrinterDefaultBinˆOtherPagesTrayП SectionStarthwdSectionNewPage4'OddAndEvenPagesHeaderFooteriDifferentFirstPageHeaderFooterj9VerticalAlignmentЪЁwdAlignVerticalTop)ѕSuppressEndnotes[f MirrorMargins*" TwoPagesOnOne>˜BookFoldPrintingЇPBookFoldRevPrinting~BookFoldPrintingSheets К GutterPosь?wdGutterPosLeftMh ActiveWindowУ+ ActivePane_ЌViewаIZoom‚PageFitŒжwdPageFitFullPagee'џџTџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ $ID="{5DAFE219-FA3C-4924-B438-1B511DAC7D09}" Document=ThisDocument/&H00000000 Module=FractalTree Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="6B699FEC54F054F054F054F0" DPB="1C1EE8A3285529552955" GC="CDCF39725B225C225CDD" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, PROJECT џџџџRІPROJECTwmџџџџџџџџџџџџYMCompObjџџџџџџџџџџџџ[qџџџџџџџџџџџџC FractalTree=110, 145, 765, 690, Z ThisDocumentThisDocumentFractalTreeFractalTreeўџ џџџџ РFMicrosoft Office Word Document MSWordDocWord.Document.8є9Вq