home *** CD-ROM | disk | FTP | other *** search
/ ftp.xmission.com / 2014.06.ftp.xmission.com.tar / ftp.xmission.com / pub / lists / fractint / archive / v01.n437 < prev    next >
Internet Message Format  |  2000-01-14  |  48KB
  1. From: owner-fractint-digest@lists.xmission.com (fractint-digest)
  2. To: fractint-digest@lists.xmission.com
  3. Subject: fractint-digest V1 #437
  4. Reply-To: fractint-digest
  5. Sender: owner-fractint-digest@lists.xmission.com
  6. Errors-To: owner-fractint-digest@lists.xmission.com
  7. Precedence: bulk
  8.  
  9.  
  10. fractint-digest        Friday, January 14 2000        Volume 01 : Number 437
  11.  
  12.  
  13.  
  14.  
  15. ----------------------------------------------------------------------
  16.  
  17. Date: Fri, 14 Jan 2000 10:16:06 -0800
  18. From: Gregory McClure <Gregory.McClure@quantum.com>
  19. Subject: (fractint) PART 6 OF GRESGMAN.FRM (L-series Mandelbrot style)
  20.  
  21. GregsMandelL1 {; =A92000 Greg McClure
  22. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  23. ; imag(p3) =3D type =3D  0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  24. 6/MANR
  25.   z =3D p1 + Pixel:
  26.    z =3D p2 * log(fn1(z)) + Pixel
  27.    ip =3D imag(p3)
  28.    rz =3D real(z)
  29.    iz =3D imag(z)
  30.    IF(ip<0.1)
  31.     ct =3D z
  32.    ELSEIF(ip<1.1)
  33.     ct =3D real(z)
  34.    ELSEIF(ip<2.1)
  35.     ct =3D imag(z)
  36.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  37.     ct =3D real(z)
  38.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  39.     ct =3D imag(z)
  40.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  41.     ct =3D real(z)
  42.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  43.     ct =3D imag(z)
  44.    ELSEIF(ip<5.1)
  45.     ct =3D (abs(rz) + abs(iz))
  46.    ELSEIF(ip<6.1)
  47.     ct =3D (rz + iz)
  48.    ELSE
  49.     ct =3D z
  50.    ENDIF,
  51.     |ct| <=3D |real(p3)|
  52.   }
  53.  
  54. GregsMandelL2 {; =A92000 Greg McClure
  55. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  56. ; imag(p3) =3D type =3D  0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  57. 6/MANR
  58.   z =3D p1 + Pixel:
  59.    z =3D log(p2 * fn1(z)) + Pixel
  60.    ip =3D imag(p3)
  61.    rz =3D real(z)
  62.    iz =3D imag(z)
  63.    IF(ip<0.1)
  64.     ct =3D z
  65.    ELSEIF(ip<1.1)
  66.     ct =3D real(z)
  67.    ELSEIF(ip<2.1)
  68.     ct =3D imag(z)
  69.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  70.     ct =3D real(z)
  71.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  72.     ct =3D imag(z)
  73.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  74.     ct =3D real(z)
  75.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  76.     ct =3D imag(z)
  77.    ELSEIF(ip<5.1)
  78.     ct =3D (abs(rz) + abs(iz))
  79.    ELSEIF(ip<6.1)
  80.     ct =3D (rz + iz)
  81.    ELSE
  82.     ct =3D z
  83.    ENDIF,
  84.     |ct| <=3D |real(p3)|
  85.   }
  86.  
  87. GregsMandelL3 {; =A92000 Greg McClure
  88. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  89. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  90. 6/MANR
  91.   z =3D p1 + Pixel:
  92.    z =3D log(p2 * (fn1(z) + fn2(z))) + Pixel
  93.    ip =3D imag(p3)
  94.    rz =3D real(z)
  95.    iz =3D imag(z)
  96.    IF(ip<0.1)
  97.     ct =3D z
  98.    ELSEIF(ip<1.1)
  99.     ct =3D real(z)
  100.    ELSEIF(ip<2.1)
  101.     ct =3D imag(z)
  102.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  103.     ct =3D real(z)
  104.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  105.     ct =3D imag(z)
  106.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  107.     ct =3D real(z)
  108.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  109.     ct =3D imag(z)
  110.    ELSEIF(ip<5.1)
  111.     ct =3D (abs(rz) + abs(iz))
  112.    ELSEIF(ip<6.1)
  113.     ct =3D (rz + iz)
  114.    ELSE
  115.     ct =3D z
  116.    ENDIF,
  117.     |ct| <=3D |real(p3)|
  118.   }
  119.  
  120. GregsMandelL4 {; =A92000 Greg McClure
  121. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  122. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  123. 6/MANR
  124.   z =3D p1 + Pixel:
  125.    z =3D log(fn1(z) + p2 * fn2(z)) + Pixel
  126.    ip =3D imag(p3)
  127.    rz =3D real(z)
  128.    iz =3D imag(z)
  129.    IF(ip<0.1)
  130.     ct =3D z
  131.    ELSEIF(ip<1.1)
  132.     ct =3D real(z)
  133.    ELSEIF(ip<2.1)
  134.     ct =3D imag(z)
  135.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  136.     ct =3D real(z)
  137.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  138.     ct =3D imag(z)
  139.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  140.     ct =3D real(z)
  141.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  142.     ct =3D imag(z)
  143.    ELSEIF(ip<5.1)
  144.     ct =3D (abs(rz) + abs(iz))
  145.    ELSEIF(ip<6.1)
  146.     ct =3D (rz + iz)
  147.    ELSE
  148.     ct =3D z
  149.    ENDIF,
  150.     |ct| <=3D |real(p3)|
  151.   }
  152.  
  153. GregsMandelL5 {; =A92000 Greg McClure
  154. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  155. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  156. 6/MANR
  157.   z =3D p1 + Pixel:
  158.    z =3D fn1(z) + log(p2 * fn2(z)) + Pixel
  159.    ip =3D imag(p3)
  160.    rz =3D real(z)
  161.    iz =3D imag(z)
  162.    IF(ip<0.1)
  163.     ct =3D z
  164.    ELSEIF(ip<1.1)
  165.     ct =3D real(z)
  166.    ELSEIF(ip<2.1)
  167.     ct =3D imag(z)
  168.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  169.     ct =3D real(z)
  170.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  171.     ct =3D imag(z)
  172.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  173.     ct =3D real(z)
  174.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  175.     ct =3D imag(z)
  176.    ELSEIF(ip<5.1)
  177.     ct =3D (abs(rz) + abs(iz))
  178.    ELSEIF(ip<6.1)
  179.     ct =3D (rz + iz)
  180.    ELSE
  181.     ct =3D z
  182.    ENDIF,
  183.     |ct| <=3D |real(p3)|
  184.   }
  185.  
  186. GregsMandelL6 {; =A92000 Greg McClure
  187. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  188. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  189. 6/MANR
  190.   z =3D p1 + Pixel:
  191.    z =3D p2 * log(fn1(z) + fn2(z)) + Pixel
  192.    ip =3D imag(p3)
  193.    rz =3D real(z)
  194.    iz =3D imag(z)
  195.    IF(ip<0.1)
  196.     ct =3D z
  197.    ELSEIF(ip<1.1)
  198.     ct =3D real(z)
  199.    ELSEIF(ip<2.1)
  200.     ct =3D imag(z)
  201.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  202.     ct =3D real(z)
  203.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  204.     ct =3D imag(z)
  205.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  206.     ct =3D real(z)
  207.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  208.     ct =3D imag(z)
  209.    ELSEIF(ip<5.1)
  210.     ct =3D (abs(rz) + abs(iz))
  211.    ELSEIF(ip<6.1)
  212.     ct =3D (rz + iz)
  213.    ELSE
  214.     ct =3D z
  215.    ENDIF,
  216.     |ct| <=3D |real(p3)|
  217.   }
  218.  
  219. GregsMandelL7 {; =A92000 Greg McClure
  220. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  221. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  222. 6/MANR
  223.   z =3D p1 + Pixel:
  224.    z =3D p2 * (fn1(z) + log(fn2(z))) + Pixel
  225.    ip =3D imag(p3)
  226.    rz =3D real(z)
  227.    iz =3D imag(z)
  228.    IF(ip<0.1)
  229.     ct =3D z
  230.    ELSEIF(ip<1.1)
  231.     ct =3D real(z)
  232.    ELSEIF(ip<2.1)
  233.     ct =3D imag(z)
  234.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  235.     ct =3D real(z)
  236.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  237.     ct =3D imag(z)
  238.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  239.     ct =3D real(z)
  240.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  241.     ct =3D imag(z)
  242.    ELSEIF(ip<5.1)
  243.     ct =3D (abs(rz) + abs(iz))
  244.    ELSEIF(ip<6.1)
  245.     ct =3D (rz + iz)
  246.    ELSE
  247.     ct =3D z
  248.    ENDIF,
  249.     |ct| <=3D |real(p3)|
  250.   }
  251.  
  252. GregsMandelL8 {; =A92000 Greg McClure
  253. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  254. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  255. 6/MANR
  256.   z =3D p1 + Pixel:
  257.    z =3D p2 * fn1(z) + log(fn2(z)) + Pixel
  258.    ip =3D imag(p3)
  259.    rz =3D real(z)
  260.    iz =3D imag(z)
  261.    IF(ip<0.1)
  262.     ct =3D z
  263.    ELSEIF(ip<1.1)
  264.     ct =3D real(z)
  265.    ELSEIF(ip<2.1)
  266.     ct =3D imag(z)
  267.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  268.     ct =3D real(z)
  269.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  270.     ct =3D imag(z)
  271.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  272.     ct =3D real(z)
  273.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  274.     ct =3D imag(z)
  275.    ELSEIF(ip<5.1)
  276.     ct =3D (abs(rz) + abs(iz))
  277.    ELSEIF(ip<6.1)
  278.     ct =3D (rz + iz)
  279.    ELSE
  280.     ct =3D z
  281.    ENDIF,
  282.     |ct| <=3D |real(p3)|
  283.   }
  284.  
  285. GregsMandelL9 {; =A92000 Greg McClure
  286. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  287. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  288. 6/MANR
  289.   z =3D p1 + Pixel:
  290.    z =3D fn1(z) + p2 * log(fn2(z)) + Pixel
  291.    ip =3D imag(p3)
  292.    rz =3D real(z)
  293.    iz =3D imag(z)
  294.    IF(ip<0.1)
  295.     ct =3D z
  296.    ELSEIF(ip<1.1)
  297.     ct =3D real(z)
  298.    ELSEIF(ip<2.1)
  299.     ct =3D imag(z)
  300.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  301.     ct =3D real(z)
  302.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  303.     ct =3D imag(z)
  304.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  305.     ct =3D real(z)
  306.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  307.     ct =3D imag(z)
  308.    ELSEIF(ip<5.1)
  309.     ct =3D (abs(rz) + abs(iz))
  310.    ELSEIF(ip<6.1)
  311.     ct =3D (rz + iz)
  312.    ELSE
  313.     ct =3D z
  314.    ENDIF,
  315.     |ct| <=3D |real(p3)|
  316.   }
  317.  
  318. GregsMandelLA {; =A92000 Greg McClure
  319. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  320. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  321. 6/MANR
  322.   z =3D p1 + Pixel:
  323.    z =3D log(p2 * fn1(z)) + log(p2 * fn2(z)) + Pixel
  324.    ip =3D imag(p3)
  325.    rz =3D real(z)
  326.    iz =3D imag(z)
  327.    IF(ip<0.1)
  328.     ct =3D z
  329.    ELSEIF(ip<1.1)
  330.     ct =3D real(z)
  331.    ELSEIF(ip<2.1)
  332.     ct =3D imag(z)
  333.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  334.     ct =3D real(z)
  335.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  336.     ct =3D imag(z)
  337.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  338.     ct =3D real(z)
  339.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  340.     ct =3D imag(z)
  341.    ELSEIF(ip<5.1)
  342.     ct =3D (abs(rz) + abs(iz))
  343.    ELSEIF(ip<6.1)
  344.     ct =3D (rz + iz)
  345.    ELSE
  346.     ct =3D z
  347.    ENDIF,
  348.     |ct| <=3D |real(p3)|
  349.   }
  350.  
  351. GregsMandelLB {; =A92000 Greg McClure
  352. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  353. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  354. 6/MANR
  355.   z =3D p1 + Pixel:
  356.    z =3D p2 * (log(fn1(z)) + log(fn2(z))) + Pixel
  357.    ip =3D imag(p3)
  358.    rz =3D real(z)
  359.    iz =3D imag(z)
  360.    IF(ip<0.1)
  361.     ct =3D z
  362.    ELSEIF(ip<1.1)
  363.     ct =3D real(z)
  364.    ELSEIF(ip<2.1)
  365.     ct =3D imag(z)
  366.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  367.     ct =3D real(z)
  368.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  369.     ct =3D imag(z)
  370.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  371.     ct =3D real(z)
  372.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  373.     ct =3D imag(z)
  374.    ELSEIF(ip<5.1)
  375.     ct =3D (abs(rz) + abs(iz))
  376.    ELSEIF(ip<6.1)
  377.     ct =3D (rz + iz)
  378.    ELSE
  379.     ct =3D z
  380.    ENDIF,
  381.     |ct| <=3D |real(p3)|
  382.   }
  383.  
  384. GregsMandelLC {; =A92000 Greg McClure
  385. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  386. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  387. 6/MANR
  388.   z =3D p1 + Pixel:
  389.    z =3D log(fn1(z)) + log(p2 * fn2(z)) + Pixel
  390.    ip =3D imag(p3)
  391.    rz =3D real(z)
  392.    iz =3D imag(z)
  393.    IF(ip<0.1)
  394.     ct =3D z
  395.    ELSEIF(ip<1.1)
  396.     ct =3D real(z)
  397.    ELSEIF(ip<2.1)
  398.     ct =3D imag(z)
  399.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  400.     ct =3D real(z)
  401.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  402.     ct =3D imag(z)
  403.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  404.     ct =3D real(z)
  405.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  406.     ct =3D imag(z)
  407.    ELSEIF(ip<5.1)
  408.     ct =3D (abs(rz) + abs(iz))
  409.    ELSEIF(ip<6.1)
  410.     ct =3D (rz + iz)
  411.    ELSE
  412.     ct =3D z
  413.    ENDIF,
  414.     |ct| <=3D |real(p3)|
  415.   }
  416.  
  417. GregsMandelLD {; =A92000 Greg McClure
  418. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  419. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  420. 6/MANR
  421.   z =3D p1 + Pixel:
  422.    z =3D log(fn1(z)) + p2 * log(fn2(z)) + Pixel
  423.    ip =3D imag(p3)
  424.    rz =3D real(z)
  425.    iz =3D imag(z)
  426.    IF(ip<0.1)
  427.     ct =3D z
  428.    ELSEIF(ip<1.1)
  429.     ct =3D real(z)
  430.    ELSEIF(ip<2.1)
  431.     ct =3D imag(z)
  432.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  433.     ct =3D real(z)
  434.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  435.     ct =3D imag(z)
  436.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  437.     ct =3D real(z)
  438.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  439.     ct =3D imag(z)
  440.    ELSEIF(ip<5.1)
  441.     ct =3D (abs(rz) + abs(iz))
  442.    ELSEIF(ip<6.1)
  443.     ct =3D (rz + iz)
  444.    ELSE
  445.     ct =3D z
  446.    ENDIF,
  447.     |ct| <=3D |real(p3)|
  448.   }
  449.  
  450. - --------------------------------------------------------------
  451. Thanks for using Fractint, The Fractals and Fractint Discussion List
  452. Post Message:   fractint@lists.xmission.com
  453. Get Commands:   majordomo@lists.xmission.com "help"
  454. Administrator:  twegner@swbell.net
  455. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  456.  
  457. ------------------------------
  458.  
  459. Date: Fri, 14 Jan 2000 10:17:19 -0800
  460. From: Gregory McClure <Gregory.McClure@quantum.com>
  461. Subject: (fractint) PART 7 OF GREGSMAN.FRM (L-series, Julia style)
  462.  
  463. GregsJuliaL1 {; =A92000 Greg McClure
  464. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  465. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  466. 6/MANR
  467.   z =3D Pixel, z =3D p2 * log(fn1(z)) + p1:
  468.    z =3D p2 * log(fn1(z)) + p1
  469.    ip =3D imag(p3)
  470.    rz =3D real(z)
  471.    iz =3D imag(z)
  472.    IF(ip<0.1)
  473.     ct =3D z
  474.    ELSEIF(ip<1.1)
  475.     ct =3D real(z)
  476.    ELSEIF(ip<2.1)
  477.     ct =3D imag(z)
  478.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  479.     ct =3D real(z)
  480.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  481.     ct =3D imag(z)
  482.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  483.     ct =3D real(z)
  484.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  485.     ct =3D imag(z)
  486.    ELSEIF(ip<5.1)
  487.     ct =3D (abs(rz) + abs(iz))
  488.    ELSEIF(ip<6.1)
  489.     ct =3D (rz + iz)
  490.    ELSE
  491.     ct =3D z
  492.    ENDIF,
  493.     |ct| <=3D |real(p3)|
  494.   }
  495.  
  496. GregsJuliaL2 {; =A92000 Greg McClure
  497. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  498. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  499. 6/MANR
  500.   z =3D Pixel, z =3D log(p2 * fn1(z)) + p1:
  501.    z =3D log(p2 * fn1(z)) + p1
  502.    ip =3D imag(p3)
  503.    rz =3D real(z)
  504.    iz =3D imag(z)
  505.    IF(ip<0.1)
  506.     ct =3D z
  507.    ELSEIF(ip<1.1)
  508.     ct =3D real(z)
  509.    ELSEIF(ip<2.1)
  510.     ct =3D imag(z)
  511.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  512.     ct =3D real(z)
  513.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  514.     ct =3D imag(z)
  515.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  516.     ct =3D real(z)
  517.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  518.     ct =3D imag(z)
  519.    ELSEIF(ip<5.1)
  520.     ct =3D (abs(rz) + abs(iz))
  521.    ELSEIF(ip<6.1)
  522.     ct =3D (rz + iz)
  523.    ELSE
  524.     ct =3D z
  525.    ENDIF,
  526.     |ct| <=3D |real(p3)|
  527.   }
  528.  
  529. GregsJuliaL3 {; =A92000 Greg McClure
  530. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  531. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  532. 6/MANR
  533.   z =3D Pixel, z =3D log(p2 * (fn1(z) + fn2(z))) + p1:
  534.    z =3D log(p2 * (fn1(z) + fn2(z))) + p1
  535.    ip =3D imag(p3)
  536.    rz =3D real(z)
  537.    iz =3D imag(z)
  538.    IF(ip<0.1)
  539.     ct =3D z
  540.    ELSEIF(ip<1.1)
  541.     ct =3D real(z)
  542.    ELSEIF(ip<2.1)
  543.     ct =3D imag(z)
  544.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  545.     ct =3D real(z)
  546.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  547.     ct =3D imag(z)
  548.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  549.     ct =3D real(z)
  550.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  551.     ct =3D imag(z)
  552.    ELSEIF(ip<5.1)
  553.     ct =3D (abs(rz) + abs(iz))
  554.    ELSEIF(ip<6.1)
  555.     ct =3D (rz + iz)
  556.    ELSE
  557.     ct =3D z
  558.    ENDIF,
  559.     |ct| <=3D |real(p3)|
  560.   }
  561.  
  562. GregsJuliaL4 {; =A92000 Greg McClure
  563. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  564. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  565. 6/MANR
  566.   z =3D Pixel, z =3D log(fn1(z) + p2 * fn2(z)) + p1:
  567.    z =3D log(fn1(z) + p2 * fn2(z)) + p1
  568.    ip =3D imag(p3)
  569.    rz =3D real(z)
  570.    iz =3D imag(z)
  571.    IF(ip<0.1)
  572.     ct =3D z
  573.    ELSEIF(ip<1.1)
  574.     ct =3D real(z)
  575.    ELSEIF(ip<2.1)
  576.     ct =3D imag(z)
  577.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  578.     ct =3D real(z)
  579.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  580.     ct =3D imag(z)
  581.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  582.     ct =3D real(z)
  583.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  584.     ct =3D imag(z)
  585.    ELSEIF(ip<5.1)
  586.     ct =3D (abs(rz) + abs(iz))
  587.    ELSEIF(ip<6.1)
  588.     ct =3D (rz + iz)
  589.    ELSE
  590.     ct =3D z
  591.    ENDIF,
  592.     |ct| <=3D |real(p3)|
  593.   }
  594.  
  595. GregsJuliaL5 {; =A92000 Greg McClure
  596. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  597. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  598. 6/MANR
  599.   z =3D Pixel, z =3D fn1(z) + log(p2 * fn2(z)) + p1:
  600.    z =3D fn1(z) + log(p2 * fn2(z)) + p1
  601.    ip =3D imag(p3)
  602.    rz =3D real(z)
  603.    iz =3D imag(z)
  604.    IF(ip<0.1)
  605.     ct =3D z
  606.    ELSEIF(ip<1.1)
  607.     ct =3D real(z)
  608.    ELSEIF(ip<2.1)
  609.     ct =3D imag(z)
  610.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  611.     ct =3D real(z)
  612.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  613.     ct =3D imag(z)
  614.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  615.     ct =3D real(z)
  616.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  617.     ct =3D imag(z)
  618.    ELSEIF(ip<5.1)
  619.     ct =3D (abs(rz) + abs(iz))
  620.    ELSEIF(ip<6.1)
  621.     ct =3D (rz + iz)
  622.    ELSE
  623.     ct =3D z
  624.    ENDIF,
  625.     |ct| <=3D |real(p3)|
  626.   }
  627.  
  628. GregsJuliaL6 {; =A92000 Greg McClure
  629. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  630. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  631. 6/MANR
  632.   z =3D Pixel, z =3D p2 * log(fn1(z) + fn2(z)) + p1:
  633.    z =3D p2 * log(fn1(z) + fn2(z)) + p1
  634.    ip =3D imag(p3)
  635.    rz =3D real(z)
  636.    iz =3D imag(z)
  637.    IF(ip<0.1)
  638.     ct =3D z
  639.    ELSEIF(ip<1.1)
  640.     ct =3D real(z)
  641.    ELSEIF(ip<2.1)
  642.     ct =3D imag(z)
  643.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  644.     ct =3D real(z)
  645.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  646.     ct =3D imag(z)
  647.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  648.     ct =3D real(z)
  649.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  650.     ct =3D imag(z)
  651.    ELSEIF(ip<5.1)
  652.     ct =3D (abs(rz) + abs(iz))
  653.    ELSEIF(ip<6.1)
  654.     ct =3D (rz + iz)
  655.    ELSE
  656.     ct =3D z
  657.    ENDIF,
  658.     |ct| <=3D |real(p3)|
  659.   }
  660.  
  661. GregsJuliaL7 {; =A92000 Greg McClure
  662. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  663. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  664. 6/MANR
  665.   z =3D Pixel, z =3D p2 * (fn1(z) + log(fn2(z))) + p1:
  666.    z =3D p2 * (fn1(z) + log(fn2(z))) + p1
  667.    ip =3D imag(p3)
  668.    rz =3D real(z)
  669.    iz =3D imag(z)
  670.    IF(ip<0.1)
  671.     ct =3D z
  672.    ELSEIF(ip<1.1)
  673.     ct =3D real(z)
  674.    ELSEIF(ip<2.1)
  675.     ct =3D imag(z)
  676.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  677.     ct =3D real(z)
  678.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  679.     ct =3D imag(z)
  680.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  681.     ct =3D real(z)
  682.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  683.     ct =3D imag(z)
  684.    ELSEIF(ip<5.1)
  685.     ct =3D (abs(rz) + abs(iz))
  686.    ELSEIF(ip<6.1)
  687.     ct =3D (rz + iz)
  688.    ELSE
  689.     ct =3D z
  690.    ENDIF,
  691.     |ct| <=3D |real(p3)|
  692.   }
  693.  
  694. GregsJuliaL8 {; =A92000 Greg McClure
  695. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  696. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  697. 6/MANR
  698.   z =3D Pixel, z =3D p2 * fn1(z) + log(fn2(z)) + p1:
  699.    z =3D p2 * fn1(z) + log(fn2(z)) + p1
  700.    ip =3D imag(p3)
  701.    rz =3D real(z)
  702.    iz =3D imag(z)
  703.    IF(ip<0.1)
  704.     ct =3D z
  705.    ELSEIF(ip<1.1)
  706.     ct =3D real(z)
  707.    ELSEIF(ip<2.1)
  708.     ct =3D imag(z)
  709.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  710.     ct =3D real(z)
  711.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  712.     ct =3D imag(z)
  713.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  714.     ct =3D real(z)
  715.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  716.     ct =3D imag(z)
  717.    ELSEIF(ip<5.1)
  718.     ct =3D (abs(rz) + abs(iz))
  719.    ELSEIF(ip<6.1)
  720.     ct =3D (rz + iz)
  721.    ELSE
  722.     ct =3D z
  723.    ENDIF,
  724.     |ct| <=3D |real(p3)|
  725.   }
  726.  
  727. GregsJuliaL9 {; =A92000 Greg McClure
  728. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  729. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  730. 6/MANR
  731.   z =3D Pixel, z =3D fn1(z) + p2 * log(fn2(z)) + p1:
  732.    z =3D fn1(z) + p2 * log(fn2(z)) + p1
  733.    ip =3D imag(p3)
  734.    rz =3D real(z)
  735.    iz =3D imag(z)
  736.    IF(ip<0.1)
  737.     ct =3D z
  738.    ELSEIF(ip<1.1)
  739.     ct =3D real(z)
  740.    ELSEIF(ip<2.1)
  741.     ct =3D imag(z)
  742.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  743.     ct =3D real(z)
  744.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  745.     ct =3D imag(z)
  746.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  747.     ct =3D real(z)
  748.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  749.     ct =3D imag(z)
  750.    ELSEIF(ip<5.1)
  751.     ct =3D (abs(rz) + abs(iz))
  752.    ELSEIF(ip<6.1)
  753.     ct =3D (rz + iz)
  754.    ELSE
  755.     ct =3D z
  756.    ENDIF,
  757.     |ct| <=3D |real(p3)|
  758.   }
  759.  
  760. GregsJuliaLA {; =A92000 Greg McClure
  761. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  762. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  763. 6/MANR
  764.   z =3D Pixel, z =3D log(p2 * fn1(z)) + log(p2 * fn2(z)) + p1:
  765.    z =3D log(p2 * fn1(z)) + log(p2 * fn2(z)) + p1
  766.    ip =3D imag(p3)
  767.    rz =3D real(z)
  768.    iz =3D imag(z)
  769.    IF(ip<0.1)
  770.     ct =3D z
  771.    ELSEIF(ip<1.1)
  772.     ct =3D real(z)
  773.    ELSEIF(ip<2.1)
  774.     ct =3D imag(z)
  775.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  776.     ct =3D real(z)
  777.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  778.     ct =3D imag(z)
  779.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  780.     ct =3D real(z)
  781.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  782.     ct =3D imag(z)
  783.    ELSEIF(ip<5.1)
  784.     ct =3D (abs(rz) + abs(iz))
  785.    ELSEIF(ip<6.1)
  786.     ct =3D (rz + iz)
  787.    ELSE
  788.     ct =3D z
  789.    ENDIF,
  790.     |ct| <=3D |real(p3)|
  791.   }
  792.  
  793. GregsJuliaLB {; =A92000 Greg McClure
  794. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  795. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  796. 6/MANR
  797.   z =3D Pixel, z =3D p2 * (log(fn1(z)) + log(fn2(z))) + p1:
  798.    z =3D p2 * (log(fn1(z)) + log(fn2(z))) + p1
  799.    ip =3D imag(p3)
  800.    rz =3D real(z)
  801.    iz =3D imag(z)
  802.    IF(ip<0.1)
  803.     ct =3D z
  804.    ELSEIF(ip<1.1)
  805.     ct =3D real(z)
  806.    ELSEIF(ip<2.1)
  807.     ct =3D imag(z)
  808.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  809.     ct =3D real(z)
  810.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  811.     ct =3D imag(z)
  812.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  813.     ct =3D real(z)
  814.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  815.     ct =3D imag(z)
  816.    ELSEIF(ip<5.1)
  817.     ct =3D (abs(rz) + abs(iz))
  818.    ELSEIF(ip<6.1)
  819.     ct =3D (rz + iz)
  820.    ELSE
  821.     ct =3D z
  822.    ENDIF,
  823.     |ct| <=3D |real(p3)|
  824.   }
  825.  
  826. GregsJuliaLC {; =A92000 Greg McClure
  827. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  828. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  829. 6/MANR
  830.   z =3D Pixel, z =3D log(fn1(z)) + log(p2 * fn2(z)) + p1:
  831.    z =3D log(fn1(z)) + log(p2 * fn2(z)) + p1
  832.    ip =3D imag(p3)
  833.    rz =3D real(z)
  834.    iz =3D imag(z)
  835.    IF(ip<0.1)
  836.     ct =3D z
  837.    ELSEIF(ip<1.1)
  838.     ct =3D real(z)
  839.    ELSEIF(ip<2.1)
  840.     ct =3D imag(z)
  841.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  842.     ct =3D real(z)
  843.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  844.     ct =3D imag(z)
  845.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  846.     ct =3D real(z)
  847.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  848.     ct =3D imag(z)
  849.    ELSEIF(ip<5.1)
  850.     ct =3D (abs(rz) + abs(iz))
  851.    ELSEIF(ip<6.1)
  852.     ct =3D (rz + iz)
  853.    ELSE
  854.     ct =3D z
  855.    ENDIF,
  856.     |ct| <=3D |real(p3)|
  857.   }
  858.  
  859. GregsJuliaLD {; =A92000 Greg McClure
  860. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  861. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  862. 6/MANR
  863.   z =3D Pixel, z =3D log(fn1(z)) + p2 * log(fn2(z)) + p1:
  864.    z =3D log(fn1(z)) + p2 * log(fn2(z)) + p1
  865.    ip =3D imag(p3)
  866.    rz =3D real(z)
  867.    iz =3D imag(z)
  868.    IF(ip<0.1)
  869.     ct =3D z
  870.    ELSEIF(ip<1.1)
  871.     ct =3D real(z)
  872.    ELSEIF(ip<2.1)
  873.     ct =3D imag(z)
  874.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  875.     ct =3D real(z)
  876.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  877.     ct =3D imag(z)
  878.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  879.     ct =3D real(z)
  880.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  881.     ct =3D imag(z)
  882.    ELSEIF(ip<5.1)
  883.     ct =3D (abs(rz) + abs(iz))
  884.    ELSEIF(ip<6.1)
  885.     ct =3D (rz + iz)
  886.    ELSE
  887.     ct =3D z
  888.    ENDIF,
  889.     |ct| <=3D |real(p3)|
  890.   }
  891.  
  892. - --------------------------------------------------------------
  893. Thanks for using Fractint, The Fractals and Fractint Discussion List
  894. Post Message:   fractint@lists.xmission.com
  895. Get Commands:   majordomo@lists.xmission.com "help"
  896. Administrator:  twegner@swbell.net
  897. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  898.  
  899. ------------------------------
  900.  
  901. Date: Fri, 14 Jan 2000 17:58:40 EST
  902. From: "Mitchell Berger" <drmitchb@hotmail.com>
  903. Subject: Re: (fractint) trivia
  904.  
  905. Absolutely delicious hard cookies great for dunking!
  906.  
  907.  
  908. >From: Tom Conally <conally@netpath.net>
  909. >Reply-To: fractint@lists.xmission.com
  910. >To: fractint@lists.xmission.com
  911. >Subject: (fractint) trivia
  912. >Date: Sat, 08 Jan 2000 08:53:13 -0500
  913. >
  914. >Just a bit of trivia- I was searching bread recipes and found this:
  915. >Mandelbrot - (Almond Bread)
  916. >http://sunsite.auc.dk/recipes/english/o0340658.html
  917. >
  918. >Just caught me by surprise.
  919. >
  920. >Tom Conally
  921. >In every boomerang there is a perfect throw.
  922. >Your life, Grasshopper, is to practice  till you find that throw
  923. >and become one with that boomerang!
  924. >__________________________________________
  925. >Boomerangs        http://fly.to/boomerangs
  926. >Internet Index       http://www.netpath.net/~conally/
  927. >
  928. >
  929. >
  930. >--------------------------------------------------------------
  931. >Thanks for using Fractint, The Fractals and Fractint Discussion List
  932. >Post Message:   fractint@lists.xmission.com
  933. >Get Commands:   majordomo@lists.xmission.com "help"
  934. >Administrator:  twegner@swbell.net
  935. >Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  936.  
  937. ______________________________________________________
  938. Get Your Private, Free Email at http://www.hotmail.com
  939.  
  940.  
  941. - --------------------------------------------------------------
  942. Thanks for using Fractint, The Fractals and Fractint Discussion List
  943. Post Message:   fractint@lists.xmission.com
  944. Get Commands:   majordomo@lists.xmission.com "help"
  945. Administrator:  twegner@swbell.net
  946. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  947.  
  948. ------------------------------
  949.  
  950. Date: Fri, 14 Jan 2000 10:06:29 -0800
  951. From: Gregory McClure <Gregory.McClure@quantum.com>
  952. Subject: (fractint) GREGSMAN.PAR
  953.  
  954. NeedleSharp        { ; =A92000 Greg McClure
  955.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  956.   formulaname=3DGregsMandelM1 function=3Dsin passes=3Db
  957.   center-mag=3D3.14159/0.5/1.5 params=3D0/0/1/0/100/0 float=3Dy =
  958. maxiter=3D1023
  959.   colors=3D@gamma1.map=20
  960.   }
  961.  
  962. CosineCaves        { ; =A92000 Greg McClure
  963.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  964.   formulaname=3DGregsMandelM1 function=3Dcos passes=3Db =
  965. center-mag=3D0/0/0.3
  966.   params=3D0/0/0/1/100/0 float=3Dy maxiter=3D1023 colors=3D@gamma1.map=20
  967.   }
  968.  
  969. Stalags            { ; =A92000 Greg McClure
  970.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  971.   formulaname=3DGregsMandelM1 function=3Dcos passes=3Db =
  972. center-mag=3D0/0/1.5
  973.   params=3D0/0/0/1/100/0 float=3Dy maxiter=3D1023 colors=3D@gamma1.map=20
  974.   }
  975.  
  976. XMarksTheSpot      { ; =A92000 Greg McClure
  977.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  978.   formulaname=3DGregsMandelM3 function=3Dsin/sinh passes=3Dt
  979.   center-mag=3D0/0/2.2 params=3D0/0/1/0/100/0 float=3Dy maxiter=3D1023
  980.   colors=3D@default.map=20
  981.   }
  982.  
  983. HolesHolesHoles    { ; =A92000 Greg McClure
  984.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  985.   formulaname=3DGregsJuliaM3 function=3Drecip/ident =
  986. corners=3D-2/2/-1.5/1.5
  987.   params=3D0/0/0/1/2/0 float=3Dy
  988.   =
  989. colors=3D000007<13>00z<15>zzz<15>0z0<15>000<15>0z0<15>zzz<15>z00<15>000<=
  990. 15\
  991.   >z00<15>zzz<15>z0z<15>000<15>z0z<14>zzz<14>00y<15>000000003=20
  992.   }
  993.  
  994. Bacteria           { ; =A92000 Greg McClure
  995.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  996.   formulaname=3DGregsJuliaM3 function=3Dcotanh/ident =
  997. corners=3D-2/2/-1.5/1.5
  998.   params=3D0/0/0/1/2/0 float=3Dy colors=3D@chroma.map=20
  999.   }
  1000.  
  1001. TheBodySnatchers   { ; =A92000 Greg McClure
  1002.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1003.   formulaname=3DGregsJuliaM3 function=3Drecip/tan =
  1004. corners=3D-2/2/-1.5/1.5
  1005.   params=3D0/0/0/1/2/0 float=3Dy
  1006.   =
  1007. colors=3D000007<13>00z<15>zzz<15>0z0<15>000<15>0z0<15>zzz<15>z00<15>000<=
  1008. 15\
  1009.   >z00<15>zzz<15>z0z<15>000<15>z0z<14>zzz<14>00y<15>000000003=20
  1010.   }
  1011.  
  1012. Pteradactyl        { ; =A92000 Greg McClure
  1013.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1014.   formulaname=3DGregsJuliaM3 function=3Dcosxx/tanh
  1015.   center-mag=3D1.19904e-014/7.54952e-015/0.666667 params=3D0/0/0/1/2/0
  1016.   float=3Dy colors=3D@goodega.map=20
  1017.   }
  1018.  
  1019. Sharps             { ; =A92000 Greg McClure
  1020.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1021.   formulaname=3DGregsMandelM1 function=3Dsin passes=3Dt
  1022.   corners=3D-3.353384/3.353384/-2.515038/2.515038 params=3D0/0/0/1/2/0
  1023.   float=3Dy maxiter=3D1500 colors=3D@default.map=20
  1024.   }
  1025.  
  1026. DeformedPropeller  { ; =A92000 Greg McClure
  1027.                      ; ... or an ameba
  1028.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1029.   formulaname=3DGregsMandelM1 function=3Dsin
  1030.   corners=3D-3.316301/3.316301/-2.487226/2.487226 =
  1031. params=3D0/0/-0.5/1/2/0
  1032.   float=3Dy maxiter=3D2500 colors=3D@default.map=20
  1033.   }
  1034.  
  1035. MoreTeeth          { ; =A92000 Greg McClure
  1036.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1037.   formulaname=3DGregsMandelM1 function=3Dsin
  1038.   corners=3D-1.764272/1.764272/-1.323204/1.323204 params=3D0/0/-1/0/2/0
  1039.   float=3Dy maxiter=3D2500 colors=3D@default.map=20
  1040.   }
  1041.  
  1042. HalfBone           { ; =A92000 Greg McClure
  1043.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1044.   formulaname=3DGregsMandelM1 function=3Dcos
  1045.   corners=3D-3.752144/3.752144/-2.814108/2.814108 params=3D0/0/1/0/2/0
  1046.   float=3Dy maxiter=3D2500 colors=3D@paintjet.map=20
  1047.   }
  1048.  
  1049. Crabby             { ; =A92000 Greg McClure
  1050.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1051.   formulaname=3DGregsMandelM1 function=3Dcos
  1052.   corners=3D-2.666667/2.666667/-2.5/1.5 params=3D0/0/0/1/4/0 float=3Dy
  1053.   maxiter=3D2500 colors=3D@chroma.map=20
  1054.   }
  1055.  
  1056. BentForest         { ; =A92000 Greg McClure
  1057.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1058.   formulaname=3DGregsJuliaM1 function=3Dsin passes=3Dt
  1059.   center-mag=3D4.44089e-016/3.88578e-014/0.503851 =
  1060. params=3D0/1/1/0/100000/0
  1061.   float=3Dy maxiter=3D100
  1062.   =
  1063. colors=3D000007<13>00z<15>zzz<15>0z0<15>000<15>0z0<15>zzz<15>z00<15>000<=
  1064. 15\
  1065.   >z00<15>zzz<15>z0z<15>000<15>z0z<14>zzz<14>00y<15>000000003=20
  1066.   }
  1067.  
  1068. Flowers            { ; =A92000 Greg McClure
  1069.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1070.   formulaname=3DGregsJuliaM3 function=3Dcotanh/ident passes=3Dt
  1071.   corners=3D-2/2/-1.5/1.5 params=3D0/0/0/1/6/0 float=3Dy
  1072.   =
  1073. colors=3DCCC00NGCG<19>sCs<20>ECsCCsCEs<19>CqsCssCsq<19>CsECsCEsE<19>qsqs=
  1074. ss\
  1075.   =
  1076. ssq<19>ssEssCsqC<19>sECsCCqCC<21>ACCCCC<21>sCs<20>ECsCCsCEs<19>CqsCssCsq=
  1077. \
  1078.   <9>CsY=20
  1079.   }
  1080.  
  1081. FloralExplosion    { ; =A92000 Greg McClure
  1082.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1083.   formulaname=3DGregsMandelM1 function=3Dsin
  1084.   center-mag=3D+2.04465566172460300/+1.08238157000345400/242.7522
  1085.   params=3D0/0/1/0/8/0 float=3Dy maxiter=3D300
  1086.   =
  1087. colors=3D000006<13>00y<15>zzy<15>0z0<15>000<15>0z03z2<14>zzy<15>z00<15>0=
  1088. 00\
  1089.   <15>z00z32<14>zzy<15>z0y<15>000302<14>z0y<14>zzy<14>00x<15>000000002
  1090.   }
  1091.  
  1092. FireworksTwirlers  { ; =A92000 Greg McClure
  1093.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1094.   formulaname=3DGregsMandelM1 function=3Dsin
  1095.   center-mag=3D0.7533/0.317449/39.7435 params=3D0/0/0/1/8/0 float=3Dy
  1096.   maxiter=3D300 colors=3D@froth6.map=20
  1097.   }
  1098.  
  1099. ColorCircles       { ; =A92000 Greg McClure
  1100.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1101.   formulaname=3DGregsJuliaM1 function=3Dsin
  1102.   center-mag=3D-0.995305/-0.726514/1.71821 params=3D-1/1.25/1/0/64/0
  1103.   float=3Dy maxiter=3D1500
  1104.   =
  1105. colors=3D000<15>z00<15>000<15>zV0<15>000<15>zz0<15>000<15>0z0<15>000<15>=
  1106. 0z\
  1107.   z<15>000<15>zzz<15>000<15>z0z<15>000<15>z00<14>000=20
  1108.   }
  1109.  
  1110. Curtains           { ; =A92000 Greg McClure
  1111.   reset=3D1960 type=3Dformula formulafile=3Dgregsman.frm
  1112.   formulaname=3DGregsMandelM3 function=3Dsin/cosxx
  1113.   center-mag=3D3.11502/1.40808/0.5681818 params=3D0/0/0/1/100/0 =
  1114. float=3Dy
  1115.   maxiter=3D100 colors=3D@goodega.map=20
  1116.   }
  1117.  
  1118. FlowerBlownUp      { ; =A92000 Greg McClure
  1119.   reset=3D1960 type=3Dformula formulafile=3Dgregsman.frm
  1120.   formulaname=3DGregsMandelM1 function=3Dsin
  1121.   center-mag=3D+1.73634095796676300/+1.21011864406779700/905.7971
  1122.   params=3D0/0/1/0/100/0 float=3Dy maxiter=3D1023
  1123.   =
  1124. colors=3D000<15>z00<15>100310<14>zV0<15>110330<14>zz0<15>010030<14>0z0<1=
  1125. 5>\
  1126.   =
  1127. 011033<14>0zz<15>001003<14>00z<14>004101303<14>z0z<15>111333<14>zzz<14>4=
  1128. \
  1129.   44
  1130.   }
  1131.  
  1132. FractalGlue        { ; =A92000 Greg McClure
  1133.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1134.   formulaname=3DGregsMandelM1 function=3Dsin
  1135.   corners=3D-0.128/0.128/-0.096/0.096 params=3D0/0/1/0.2/2/0 float=3Dy
  1136.   maxiter=3D2500 colors=3D@default.map=20
  1137.   }
  1138.  
  1139. FractalGlueCloseup { ; =A92000 Greg McClure
  1140.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1141.   formulaname=3DGregsMandelM1 function=3Dsin
  1142.   corners=3D-0.0128/0.0128/-0.0096/0.0096 params=3D0/0/1/0.2/2/0 =
  1143. float=3Dy
  1144.   maxiter=3D500 colors=3D@default.map=20
  1145.   }
  1146.  
  1147. YouNameIt          { ; =A92000 Greg McClure
  1148.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1149.   formulaname=3DGregsMandelM1 function=3Dsin passes=3Dt
  1150.   center-mag=3D3.87104/0.731484/7.74311 params=3D0/0/1/0.2/8/0 =
  1151. float=3Dy
  1152.   maxiter=3D500 colors=3D@volcano.map=20
  1153.   }
  1154.  
  1155. Digestion          { ; =A92000 Greg McClure
  1156.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1157.   formulaname=3DGregsMandelM1 function=3Dsin passes=3Db =
  1158. corners=3D-4/4/-3/3
  1159.   params=3D0/0/2/1/100000/0 float=3Dy maxiter=3D1023 =
  1160. colors=3D@default.map=20
  1161.   }
  1162.  
  1163. Volcanos           { ; =A92000 Greg McClure
  1164.   reset=3D1960 type=3Dformula formulafile=3Dgregsman.frm
  1165.   formulaname=3DGregsMandelS3 function=3Dsin/cosxx center-mag=3D0/0/0.2
  1166.   params=3D0/0/0/1/100/0 float=3Dy maxiter=3D100 colors=3D@froth616.map =
  1167.  
  1168.   }
  1169.  
  1170. DecompX            { ; =A92000 Greg McClure
  1171.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1172.   formulaname=3DGregsMandelP1 function=3Dconj center-mag=3D0/0/0.6
  1173.   params=3D0/0/3/0/100/0 float=3Dy decomp=3D256 colors=3D@blues.map=20
  1174.   }
  1175.  
  1176. BlackLight         { ; =A92000 Greg McClure
  1177.   reset=3D1920 type=3Dformula formulafile=3Dgregsman.frm
  1178.   formulaname=3DGregsMandelP1 function=3Drecip corners=3D-2/2/-1.5/1.5
  1179.   params=3D0/0/-13/0/100/0 float=3Dy decomp=3D256 colors=3D@blues.map=20
  1180.   }
  1181.  
  1182. ItsRightHere       {
  1183.   reset=3D1960 type=3Dformula formulafile=3Dgregsman.frm
  1184.   formulaname=3DGregsMandelM1 function=3Dsin passes=3Dt
  1185.   center-mag=3D+0.00000000000000000/+0.00000000000000000/100
  1186.   params=3D0/0/0/1.1/100/0 float=3Dy maxiter=3D1023 =
  1187. colors=3D@default.map=20
  1188.   }
  1189.  
  1190. OrMaybeHere        {
  1191.   reset=3D1960 type=3Dformula formulafile=3Dgregsman.frm
  1192.   formulaname=3DGregsMandelM1 function=3Dsin passes=3D2
  1193.   center-mag=3D-1.11022e-016/8.32667e-017/6.666667
  1194.   params=3D0/0/0.75/0.75/100/0 float=3Dy maxiter=3D1023
  1195.   =
  1196. colors=3D000000200400600A00D00H00M00Q00<2>f00l00s00z00z00<3>z30z40z60<2>=
  1197. zD\
  1198.   =
  1199. 0zF0zI0zL0<2>zV0zV0<2>zX0zY0z_0z`0<2>zg0zj0zm0zp0zs0zv0zz0zz0<3>sz0oz0lz=
  1200. \
  1201.   =
  1202. 0hz0cz0_z0<2>Jz0Dz06z00z00z00y00w20u40s60oA0lD0hH0cM0_Q<2>0Jf0Dl06s00z00=
  1203. \
  1204.   =
  1205. z00z20z40z60zA0zD0zH0zM0zQ0z<2>f0zl0zs0zz0zz0zz0zz2zz4zz6zzAzzDzzHzzMzzQ=
  1206. \
  1207.   =
  1208. z<2>zfzzlzzszzzzzzz<3>sssooolllhhhccc___<2>JJJDDD666000000000222444666AA=
  1209. \
  1210.   =
  1211. ADDDHHHMMMQQQ<2>ffflllssszzzzzz<3>zszzozzlzzhzzczz_z<2>zJzzDzz6zz0zz0z<3=
  1212. \
  1213.   =
  1214. >s0zo0zl0zh0zc0z_0z<2>J0zD0z60z00z00z00y02w04u06s0Ao0Dl0Hh0Mc0Q_<2>0fJ0l=
  1215. \
  1216.   =
  1217. D0s60z00z00z02z04z06z0Az0Dz0Hz0Mz0Qz0<2>fz0lz0sz0zz0<4>zv0zu0zs0<2>zl0zj=
  1218. \
  1219.   =
  1220. 0zg0zd0<2>zW0<3>zT0zS0zQ0zP0<2>zI0zF0zC0z90z60z30z00z00y00w00u00<2>j00f0=
  1221. \
  1222.   0a00W00R00<3>000000
  1223.   }
  1224.  
  1225. FractalRainbow     {
  1226.   reset=3D1960 type=3Dformula formulafile=3Dgregsman.frm
  1227.   formulaname=3DGregsMandelM1 function=3Dcosxx passes=3D3
  1228.   center-mag=3D1.23949/-0.367666/10.41667 params=3D0/0/0.5/0.5/100/0
  1229.   float=3Dy maxiter=3D1023 colors=3D@default.map=20
  1230.   }
  1231.  
  1232. - --------------------------------------------------------------
  1233. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1234. Post Message:   fractint@lists.xmission.com
  1235. Get Commands:   majordomo@lists.xmission.com "help"
  1236. Administrator:  twegner@swbell.net
  1237. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1238.  
  1239. ------------------------------
  1240.  
  1241. Date: Fri, 14 Jan 2000 10:10:49 -0800
  1242. From: Gregory McClure <Gregory.McClure@quantum.com>
  1243. Subject: (fractint) PART1 OF GREGSMAN.FRM (M-series)
  1244.  
  1245. GregsMandelM1 {; =A92000 Greg McClure
  1246. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1247. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1248. 6/MANR
  1249. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1 =3D sqr =3D standard =
  1250. Mandelbrot
  1251.   z =3D p1 + Pixel:
  1252.    z =3D p2 * fn1(z) + Pixel
  1253.    ip =3D imag(p3)
  1254.    rz =3D real(z)
  1255.    iz =3D imag(z)
  1256.    IF(ip<0.1)
  1257.     ct =3D z
  1258.    ELSEIF(ip<1.1)
  1259.     ct =3D real(z)
  1260.    ELSEIF(ip<2.1)
  1261.     ct =3D imag(z)
  1262.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1263.     ct =3D real(z)
  1264.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1265.     ct =3D imag(z)
  1266.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1267.     ct =3D real(z)
  1268.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1269.     ct =3D imag(z)
  1270.    ELSEIF(ip<5.1)
  1271.     ct =3D (abs(rz) + abs(iz))
  1272.    ELSEIF(ip<6.1)
  1273.     ct =3D (rz + iz)
  1274.    ELSE
  1275.     ct =3D z
  1276.    ENDIF,
  1277.     |ct| <=3D |real(p3)|
  1278.   }
  1279.  
  1280. GregsMandelM2 {; =A92000 Greg McClure
  1281. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1282. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1283. 6/MANR
  1284. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D sqr/zero =3D standard =
  1285. Mandelbrot
  1286. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D zero/sqr =3D standard =
  1287. Mandelbrot
  1288.   z =3D p1 + Pixel:
  1289.    z =3D p2 * (fn1(z) + fn2(z)) + Pixel
  1290.    ip =3D imag(p3)
  1291.    rz =3D real(z)
  1292.    iz =3D imag(z)
  1293.    IF(ip<0.1)
  1294.     ct =3D z
  1295.    ELSEIF(ip<1.1)
  1296.     ct =3D real(z)
  1297.    ELSEIF(ip<2.1)
  1298.     ct =3D imag(z)
  1299.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1300.     ct =3D real(z)
  1301.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1302.     ct =3D imag(z)
  1303.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1304.     ct =3D real(z)
  1305.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1306.     ct =3D imag(z)
  1307.    ELSEIF(ip<5.1)
  1308.     ct =3D (abs(rz) + abs(iz))
  1309.    ELSEIF(ip<6.1)
  1310.     ct =3D (rz + iz)
  1311.    ELSE
  1312.     ct =3D z
  1313.    ENDIF,
  1314.     |ct| <=3D |real(p3)|
  1315.   }
  1316.  
  1317. GregsMandelM3 {; =A92000 Greg McClure
  1318. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1319. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1320. 6/MANR
  1321. ; p1 =3D 0/0, p2 =3D 0/0, p3 =3D 2/0, fn1 =3D sqr =3D standard =
  1322. Mandelbrot
  1323. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D zero/sqr =3D standard =
  1324. Mandelbrot
  1325.   z =3D p1 + Pixel:
  1326.    z =3D fn1(z) + p2 * fn2(z) + Pixel
  1327.    ip =3D imag(p3)
  1328.    rz =3D real(z)
  1329.    iz =3D imag(z)
  1330.    IF(ip<0.1)
  1331.     ct =3D z
  1332.    ELSEIF(ip<1.1)
  1333.     ct =3D real(z)
  1334.    ELSEIF(ip<2.1)
  1335.     ct =3D imag(z)
  1336.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1337.     ct =3D real(z)
  1338.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1339.     ct =3D imag(z)
  1340.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1341.     ct =3D real(z)
  1342.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1343.     ct =3D imag(z)
  1344.    ELSEIF(ip<5.1)
  1345.     ct =3D (abs(rz) + abs(iz))
  1346.    ELSEIF(ip<6.1)
  1347.     ct =3D (rz + iz)
  1348.    ELSE
  1349.     ct =3D z
  1350.    ENDIF,
  1351.     |ct| <=3D |real(p3)|
  1352.   }
  1353.  
  1354. GregsJuliaM1 {; =A92000 Greg McClure
  1355. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  1356. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1357. 6/MANR
  1358. ; p2 =3D 1/0, p3 =3D 2/0, fn1 =3D sqr =3D standard Julia for point p1
  1359.   z =3D Pixel, z =3D p2 * fn1(z) + p1:
  1360.    z =3D p2 * fn1(z) + p1
  1361.    ip =3D imag(p3)
  1362.    rz =3D real(z)
  1363.    iz =3D imag(z)
  1364.    IF(ip<0.1)
  1365.     ct =3D z
  1366.    ELSEIF(ip<1.1)
  1367.     ct =3D real(z)
  1368.    ELSEIF(ip<2.1)
  1369.     ct =3D imag(z)
  1370.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1371.     ct =3D real(z)
  1372.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1373.     ct =3D imag(z)
  1374.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1375.     ct =3D real(z)
  1376.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1377.     ct =3D imag(z)
  1378.    ELSEIF(ip<5.1)
  1379.     ct =3D (abs(rz) + abs(iz))
  1380.    ELSEIF(ip<6.1)
  1381.     ct =3D (rz + iz)
  1382.    ELSE
  1383.     ct =3D z
  1384.    ENDIF,
  1385.     |ct| <=3D |real(p3)|
  1386.   }
  1387.  
  1388. GregsJuliaM2 {; =A92000 Greg McClure
  1389. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  1390. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1391. 6/MANR
  1392. ; p2 =3D 0/0, p3 =3D 2/0, fn1 =3D sqr/zero =3D standard Julia for point =
  1393. p1
  1394. ; p2 =3D 1/0, p3 =3D 2/0, fn1 =3D zero/sqr =3D standard Julia for point =
  1395. p1
  1396.   z =3D Pixel, z =3D p2 * (fn1(z) + fn2(z)) + p1:
  1397.    z =3D p2 * (fn1(z) + fn2(z)) + p1
  1398.    ip =3D imag(p3)
  1399.    rz =3D real(z)
  1400.    iz =3D imag(z)
  1401.    IF(ip<0.1)
  1402.     ct =3D z
  1403.    ELSEIF(ip<1.1)
  1404.     ct =3D real(z)
  1405.    ELSEIF(ip<2.1)
  1406.     ct =3D imag(z)
  1407.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1408.     ct =3D real(z)
  1409.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1410.     ct =3D imag(z)
  1411.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1412.     ct =3D real(z)
  1413.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1414.     ct =3D imag(z)
  1415.    ELSEIF(ip<5.1)
  1416.     ct =3D (abs(rz) + abs(iz))
  1417.    ELSEIF(ip<6.1)
  1418.     ct =3D (rz + iz)
  1419.    ELSE
  1420.     ct =3D z
  1421.    ENDIF,
  1422.     |ct| <=3D |real(p3)|
  1423.   }
  1424.  
  1425. GregsJuliaM3 {; =A92000 Greg McClure
  1426. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  1427. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1428. 6/MANR
  1429. ; p2 =3D 0/0, p3 =3D 2/0, fn1 =3D sqr =3D standard Julia for point p1
  1430. ; p2 =3D 1/0, p3 =3D 2/0, fn1 =3D zero/sqr =3D standard Julia for point =
  1431. p1
  1432.   z =3D Pixel, z =3D fn1(z) + p2 * fn2(z) + p1:
  1433.    z =3D fn1(z) + p2 * fn2(z) + p1
  1434.    ip =3D imag(p3)
  1435.    rz =3D real(z)
  1436.    iz =3D imag(z)
  1437.    IF(ip<0.1)
  1438.     ct =3D z
  1439.    ELSEIF(ip<1.1)
  1440.     ct =3D real(z)
  1441.    ELSEIF(ip<2.1)
  1442.     ct =3D imag(z)
  1443.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1444.     ct =3D real(z)
  1445.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1446.     ct =3D imag(z)
  1447.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1448.     ct =3D real(z)
  1449.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1450.     ct =3D imag(z)
  1451.    ELSEIF(ip<5.1)
  1452.     ct =3D (abs(rz) + abs(iz))
  1453.    ELSEIF(ip<6.1)
  1454.     ct =3D (rz + iz)
  1455.    ELSE
  1456.     ct =3D z
  1457.    ENDIF,
  1458.     |ct| <=3D |real(p3)|
  1459.   }
  1460.  
  1461. - --------------------------------------------------------------
  1462. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1463. Post Message:   fractint@lists.xmission.com
  1464. Get Commands:   majordomo@lists.xmission.com "help"
  1465. Administrator:  twegner@swbell.net
  1466. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1467.  
  1468. ------------------------------
  1469.  
  1470. Date: Fri, 14 Jan 2000 10:11:50 -0800
  1471. From: Gregory McClure <Gregory.McClure@quantum.com>
  1472. Subject: (fractint) PART 2 OF GREGSMAN.FRM (P-series)
  1473.  
  1474. GregsMandelP1 {; =A92000 Greg McClure
  1475. ; p1 =3D offset, p2 =3D exponent, p3 =3D cutoff/type
  1476. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1477. 6/MANR
  1478. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1 =3D sqr =3D standard =
  1479. Mandelbrot
  1480. ; p1 =3D 0/0, p2 =3D 2/0, p3 =3D 2/0, fn1 =3D ident =3D standard =
  1481. Mandelbrot
  1482.   z =3D p1 + Pixel:
  1483.    z =3D fn1(z)^p2 + Pixel
  1484.    ip =3D imag(p3)
  1485.    rz =3D real(z)
  1486.    iz =3D imag(z)
  1487.    IF(ip<0.1)
  1488.     ct =3D z
  1489.    ELSEIF(ip<1.1)
  1490.     ct =3D real(z)
  1491.    ELSEIF(ip<2.1)
  1492.     ct =3D imag(z)
  1493.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1494.     ct =3D real(z)
  1495.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1496.     ct =3D imag(z)
  1497.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1498.     ct =3D real(z)
  1499.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1500.     ct =3D imag(z)
  1501.    ELSEIF(ip<5.1)
  1502.     ct =3D (abs(rz) + abs(iz))
  1503.    ELSEIF(ip<6.1)
  1504.     ct =3D (rz + iz)
  1505.    ELSE
  1506.     ct =3D z
  1507.    ENDIF,
  1508.     |ct| <=3D |real(p3)|
  1509.   }
  1510.  
  1511. GregsMandelP2 {; =A92000 Greg McClure
  1512. ; p1 =3D offset, p2 =3D exponent, p3 =3D cutoff/type
  1513. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1514. 6/MANR
  1515. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D sqr/zero =3D standard =
  1516. Mandelbrot
  1517. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D zero/sqr =3D standard =
  1518. Mandelbrot
  1519. ; p1 =3D 0/0, p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D ident/zero =3D =
  1520. standard Mandelbrot
  1521. ; p1 =3D 0/0, p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D zero/ident =3D =
  1522. standard Mandelbrot
  1523.   z =3D p1 + Pixel:
  1524.    z =3D (fn1(z) + fn2(z))^p2 + Pixel
  1525.    ip =3D imag(p3)
  1526.    rz =3D real(z)
  1527.    iz =3D imag(z)
  1528.    IF(ip<0.1)
  1529.     ct =3D z
  1530.    ELSEIF(ip<1.1)
  1531.     ct =3D real(z)
  1532.    ELSEIF(ip<2.1)
  1533.     ct =3D imag(z)
  1534.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1535.     ct =3D real(z)
  1536.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1537.     ct =3D imag(z)
  1538.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1539.     ct =3D real(z)
  1540.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1541.     ct =3D imag(z)
  1542.    ELSEIF(ip<5.1)
  1543.     ct =3D (abs(rz) + abs(iz))
  1544.    ELSEIF(ip<6.1)
  1545.     ct =3D (rz + iz)
  1546.    ELSE
  1547.     ct =3D z
  1548.    ENDIF,
  1549.     |ct| <=3D |real(p3)|
  1550.   }
  1551.  
  1552. GregsMandelP3 {; =A92000 Greg McClure
  1553. ; p1 =3D offset, p2 =3D exponent, p3 =3D cutoff/type
  1554. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1555. 6/MANR
  1556. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D sqr/zero =3D standard =
  1557. Mandelbrot
  1558. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D zero/sqr =3D standard =
  1559. Mandelbrot
  1560. ; p1 =3D 0/0, p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D zero/ident =3D =
  1561. standard Mandelbrot
  1562.   z =3D p1 + Pixel:
  1563.    z =3D fn1(z) + fn2(z)^p2 + Pixel
  1564.    ip =3D imag(p3)
  1565.    rz =3D real(z)
  1566.    iz =3D imag(z)
  1567.    IF(ip<0.1)
  1568.     ct =3D z
  1569.    ELSEIF(ip<1.1)
  1570.     ct =3D real(z)
  1571.    ELSEIF(ip<2.1)
  1572.     ct =3D imag(z)
  1573.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1574.     ct =3D real(z)
  1575.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1576.     ct =3D imag(z)
  1577.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1578.     ct =3D real(z)
  1579.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1580.     ct =3D imag(z)
  1581.    ELSEIF(ip<5.1)
  1582.     ct =3D (abs(rz) + abs(iz))
  1583.    ELSEIF(ip<6.1)
  1584.     ct =3D (rz + iz)
  1585.    ELSE
  1586.     ct =3D z
  1587.    ENDIF,
  1588.     |ct| <=3D |real(p3)|
  1589.   }
  1590.  
  1591. GregsMandelP4 {; =A92000 Greg McClure
  1592. ; p1 =3D offset, p2 =3D exponent, p3 =3D cutoff/type
  1593. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1594. 6/MANR
  1595. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D sqr/zero =3D standard =
  1596. Mandelbrot
  1597. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D zero/sqr =3D standard =
  1598. Mandelbrot
  1599. ; p1 =3D 0/0, p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D ident/zero =3D =
  1600. standard Mandelbrot
  1601. ; p1 =3D 0/0, p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D zero/ident =3D =
  1602. standard Mandelbrot
  1603.   z =3D p1 + Pixel:
  1604.    z =3D fn1(z)^p2 + fn2(z)^p2 + Pixel
  1605.    ip =3D imag(p3)
  1606.    rz =3D real(z)
  1607.    iz =3D imag(z)
  1608.    IF(ip<0.1)
  1609.     ct =3D z
  1610.    ELSEIF(ip<1.1)
  1611.     ct =3D real(z)
  1612.    ELSEIF(ip<2.1)
  1613.     ct =3D imag(z)
  1614.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1615.     ct =3D real(z)
  1616.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1617.     ct =3D imag(z)
  1618.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1619.     ct =3D real(z)
  1620.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1621.     ct =3D imag(z)
  1622.    ELSEIF(ip<5.1)
  1623.     ct =3D (abs(rz) + abs(iz))
  1624.    ELSEIF(ip<6.1)
  1625.     ct =3D (rz + iz)
  1626.    ELSE
  1627.     ct =3D z
  1628.    ENDIF,
  1629.     |ct| <=3D |real(p3)|
  1630.   }
  1631.  
  1632. GregsJuliaP1 {; =A92000 Greg McClure
  1633. ; p1 =3D point, p2 =3D exponent, p3 =3D cutoff/type
  1634. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1635. 6/MANR
  1636. ; p2 =3D 1/0, p3 =3D 2/0, fn1 =3D sqr =3D standard Julia for point p1
  1637. ; p2 =3D 2/0, p3 =3D 2/0, fn1 =3D ident =3D standard Julia for point p1
  1638.   z =3D Pixel, z =3D fn1(z)^p2 + p1:
  1639.    z =3D fn1(z)^p2 + p1
  1640.    ip =3D imag(p3)
  1641.    rz =3D real(z)
  1642.    iz =3D imag(z)
  1643.    IF(ip<0.1)
  1644.     ct =3D z
  1645.    ELSEIF(ip<1.1)
  1646.     ct =3D real(z)
  1647.    ELSEIF(ip<2.1)
  1648.     ct =3D imag(z)
  1649.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1650.     ct =3D real(z)
  1651.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1652.     ct =3D imag(z)
  1653.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1654.     ct =3D real(z)
  1655.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1656.     ct =3D imag(z)
  1657.    ELSEIF(ip<5.1)
  1658.     ct =3D (abs(rz) + abs(iz))
  1659.    ELSEIF(ip<6.1)
  1660.     ct =3D (rz + iz)
  1661.    ELSE
  1662.     ct =3D z
  1663.    ENDIF,
  1664.     |ct| <=3D |real(p3)|
  1665.   }
  1666.  
  1667. GregsJuliaP2 {; =A92000 Greg McClure
  1668. ; p1 =3D point, p2 =3D exponent, p3 =3D cutoff/type
  1669. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1670. 6/MANR
  1671. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D sqr/zero =3D standard Julia for =
  1672. point p1
  1673. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D zero/sqr =3D standard Julia for =
  1674. point p1
  1675. ; p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D ident/zero =3D standard Julia for =
  1676. point p1
  1677. ; p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D zero/ident =3D standard Julia for =
  1678. point p1
  1679.   z =3D Pixel, z =3D (fn1(z) + fn2(z))^p2 + p1:
  1680.    z =3D (fn1(z) + fn2(z))^p2 + p1
  1681.    ip =3D imag(p3)
  1682.    rz =3D real(z)
  1683.    iz =3D imag(z)
  1684.    IF(ip<0.1)
  1685.     ct =3D z
  1686.    ELSEIF(ip<1.1)
  1687.     ct =3D real(z)
  1688.    ELSEIF(ip<2.1)
  1689.     ct =3D imag(z)
  1690.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1691.     ct =3D real(z)
  1692.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1693.     ct =3D imag(z)
  1694.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1695.     ct =3D real(z)
  1696.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1697.     ct =3D imag(z)
  1698.    ELSEIF(ip<5.1)
  1699.     ct =3D (abs(rz) + abs(iz))
  1700.    ELSEIF(ip<6.1)
  1701.     ct =3D (rz + iz)
  1702.    ELSE
  1703.     ct =3D z
  1704.    ENDIF,
  1705.     |ct| <=3D |real(p3)|
  1706.   }
  1707.  
  1708. GregsJuliaP3 {; =A92000 Greg McClure
  1709. ; p1 =3D point, p2 =3D exponent, p3 =3D cutoff/type
  1710. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1711. 6/MANR
  1712. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D sqr/zero =3D standard Julia for =
  1713. point p1
  1714. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D zero/sqr =3D standard Julia for =
  1715. point p1
  1716. ; p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D zero/ident =3D standard Julia for =
  1717. point p1
  1718.   z =3D Pixel, z =3D fn1(z) + fn2(z)^p2 + p1:
  1719.    z =3D fn1(z) + fn2(z)^p2 + p1
  1720.    ip =3D imag(p3)
  1721.    rz =3D real(z)
  1722.    iz =3D imag(z)
  1723.    IF(ip<0.1)
  1724.     ct =3D z
  1725.    ELSEIF(ip<1.1)
  1726.     ct =3D real(z)
  1727.    ELSEIF(ip<2.1)
  1728.     ct =3D imag(z)
  1729.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1730.     ct =3D real(z)
  1731.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1732.     ct =3D imag(z)
  1733.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1734.     ct =3D real(z)
  1735.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1736.     ct =3D imag(z)
  1737.    ELSEIF(ip<5.1)
  1738.     ct =3D (abs(rz) + abs(iz))
  1739.    ELSEIF(ip<6.1)
  1740.     ct =3D (rz + iz)
  1741.    ELSE
  1742.     ct =3D z
  1743.    ENDIF,
  1744.     |ct| <=3D |real(p3)|
  1745.   }
  1746.  
  1747. GregsJuliaP4 {; =A92000 Greg McClure
  1748. ; p1 =3D point, p2 =3D exponent, p3 =3D cutoff/type
  1749. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1750. 6/MANR
  1751. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D sqr/zero =3D standard Julia for =
  1752. point p1
  1753. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D zero/sqr =3D standard Julia for =
  1754. point p1
  1755. ; p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D ident/zero =3D standard Julia for =
  1756. point p1
  1757. ; p2 =3D 2/0, p3 =3D 2/0, fn1/fn2 =3D zero/ident =3D standard Julia for =
  1758. point p1
  1759.   z =3D Pixel, z =3D fn1(z)^p2 + fn2(z)^p2 + p1:
  1760.    z =3D fn1(z)^p2 + fn2(z)^p2 + p1
  1761.    ip =3D imag(p3)
  1762.    rz =3D real(z)
  1763.    iz =3D imag(z)
  1764.    IF(ip<0.1)
  1765.     ct =3D z
  1766.    ELSEIF(ip<1.1)
  1767.     ct =3D real(z)
  1768.    ELSEIF(ip<2.1)
  1769.     ct =3D imag(z)
  1770.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1771.     ct =3D real(z)
  1772.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1773.     ct =3D imag(z)
  1774.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1775.     ct =3D real(z)
  1776.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1777.     ct =3D imag(z)
  1778.    ELSEIF(ip<5.1)
  1779.     ct =3D (abs(rz) + abs(iz))
  1780.    ELSEIF(ip<6.1)
  1781.     ct =3D (rz + iz)
  1782.    ELSE
  1783.     ct =3D z
  1784.    ENDIF,
  1785.     |ct| <=3D |real(p3)|
  1786.   }
  1787.  
  1788. - --------------------------------------------------------------
  1789. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1790. Post Message:   fractint@lists.xmission.com
  1791. Get Commands:   majordomo@lists.xmission.com "help"
  1792. Administrator:  twegner@swbell.net
  1793. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1794.  
  1795. ------------------------------
  1796.  
  1797. End of fractint-digest V1 #437
  1798. ******************************
  1799.  
  1800.