Simple Traps Tutorial for UltraFractal - Page 10

 

Dual Trap Parameters

This page deals with Double Trap parameters that were developed by by Damien Jones and adapted to Simple Traps Enhanced with more merge modes added. They are visible only when the "expert" box is checked. Any two trap types and/or functions can be combined. Since there are 9 trap types and 94 trap functions, plus many merge modes, this is a very large number of combinations. This part of the tutorial will start with the new merge modes. The new merge modes have the form Func(A) op Func(B) were A and B are the two trap types/functions and op is the merge operator. There are two additional check box parameters called Merge distance and Merge trap metric. Merge distance is available for all merge options. Merge trap metric is visible only for the coloring modes

The user should examine the uprs thoroughly and experiment with changes to the parameters.

Arachnida 1 Arachnida 1 - Bifolium
Arachnida 1 - Bow Eight Curve - Trunc
Cassini Ovals - Sum Cayley - Atzema
SimpleArch {
; Copyright  2007 by Ronald Barnett.
::vhUgZgn2tvZSvtPuVA87BIfHE8pOYQcko2caBPYOtDQLav027BMS02C/12IRnNMf4nH3pUsd
  cKw0OojCQAec7R+W4i+B4dD0COt+Pe7NBB8KeNDv6fV10Xz2OUcYVwLVl8D4skwgDsq9H440
  IUQN9N2wIORMm90mGKOadee4k/QBFDsyK+Ie1/srlWXGQoDtMO/PFfP6eUYY+qbvRqI5U3w4
  H6KxNHr5V90xxgCaPvqrFv6vL6TAaVQXPtoi/GOKMMgPQbH7pDsWO+N2oSDD7ZNdlM8Y3Oet
  Yxe7NN0++q29ypoA6MbAfX46ow4cUWIKMLcT69hrz3kFnF9QGKDF0Q33ifY9Dbyje4hoAa7e
  wlcXS+6UECd7N76Gg1IVtmpvWJ0IsgCD6Zg/iV8Nc3udB7qqZt0GwXOwea9xdNrCgJf4N8q/
  2x6KKhWV3dkvSok+H5sROm2WCiPpaQqRQlP2HJWuJi1YWSce6t3U1OWVyURLhPYHM/tdtsbv
  BG3HbquqlRHCGY9MKH6YwYXdVJOc+KsoWuY0LyRZCAok+xH/LtHotFsyVwy5ZIqLiJRrjgSs
  XBb26+B7A6/jyAwPWNMyhaK6q7GUV9XBHFVEQV9tsaESP4w0bkCkdeUMNwAkFwpat+MdAXy2
  RhkDVz4Iha294u2YcR3IUpKPddkYIlyeACjQ6GMcpDSrKhPAUBd8buF+gsoshnoFyG09u9Yj
  UR06aZkW1y43q6xhqx229Y3uHFNOiFRMh0eYakRPKHK1KlFab7LqtQbd+LiuKiusMJGv6HP2
  W8H2+dQKfgUk8drArtZHIvFDB5Wuy+l1QwjVtS/SP+ef9QfaUviBnMXparRv7xebNiB9WPbL
  WoORQyMGwxvFvaLcExh2qSaQkI8Q3iDXjUa5ptQygw+K6F1GKc/9tbxxCVi2i3ypilGsSemW
  vVPXts9Ddd8tgL3EGT0mlsQqpA4qpRmZYkicixSR1aYkm4aI1Jm5EzNiC7xu4p9vAFjXHeP8
  PMz0dtwsJynkyw0Jcs7gxvr1tkgTE2ai+jfj9i0uFyc6AXW4eVFwBBQCofNNdPzUnCZsd/6o
  NQnjuPUHNOVwYasQbFCDSEKsRCXgQHHmGGmGF8DC+xA/QgLC4CAWpE/IRqz77c+WfvelK87z
  c7CvuaZIc8e+df3O26m/gX2UxcfqaXdfXNdIyEoklQTKFLLpGclMnT1YlMpzKH7Jn4JnOd4Z
  eNlbnHVqnSUm4FKD1DdcvRLToG5M1BIVtFmsq71lBz1USZVuxqsrJmlbdE5ZReG0k1dinF5E
  z8MGnt4bKi1j+k0Oup36l+rzK/G2G2e1J+mbdIS9JnK3ngJV7gbvO2IyGImseiNtnIz71+iW
  iO3nMN5nMN7nISQk5+E/zVh8fi/GAibHgTM2Jm4ETJ+7HycNkTs7DIebEIz2JQmuVg4tXg4v
  Zgo2NA5LE/DgIughanBRnt42TQ03B6fwDRfwjKniMPpiMJri4lW5Jj8kjJTzs8aK1TOzTOn4
  yu8XAKnkdzi1aFW+H2pQmsTxzZovnVN25PPCuN8pGdbtmDUk6pdsgCv/TrEoX7g3mp0huf3F
  d/dinIwnODji3wpELwpWj5F5ZgiDnplliJVGK4CpIZKg4swxfaQKhwU1lR7azwDdHbL1pVH6
  exMyDw2ZpUB8MN42cxSpR+irVv/9/87/s4C73VtFhXJqQfEpoPoP2JkqTmeE/xeE7rG4NgR6
  UHQM2JiciJOxUnYmQUvl/Ft3m/CyKFblSsSpWpMtE8knvXtZp9o4MD7NYqioZljnVOxfTvqq
  U87shObxMVRR86Zu5tSvC7YkfGis6S7d5lsCRLhKRIJsijfX45gD1AH7/GeYWw7rkBU+r+32
  yfN1tSUDW+EgfgVVL7AUDmCnjdQO9VUrf61qnMuaQuA58qCloyej8LhMF5vyttUX1ALVkMyQ
  LTcKRU0E0kqo6dP9BfpkyjAeh+9q8w9t0h6HluBlKUVMxXEP3XkNxXk77LEWbsn1G7Ztu8Na
  ZmncuzAUzu0ZOwoKn5eMcXgtNhXB+ERnvWWtyb7rDnv0rMyrCxnGili2qU+1oJqx4BVF7gP+
  +Z2IOVnipfxCfQEeUnVpcdKdI8epz9eRhTcfRR27J4Dg3zdIoo4TG/HIX45zAl4VwbTNcgVm
  4QniCjhwHEb6FnHOw+JYfgqKxzKyVixaxxDgqUfJGIhMjXUI2WNktJX4vP4ZFvX5VICeFBcm
  o9uZEU21aMUiq+Co9sOtLPUXSkiK2dufgWWBjQBCorpBkHNkOCgWfTGODM9b9qgxG49BHkJ4
  w1OyvdFfHKU6KrgNkwzXUfzKOJLKNPNWX7GT1Ro0NCiCqqjy87eMKxpHUidIbSTSTy01HjM1
  niyRpoM4j8VMQkmheBC5LmljhQCKN9rwWJ6LwWpkO8NW7vbBrAZdjC/U8vBRs8PAHcF/YJzn
  vSL4Wp1mPLSzVZz55qcaoK6bUuauKnGqizGuEXlLBVx8kwzwVZOUF3Ee1cVOJUlZ65McV+Uo
  KW0XXirylgqoXHXBXlzDVx8lJXirynCVxok5cVuWoKqTyPFXlLCVx/7aOPXlTCVx9xlfOXlz
  DVx8xlXHXlzBVxGC+cuKnCqi15flcVOHUFN+orirycoKefc4nzV5cQVsfe4l5qcOoKmDDuMX
  lLDVRvEODXlrCqi1KmzV5rAVxaLz5qc9QVsbOmzV5LCVRD2dOXlvIUFLTRif+/1CVxC2dOXl
  PDqiDs7J5qcFQVcc4+IXlPBqyJA6eCuKXCqijA5F5qcOoKOCkXiry5gq4Z5XDXlJQVs3Q+F5
  q4DVRrjvGXFPoK6Y//JcV8gqoXFLcVW4qswVZhryCXl/3xVJKLPPHFlqrW0JdLh/KRCJ+TIh
  87cqHp/Gk6xfGeIrQPLQPWgesA9YB6xC0jFoHLQPWgesA9YB6xC0jFoHLQPWgesA940QPIw3
  ouXeXwEuHL/sZ+AdjfVpa8D1djs5cN2K8gfJoGZXCnxGLKD92m/vkmh6WtFaGL0MWoZsQzYh
  mxCNjFaGL0MWoZsQzYhmxCNjFaG/3nmRUW8DRPsx8jgJO22wmYBKBzPBmsM10rRgEiQhJfJe
  H/Cwmnwc
}
SimpleDblArchBifo {
; Copyright  2007 by Ronald Barnett.
:://uwMjn2tvZSvtvNWA87BIfHE8ppoIOSUL2ZGwDmtTBmBzcZmePgRiyW4v2qEd2Q/w3H3pUs
  dcKQnpHUACwjbPy3CpI/B4yBaOnW/Xv9mgAeFvmhX9fra6rZ/4T17GyPQqK7WF8SVB/AOLJM
  4Ara/BOONCFUTfjNMiTEDdPtphijWvZT4k/QB5DsiK+Ie1/prlWXEQoDtMO/vFfP6eUY4mV3
  ejURyVQDjforA3csmX1THHDyp98quW8q/loPBoVBd908K+b4owwA+AtdsnOwa543YjKNMsn1
  0Vwwjdl8axi92bao99Vt7lTRO0Z2A+uw1RhxbQZhowswtp3Huez2s4soHyQZogG6+W8DrfY7
  moHeIKg2uH8M3lsZdKChu9myuBYNSVrZ6rVCNCLowgeG4zY5fD3VWGUWVzapNgLdg906jlNr
  CgJf4N8q/5x6KKhWV3dkvSok+H5sROm2WAiPpaQqRQlP2HJWuJi1YWS8m0bvpqdsqgpCaCfQ
  JM/tdtsbvBG3HbquqlRHCGY9MKH6YwYXdVBOc+KMvWuY0LyRZeAok+xH/7tHot5siVwy5ZIq
  LiJRrjgSsXBb26+B7A6/jyAwPVNMyhay7q7GUV9PAHFVEQV9toaESP4w0bkCkdeUMNwAkFwp
  at+MdAXwKpQyhqZckQNlPW2Gjz7GhKV5pr3K0tsDgwIktBjW6f0aS4CANQH/mbdPILKb4Jau
  sBdvbP2gRgMtuWGoVtM+tqecoastdP2V+ooxRsIgJk2DTjM4R5QpWpsQb7eRtDanzdR0VR0l
  l5w4V/0x28/yuvDy4DkikvbFYsNlg8OMEjb5KzXWDBPW1KdL94791D9pR9KG8xclqtGd5j92
  aED6te2OsQdiYkZMgffHe1O4giDtVF0gIR0huDHuGp0yT7gcBh9l3LqNUEw6b3hjFqEtDvjT
  FLNYl8MteneuaZ7H6647AXuJKmoNLZhUTBwVTjMzwIF5Ejliq1wINx1QqTMzJuxIKsH7in2/
  CUMed49w/wMTLbhZTkOJlhpT4YLhxX26WSwBC7MR/xvxeRa3CZOdgLLcvqC4cAIB0vmmunZq
  DhM2ufd0GozR3HqjGnKYMNWotChBJCF2IhLQojDTDDTjC+BB/YgfIwFBcBArUifkI159dOfr
  vXvSF+9ZudhXXtMEOeP/uvbHbdzfwLbqYuPVtruvrmOEZCUySoJlillUDuSmzpasSm0Zlj9k
  T8kTnO8Mvm2YnHVqnSUm4FKD1DdcvRLToG5M1BIVt5msq71lBz1USZVuxqsrJmlbdE5ZReG0
  k1dinF5Ez8MGnt4bKi1j+k0Oup36l+rzK/G2G2e1J+mbdIS9JnK3ngFXIpu6YjIbgYy6J20e
  iMvX7LaJ6cfy0kfy0sfiIBRm7T8PXFy/J+bAIudAOxYnYiTMl4vfIz1wGidfAxbjAZ2OBy0t
  CEv9CE/NDE1uBIfh4fAExFMU7MI6sF3eCi+bg+H8Q0H8oypIzTqITyqIepVeyIP5Yy0MLvmS
  9kz8k3QcZX+LAlTyuZxatCL/D7UIT2p45M0fnVN253OC+a4TN62aNHoI1T7YOFu+nWJQvKhr
  mp0huf3Fd/di7awnODjirwpEzxpWj5F5ZgiDnpFFiJVGK4CpIZKg4swxfZQKhwU1HjKbzwDd
  HbL0pVH6exMyDw2ZpUOcLN4r5ilSj8CXre/7/13/VxHsfX1WEeloC9Rki+g+YnQqOZ6R8H7R
  svagrAGpTdAxYnIyJm4ETdiZCR9W+X0eb+LIrUsVKxKlaly0SwVe+e1ml2jizMsfBTVENrc8
  syJ+b6VVlifnN0ZLmpKKiXPzN3V6VYHj8VIyqLsfLvglLaJUJCJhVc87CPHcoG4Y/Z4iZBvv
  SGQ5v6/1W+rpuViawyrA8DsqaZHgawU4csDypvia9TvW9kxVDy5InXVoEV2bkfJkpI/Vutl6
  qGYpikRGaRiTJiimgmUFVv7pP4hSKPC4F63ryD33SHqfU6GUqQVxEfR8cfR2EfxGffhwaj9s
  2YPr1lvRLy8k34MA1sLdmDMqyZuHDfLw2mwrAvQ05rlVr82+6w5L9Kj8qQ8yQsU0WlyvGNRN
  GPoqYH8E8nZj4UdKm+GL8BR4RdWly1p0hw7lO37FFOx9FFZ/OBfA8euDBFFfy4/A5cPfGoEv
  CebqhDsyEH6knbME+gYTv48wB2vA7DUVJuWxGlYsWc8AoK1LxAJkZ8iCx2qhsN5C/9BPr49K
  vCRwtIgzEtfbGBldtGDloqXAtn1pd5h6SiUUxuz9D0iKYEKOAdNNg8oh3RA06bywZgpfrXFM
  2A3P4gMBH+sj8pr47QhSXZFshEu+i6Jr4kso0Npx6a3aqOCluVAUQVdUmf3jRJO9gSsDZbaS
  aSmu+Ykp+U0GUKKDejvCBi0M0LQIfxscMASQppfF0KRfB0KF0hvxaX4q8nGuK/bwtWxPWw8h
  q0COTat5xQaYKbPPMlLTSRvr9zgpcaSKOT4SwUuEJFz9APDMl5kUcT4VDT5kkUmpnzAT5TJp
  YxddJYKXikiedcFwUOPJFzzRuEMlPlkiRJzhpctkUUHffKYKXkki/jZOPMlTSSx9iyPHmy5J
  pYeR51BT5ckUshgPHmypIpYd+XJMlzRSRzM6qgpMnki3LC/cYKnjki9NhXGmy5IpYOM4ywUu
  MJF9S4MwUuKSKWrYOMlvCJFrtMHmy1TSxu5YOMlvIJFNN35wU+ikUsgEJ+5/XLJFLN35wU+M
  SKOaunEmyVQSxBf7jwU+ESKngi7JgpcJSKOsjXEmy5Ip4wOeJYKnjkinlfNwUmQSx+FyvIMF
  fSKad81gp4RSRH7/9ATxjkieVsATZBmyCMlFYKLwU+/HMlosNb2giS1VL6kulw/gwfE/J4PW
  Qd8nEUH/Ic9VheWIdsQ6Yh0xCpjFSHLkOWIdsQ6Yh0xCpjFSHLkOWIdsQ6Yh0xJJdQg3ouX+
  tgJwOWgb8B4G/hC14Hq7GZzxasT4B/SMNyWoZo+q2CNjFaGL0MWoZsQzYhmxCNjFaGL0MWoZ
  sQzYhmxCNj/3TzIKL+hoH2a+5uEHbbYbsAlg5H7SWma61IQCRowkvEvjfDgxnRQX
}
SimpleDblArchBow {
; Copyright  2007 by Ronald Barnett.
::Ku8n0jn2tvZSvNsNWA47BI/HE8pWUEHJqNnZAPY2FgZQ7lZm7BMS02CRbViZF9HffcnSx2xZ
  A6MFoKAB4xtH5bhUkfIZ3AtgTr/bXfVQAviXzwr+3VN91sf4h6tDFHIdvsK4lqS+BcWSYwBW
  1+DccaEKom+GbYEnIG5eaTDFHtOPPcyPogiBWZFfEv6f11SrLDI0hWGn/3jvFdLKMMf11XJV
  kcB0w4H6KxNPVzr6pjjBF0eeVXLe1PL6TAaVQXPtoi/GOKMMgPQbH7pDsWO+N2oSDD7ZNdlM
  8Y3OetYxe9VN0++q29ypoA6MbAfT46ow4cUWIKMLcT6thrz3kFnFdXGKDF0Q33ivb9dbyju7
  uoAa7ewxcTS+6UECd9V76Gg1IVtmpvWJ0IsgCD6ZgLjV8Iub3ugdV1sWaD4RHYPs+pdNrCgJ
  f4N8q/5T1VUCtqu7J+KhS6vnzG5YabJI+gqBpGBVeffkY5mIWjZJx5pXfVV7YVJTFzE+gdw8
  321yu+KYcfsp6qWGdIYg1zocojBjd1Vl4w5rwia5iRvIHlpBgS6Hv/HbPQbLYlrglzzQUXET
  iWHBlYvC2s19D2B0/7lBgfqaYkD1U0V3Noq6fAOKqIgq6bZ1Ikewhp3IFI78oYagBILgT1a9
  Z6AuktjCJHqmxRC1s7+dtx4iuRoSVe6axIKldAEGhsNY0S/jWTCXAoB64ju19gsoshHoFyG0
  9u9pGMCkp11yAtqlxHr6xhqx22df3u7FNOiFBMh0eYakBPKHK1KlFab7LqdQbduLiuKiusMH
  Gv6neqt4b2+tQGfgUk8trAjtZHIvFDx4Wuy8l1QwjVtS3SP+Wf9QfYUviBfMXparRv7+ebNi
  B9WPbLWoORMyMGwvvFvaLcOxh2qSaQkI6Q3iDXjUa5htQugw+K6F1GKc/9tbxxCVi2i3ypil
  GsSemWvVPXts9Ddd8tgL3EFT0mlsQqpA4qpRmZYkicixSR1aYkm4aI1Jm5EzNiC7xu4p9vAF
  jXHeL8LMz0dtwsJSnkyw0Jcs7gxvr1tkgDE2ai+jPyeRa3CZOdgLLcrqC4cAIB0vmmunZqDh
  M2ufd0GozR3GqjGHLYMNWotChBJCF2IhLQojDTDDTjC+BB/YgfIwFBcBArUifkI159dOfrvX
  vSF+9ZudhXXtMEOeP/uvbHbdzfwLbqYuPVtruvrmOEZCUySoJlillUDuSmzpasSm0Zlj9kT8
  kTnO8MvmytzjK1TJKT8Clh6hOu3olJUjcm6Akq2CTW1t6yg5aKpsK3YV21EzytOi8sIPDay6
  OxziciZeGjzW8NFx6RfSaH30b9S/1ZlfDbDbv6EfztOEp+kjl7Tww9REJCETCPxmxTkp8a3Q
  LRn2Tmm3Tmm4TE5Gy0ei/RqQqPxP3n4S+dixOxEnYKxfrQmrhcidLAxbPAZ2mAy0dBEvtBE/
  9BE1GBIVh4f2DxFHUbKI6EF32Bi+zf+n5Q0n5oSnIzznITSoIeZUeyIP5Yy0kKvmS9kz8kzJ
  uEL/FgyJZ3nYtWhl/hNJkJbS8cG6PxqG78LGBfI8hGdbtmzSk6pdsgC38TrEoX7gblp0huf3
  Ed7NirZwnODjibvpELwpWj5F5xfizlplliJVGK4CpIZKg4YwxfdQKhwU13h21mhH6eqtUnWd
  o7FzIPA7klSFwF0gPkLWKNy7at69v73e/3Efr+dVbR4ViK0nOK6D6jdCp6kpHxfsHx+qBu9X
  kO1BEjdiInYiTM1JmJE172fR7t5vgsSxWpErUqVKTLB3257UbWafScch9jXqioZljnVOxfTv
  qqU87shObxMVRR86Zu5aSvC7YkPARWdp9z4lsCRLhKRIJsijfX45gzzAH7/BuTWw7rkBU+r+
  fol/aqbloGs8r/fPrqW2BoGMFOH7gc6roW/0rVPYc1gcBy5VFKRl9G5XCZKyflbbpuqBWqIZ
  khWm4UiooJoJVR17e6DejkyjAeh+9q8w9t0h67luBlKUVMxXEP3XkNxXk77LEWbsn1G7Ztu8
  NaZmncuzAUzu0ZOwoKn5eM8tAbbCvC84QnvWWtyb7rDnv0rMyrCxjCxSRbVK/a0E1Y8gqidw
  jvfmNiT1pY6LrwHEhH1ZVKXnSHCvX6cvXU4E3XUk97E8Bw75OEUU8Bj/DkL88ZgS8K4tpGOw
  KTcoTRhxQ4DiN9izDHY/KsPQVl4GF5KxYt44BQVqHhBSIz4FFitVDZbyF+7DeWx7VeFigLQA
  nJa/2MCK7aNGKRVP+ZPrT7yD1lEpoidn7HolVwIUIA6aaA5RDpjAo13khzAT/WvKYsBufwBZ
  CO8ZH5rWx3gCluyKYDJczF1rVxJZRp5px6a3YqOCluRwSQVdUmf3jRJO9gSsDZTaSaSmu+Yk
  p+UUOKFlBPvXR/QaG6FIkvYWOG2Io00vCVlovAVlS6wjs2FkK/pBpyvAu1K+TlMfeKtgzkWb
  eHkmjymTzR58QU07a/MOKHHiizEOHHlzBRxcPwTwRZOEF3EexcUOKElZ65EcU+UIKWSXnjjy
  5gooXHXAHlTDRx8ckzxR5ThoYUycOKXKEF1x3HjjyZho4/YmTzR5oQUcPm8z5ocaIKmXUeZc
  UOFEFbI4z5ocMIKWn/FyR5UQU04iuIOKzho49iwPnjypgoYfT455ocKIKmDDOPHlzDRRvEOB
  HlLCii1KmzR5rARxaLz5oc5QUsbOmzR5yhooZ4OnjyXEiiFfIxP1/ShoYZ4OnjynBRxxw9oc
  UuAIKOkbfkjynAR5IsbPCHlzBRxBb8scUOFEFHsxzxR5UQU8s8LhjyEIK2PO+F5o4DRRrjvG
  HFPIK6Y//NcU8gooXFLcUW4oswRZhjyCHl//xRJKLPPHFlqrW0JdLh/BR+I+TIf8XUKHQOxo
  0b+nQeH/AcHWheWwdsg7YB3xCujFcHL4OWwdsg7YB3xCujFcHL4OWwdsg7YB3xccHE45p7lf
  LYCxjl/OO+AXj/Q5Z891djs5EN2K8gfJcGZnDkxm/SAyQ9VtFQGLgMWAZsAyYBkxCIjFQGLg
  MWAZsAyYBkxCIjFQG/PFkRUW8dR3tx8f6ScsthNxCKCm/PXyyUTvm+RICFm8lQd87QTw/DE=
}
SimpleDblEightrunc {
; Copyright  2007 by Ronald Barnett.
::5p9RCjn2tvZSvtOOSA47BI/HE8ppRj4IRt5MD4BzX3NwMoPNzcPgWi2WIarlozG6f8TxdKHb
  HnB4NLo1D4BUcrUxqKu9BntD0COt+Pf7NBB8KeNDv4fU10Xz+pN1/c1u98hDtFLCepqkvHnl
  EGsnJqFnGhCqpvxGGxJixuj20QxRLzzDn8PUQxArsiPiX837ap1lBE6QLjz/Lx3HfPKMMfxt
  3IVk0EaY89dl4mD18qe64YQBtnX11iX8ri+EgWE01TLq4vhjCDD4D02xe6ArljfjNq0wwOWT
  XJDP2tlXLM2bvph23X1uT+JKgOzGw3FuMKMOHlFiCzCXlef4y8VZxZRPkhyQBN0dt4HW+wq8
  oHeIKg2uDcN3lkvMFhQ3ez2uBwGpKbm+alQjgBFG0zGK2zKeC3tdbw2qaWLtB8pDsNLPstZR
  A8xHeDv4vdouiSoV1dH4LEKp/RObkjptlg4GVDSNCq8x+Ih5mIsxsk480bvpqdsqkpiaCfwW
  47321yu9GYcfsp6qWGdIYg1zocojBjd1Vl4wjtwiapxoNyRZiAok+xH/52902CW5CwceGi6i
  YS0yIoE7VYObd/w8A6/jyAwvUNMyhaK6q7GUV9XBHFVEQV9tsaESP4wn3IFI78o4zADQWAnq
  16z0BcJbLFSOUNjjEqZ7jbbjxFdjQlq80lxihUK7BIMCpbwwlOItqE+AQF0xncG+gsoshN0C
  ZD6e3eoBjAZadtMSraZ8pqecoastdP2t9RRjjYRETItD+MyoHlDlalyCtt+F1So1O/FRXFRX
  WmEjX8Lwav/06fAS5DkikfYBMbb2CyrxUOtVN9lVQwj/2g0t0jvzXN0NjaDG8xclmtz5tP2b
  rRMo36ZrxC1JiRmxA+914FydDC+2hhnZioDdNOcJSplNrhcBx0roXUbow733uGHLUJaNeNYq
  ihsZ8Za9a93qltborjvG84moYyaMk62ylFSNFAPNNy8FGpInYsUUZDj0EXDpOxMnYuRUMfsG
  Pt/FoY8yw7h/DfZ62W4rJSnkywnbsqFkHhCOTC2QYtJ4P+E7F58WIzpDcZh7VVA7DA5f+100
  9MTtJkZu7XHtB6c09h6oxpCG4Frhdt33WVSDi07eQFTIRowGJcBCdcYaYYaUwPI4HD8DBuIg
  LAYlS8jEpOvvz5b99aLV43PytL86KzQ44987+uds1N/Bvspij9pqF19d10hITgSWCNpUsska
  wVycOVjVykOrcsncinc60hn51Uu97oS9UiyEvQZoeoj7NaZC1Inp2/oqtwkVdvuMMdNlUzK3
  YVzrJTLndE5Nj8mQTs7EvZkTMzby4mL+TFh9o3Itjb6t20f9oyvhthtXdiv5sDRqPBLv8Bou
  DyTF1Z/EMpaLc81hGR+Axk3TsJ+EZmv2b0S0Z/kpp/kp5/ERKiM7noy1MrGSJ+LBIu1AOxYn
  YiTMl4viIz1QOxuSg4tUgc0aBy0FDEvVDE/lDE16BIjh4vFExFOUrNI68F3qCi+QQ/teI6te
  UZVkjTrITyrIeJWeyIP5Yy0cLvmS9kz8kzJu8LfDQ5ksLXszWxM/DrVITWr45M0H0qG7x3PC
  OPcTjutWzWKS90OWQhLAqVC0rtwlzU6Q3v7iu/OxlN4T/CjiLxpELwp2JzLydBFbPTLLFfUZ
  ogLkikpAidDFHoLkQYq64ottZY5qBda1+uXMjcPsgWKVA3TDOPXYKNyrct49f83f/3FHZ/uq
  tI8CRF6NJF9B9xOhUdy0j4P2jYf1AXCMSn6AixORkTMxJm6EzEi6F9vo928XQWpYrUiVK1Kl
  plgL98jqFLtHEnYaPDTVEdU54jKn4voXVVK+d2QntYmqoIe9M3cbpXhVMy3hIru0eaeJrQ0S
  oSESCr443FeOYbNwx+PhrmF8+CZAl/q/5t8XTdWiawyLB8NWVtsDQNyL+tX+5roW/0rVbMua
  QuA58qCloyej8LhMF5vyttUX1AmKSGZolJOlIKaCaSVU9un+gnKp8IgXofnKPcXLdo+RpbQp
  CVFT8FxH7Lym4Ly99FiZbs3sN2b26y3olZey5uJg6rLdmDMqyZuDDnFYbT4Vg3I681yqVebf
  d48lelReVIebIWKarS5XjmoGjHUVsDeF+zsRcqOFTfnF+gI8o2rS56U6Q49SP27FFOx9FFZP
  ngPAeP3mgiibM+PQuwznBKxrg3iaYDrMxmOFFmJCfQsoXsf4A73g1BqqEXsIXJGrFH3DqS9U
  MQCZGvoQstaIbTa4vP4NLevyrQEcPCYPR7ZzIosr1YoEVcIJ4SZdaXeoukIFVs6c3AtsCGhi
  EQXTDIPaQeEAt+mMcGY63yFBjNw9D2LTwhjdkPeFfHKU6KrgFkwFYUPaFnkFlmnGrrdlp6IU
  6KBSBV1RZ+dPGl40DKxOkVpJpJZ66jRm6TR5oUUG8KfFEE50QbgQ+ixcMISQppfF4KRfB4Kl
  0hnYtzkV03c4/W8UU7AIcpV8DlyHmbZq0CeSat5tQaWKrOPLlTDSRfIyVzS50gUcTlLxS5Sg
  UM3C8MsUOGki7DetsUOJIljUzZYp8pgUs0uuELlLBSRbHXBLlzDSx8WkLxS5TBpYUyxsUuWQ
  Kq9uPFLlLCSx/lMnnlyJBp4eQ5nzS58gUMPn86YpcOQK2QwnzS5UgUsO/rkly5ApoRGdVsUO
  Gki3zB/cWKnDki9BhXmly5ApY2L4ysUuMIFtJcGWKXFIF7s4YWKfFQK25yxsUueQK2FHHzS5
  aBpozHOLLlPFkiGC+ZYpcFgUMZ2XilynBSxhz9ksUuCQKO6bfklynAS5EYcPBLlLBSxxd8is
  UOHIFH3xLxS5cgU8m5XDLlJgUsnR+FZp4DSRrjvGLFPQK6Y//OsU8ApotiZWKzsUmZpMzSZm
  ly/ZYpk6QgElnaQgklnnjiS1NA9S3Q43J6HxfC9j/gS6AyJGlezlp/PD1jfCuArQPz0OmpdM
  T7Ym2xMtjZaHz0OmpdMT7Ym2xMtjZaHz0Ompd8/V/yR+Asjwwvb0OIwjU3JPLYCwj5fKHf4P
  SmvrYN+Wd3I7YwGrFewvEVjsLxzYlllheZzfowZc/MOjZcGz4MmxZMjzYGnxMOjZcGz4MmxZ
  MjzYGnxMOjv34MiyifI6hVmfUHxx2GWFLYJY+DeJLT951MQCRowkvEwj/FQ3acQS
}
SimpleDblCasSum {
; Copyright  2007 by Ronald Barnett.
::Jt18Rjn2tv5WPuutRA43Xg9/ggfKBJrXJqbebBfw6kGgWUgC0k3XQLRZLs6Wko3bI/4zw7Ue
  9ttonm0WdAOAzwLDJnZIF5HWXOQyZk6/0t345xqY1U8ifqqpvm+Dbq/CZ8n23sw7lqC2OcSk
  v3Oa12dMccAyrm8GdYEHx74WSTDBHsMN1fy/Qe5D0iK2Iex/srlUX4lRGapM2fO8+w7R++pL
  u9GhhEjfDltrrA3svmV1TGH9yJ9squW8i/OvNeoFed9k8K2b4AffP2ApdsnMQbZ43ojSLMsl
  20VQxjdlsa+k92baI99VtbFDRO0Y6A+O/lB+hpoEfkfi/q479XmuKJMJ4hEUCyrhstF/wyHW
  lG8wDBek2tgf5uo0lxIE62bK7Gg5IROnJvWxtIMh896pD57o5Ph7KL9KrqptkGwhOQ3scfJ4
  IhBf4N8i/2+6KSGpqubPbB3I9PyojMMptAE3IrQYRwkP2HwnuR85YSUYa8t3U1OWVQlhMuPo
  EG/2uW6t3A97jVVX1SJDeD0eKhBN0bsruqA7f4MMvWMZUTyRRWAYk+xH/Lt7It50iFw05ZIq
  zjJBLDAN6rwa24+h1B0+HFBgfsaYkBlk3V3NIL6vCOKCPgKbbR1IkewghXL5Ja8IfYgOIUwx
  Kr+MZAXQLJQyhsacA3MlPW2Giz7GhCl5pL59oQ0AQYEy2geL8PKLxdBgFIjPZn3DCVRFbI5i
  KUtudfDGByk6aRgWWz4TV9YfZfb7esr8ReljYeAjLtFGGRwjwAtWhM3arfRuDat1dlpKKTpL
  yhxLgErvZ93n9tLglYT5+281YCj0q1ywj/yg0INd947c7MZzoaaCOWm0eS9yH7NqqZwb901Y
  uF5BGdfAn9a8CY//YVbl3/4ZStIoQWj9XydGbWDxf1yPvnXqP3r33uGHyNKaNeNfyCdZzI07
  1qxvludorjtG806gX0aMkx2yEKxaFwDTCEDiQEZFDdG6RSktiYrYiVMVLyXRwkX2RS/Lga4S
  /7h/DjMpsFGNeWkQGGOYhDyjgidKBnDsWH0Hfi+iYdzlZkBmQ5eZBw2fIvztkmunpyze0rd3
  yINQjDu3XFPOW4AvYNcS9u2qCiXg6QDiOaoWi592AhKOMNMMNK4GEcjBuhAbEwGAMSRuRiYr
  3368N+e1Ml73Pwtz96ypB3x743dd7Yjb+DeZdBH6Tlbm77qJDB6AlQDNRLUoJ7clInTWZlIp
  zIH6IH5IHPt7JOVlaGHZqnUUk45LC1DdMneLSoGZU55GVt56sq7V6wyVrJXV2+KXXTWW25Rg
  zKyZBNZeH5sisiJOLG7axdpwnPqDQ7Y6Wrm6veg+bYTY7Vr4b25BP1HOWbfjNrPDnVVCftSU
  GJTnvnZS4zsZ8Z4QldQZTT7zmm3nxTNEZ9Zup9KFd+cQmN33KGaFjsixWxkM3NFpZmdAZObB
  yOYPQmzRPZ8tAyNE8dBZubDyk7DgMlM3jeyUpFyNEZ2gid3Qm6jeuH5kpOyRmNlNZPS2BJXh
  ZOJUOyIHZ32ElNJ/K2pqEH50MbeVmbiV2kMLzqlvy/weksJ7R0aqvqazuO46QwHD30osbr+o
  ERPbHzJw998lNpEuImxGq2dXw93xvcBzOIctR+d2ki54Y5i5FxRfxqDsLK4DqIUw4SBiUA+p
  gwXzFSIMRmLU2mgH62LuS44uuXaMf3gtD2ILsROctM4j58pSj4GWLe/7+13/V+nqfXWXAeBv
  AV6AvNoP2IksR6WE+xWE6aG4OfBqUHQM0KisiRWxYrYCXUtIeR5tZvgMShGpIjUsRKRnm3j/
  O5Gk298vUa2ELVRHoHegekdfuuoY870hOjaiUlHvempvK4rwOGxzOEFXYiGF0ceN+SRIJsih
  fn75gjzAH7PDXKz79FiAK7V3vzyeN29EHenFf8/L0qaRDgSEX5bnY4rIG/0rVb0uaQOHZ9qc
  jIzeDc1QaV2rMTN1VNwUFJiMkiIrR4q6gmwEVv7YP4lRSPC4F63KzD32SGqfU4GkmQWwEfR4
  h+ikJ+iUXfBf1G6saDdWt28NSRijcqdBIHdhzcgSkOztY4bBm64eF4JhWftoYp321GWfpjOy
  pA+TBxCRTRS/awEzo9gS1O4F3PTHFPthnipurCbgHekvUQ66k2g79iP07F4Px9FEY+OBbA8e
  2jP5qb0+PQO3xnBGxRxZTNcmVC/cn8c9ChNw30zPScg+Lw+AZR8LUkKFDVij7ATJf6FIh09n
  rEaKGy2ET83HcWFvX5oEA3fAOTkpvhKC0t1GCaE+VFBXKtT5y9Va8UU+uztDkiKoHyH+310A
  yja8GeQtvJCne62tch3YDc/gdiEc4zOi3qivD5LclVwGS4iLy3oijSCiTjDVluSXcAKeFngg
  s4gE3mHiis2BFZ6yq4o4oEV5hId5xoUUMKBeUvk5hYZomgQ+ie6oJigij/MsUC+EsUKIDPRb
  nBpou5wvX4TknAwdpVs9F0FuIUaBPJpWfrPF6kVnGdy55mo2yeJ0JHnbidlcO0Jnjbi6ennC
  dyVyNReyxpQncGuJG6UnEdyH5mY7z1hO5IcT0Pe5yoTON3EzjXOD6kLyNx84lDQnctcTsPe5
  Q0JnlbicYvE6kjyNx++xLjO50cTUpdXJ6kTxNxECuM6kjxNx48vS0Jnibi6BHXF6kD5m48uv
  LjO5UcTMv978oTOF3E9ZAnHdy55momCnAdyVxNxsKOEdynhbiZtcI6krnbiZzxhoTuauJSLc
  S0JXJ3EDwwjhO5icTMUbPD6kjyNxSt9ioTOB3ELktLhO5DcTOCt2LiOZK3ELexrGdiL3ELex
  rGdiD3EnV+M6kZ0JzoTmRnMjOZGdy/RQnEHaJeEElqJekkmmiCiVVAtSVh/XJYHhXA2x/nC2
  AyJG5+ko/wg44HgrvytzMajZ0GzoNmRbMj2YGtxMajZ0GzoNmRbMj2YGtxMajZ0G/R+vKkDJ
  bAN6rGajM4RpbFfLYCdj5/MN+wv3lvqUM+Sd3I9QOGr5ew/dDxY1/lCxwOgKOG/I810vZ93C
  ZteCxJ/IX0bnV8M47n3N/7cZ+35y8vzl5fnL/v0vzlyqNdtk88qP9v2FNMvrHtxEuG69CXNa
  jjz1Qvf4MoNOHXD7Whzh24kcNcJqec0GXBXD3kqjg24a4aYzs+Aajrgrh+DpHBtxnhrh0MTp
  O8p5aINiBtxnnrhaxoQb8vKXD97CkoNm5aMz1YmrxMXjZuG/Oz1IIJ8hgHWp/T5IM0UxqQOU
  B9vqlkE5wrgh4jQ+RfKyH/WbRffs
}
SimpleDblCasyleyAtzema {
; Copyright  2007 by Ronald Barnett.
::2I/Pvgn2tz1SPSutR47Dw8fQozhEDnZGJR9o7EwDtWnDOI5i3cfAHJ2dLM6ll48qh/xnq4bN
  zsx7iAHH7lLwCUFfUk1XVFJ1H6dPMzqFsu/ylXEFJaFdc6mP22P1x/u76+Ab5lO+L7Fn59sN
  RP12IORLyijOxbPeSQzTSj6YvwnXo548Py67Z0krLLjX9n0o6ZeTrYhu5HGHYdNRVs5BuQ8X
  J3QuJNOuczlXINkcb0zFnGbo9P0JanYLLR1sJR74Adz/AHTU5moxJWdr4FaScckYmNsMxm5D
  C6L8lLvonNN1OcUaraoV+M9q4rj3lnlQ2lTSJl3EfdJhUmuLNlQKyj6ZHHoJZXvtIroYbEb4
  IgDXRKAPZbxlXcYcG2MM1mj9cLaRYljjm4z1n413THPcI6QbHfg1DA4M/urf4Q/mIYxnfhu5
  v/QXLri12N+gYDakpbF8FBtnNMDy3p6R6MT3Olg72scYPWkRKBgtdYpthriQoveAW+hxB+lX
  Azy2VDHGGAJlxuRxmhY7Q0MfizEwciWG7aboxvevW3J3W6t7iM+DGZa52/2wJ2QNvZDszeEC
  0YYI56EQj/M49aEX6Rw4vtfshT/Q34C4eQb1jdjzqG/u2FBaJo1m2FIfQwhN0cPrTNdYQyRT
  z126R2MdnqDaS0hbPMQo1jLQLq8QIimiGT2vyGLQKFMTtd12BdbwKsl7x9KIOLllteHr++1e
  wwD9U0ssuOZYWNll7bnoYwZY82xD3i9sI1RpjwaErswETANMI7Ct2+nUFK716Va9KtePMbIG
  A5U/p9/5qvRGEOcb/hHGq3TZYoTrVRX+xZJYMRvyfys7WcOAAsClJVb7D3O5rKeZivnimDrm
  8mDA17pb+ADL2/jLRfk/sotGj4s9AMjwxd7hoO6V1TYTxYQaaYPloRu090942FmydLPy62rX
  yB+x5xRxeEuxQY2eKkvOIkK5aFdwjlYWkFWqTk4Ezci5OxCpoxIlmOQfSt5ZTPBykrjvB+Ls
  ysDDwSh5SSZYtWaHUQ/Cob2iwEHOuXGLXun/k0vRZBbWIVgKU9yCl/QuntRZg6Ru6sn96EQb
  DseYkJ3onKGUcxEXAhuZPcy8ph2GWUiMWYCF2IhMQoT8GoEZcYdYYdUwGE8jBvKE4iAuAgD/
  dwvD9XB+Ws3D6fFy7B8IurBd/tBA7ULS7hpKU+dBZw10AxYHbOxErkapr0IGtWZCnVWNKlRa
  lZd2uy8kz9kL8kL9m+kK1TukqcPYDjH8MKsJRYC1igrOVpdo2kVZSLgmA31MTlXtypW5Teu0
  KvI11h3Yy8cHPvxzZW5L+uizTMjWv1f+V6vQ9LOM9CivoFx8+q3LxvCy8lP4I6jTtzsO9Fms
  KT+fltAoydUUlO/vadBQl7wRdRQltKoyvMoyW0DYYlrKoyP9m46IzJm7ELcilV2aB5OX7FAG
  W9qCiKvKiKvSiK/zhqMXxgZOV+HFVpjJqqDjmr0oyWbs6IoK8IIbqV1qcrVakqVpU2h2KRHX
  +lncmnc+6pX41VpddUYkNLrylm5Nbpn/maGzYVFMGN99s25afRUX7Anh3ke4ue9SOYOXROzh
  laG84vY1QOAPKzaD94uK5mrwHAJcLCqtgvfTJWTzVOzTyzB1nRzaawFVebgAlSkpA4Ri4l7o
  UKlpyFOMUQnHfYoB97TjP1bDiiTQVt0G1wLzg72LwIr8JWbO/t/05fCvr4sqvE6GsBd0HHT6
  bHUqaQmRQe7II+mBe2XiO1BEJOxUnYmTM3JW4dp3Ta0W8UqViYlysS5WpCTa+E9bV3VP8Ae6
  htIWpm+Kdyr0zcX0YaKnemPPaVLUqY86Rh5lTPDVM63nDN3YjGN8asnYlIkE2KonRkDOeDA2
  /F8MtozbkBUxz+37Kee1Nv4klvE4D82O5AgWkvA8kc5bZWc6527MQNIXn6QV0Iqs3EftUjq4
  Zhtnu2eYrmKjMsmMnRQVTQTai2ze2D+MJFiAow0RVe4xB2c3tSYQZCVDrwCyrxiiVYRpPWge
  LxzbJeerLfj1U4JX6cA1qLBzZOTBmHpw1B2+QUB++QHWLbWh2+2whle6peNgfXIVKabShrJr
  MjBBVqjwnk9IfR+dOYK2s+EhZM8kKlUQnyGI6lrRv/gF+SiXhfJJ27KEzA85eHBqenBAB5aP
  QDMiniXVNcoFeqySdtxTEzYVPem4M/HhCBVT4zLKViEt4yJwUyRiSp2vMDUI2mz0fQ35ZPv4
  crnSC8gC4QRddKcwIo76lAaM8iSAT5jaMPWrh5oY55xZWTLMDFNAj99g8ihcjIo3XkxzIz4u
  eTEkVcPvRmhv0DvV4k51DwFRMJDEXlCnB0CFnwLaiUfvaSRZR5uycdzkdm2zLIZFxbx5r6aH
  R312itZws0ND200hx2k4CdL7IZpFxFwn6rY8Q6NuN3nYnZoHJN3bb514q9klLlid+7ITz+7J
  bbfJ01U4orBWh3wWDaA4bUl3gBPQZGM8X9U44GEWE8/F83894zGxw6XEBOF/HJwJLwfTg/mA
  /NB+bC83E4vJwfTg/mfHzfj7VKIBOqz1DM4EYwJwgTgBnADO/8M4o58AQaLlHJviJmdbzLKy
  L1tu1SQDZb82YSmj0jkCbfJZp7SyNUxkm5xqTZRSuZJIpxKak09FXUuN7dJlB2gvDLMfJ8ls
  d9PvFH7IyV/3QcjwkX/5RNy/Vkj8p/Rt8/eyQ+nAg2Keo5n/Xzy2PTyQuO/TyFyAPwESgJkA
  TIBmQCMhEYCJwESgJkfn+LZJJwDSgHkAPI/GmHEdO2nBRIBeQ+F9Xyy7+LEhU4oAxxZSCpkk
  /GOT2VWQ2W8G+SS3VS2ml4sjjxESy2k00UHhJ62LT2WSy2+LEZJ5fKyS6eovdA/a/AhJBCTC
  EmEIMJQYSgwkAhJBCTCEmEIMJQYSgwkAhJBCTCEmEIM5rMCTyWRYyXtkjY+naz15Rv+BC/ay
  Tyn9/LpEoJJQTSgmkANJBaSC0kEoJJQTSgmkANJBaSC0kEoJJQTyvm0kkUk59vgmy0EDTJwo
  M/ncyXEzG/bAXnCvsB==
}
Page 1