C:\Data\fractdev\fractint\fractint\common\fractalp.c

1 /* 2 This module consists only of the fractalspecific structure 3 and a *slew* of defines needed to get it to compile 4 */ 5 6 /* includes needed for fractalspecific */ 7 8 /* see Fractint.c for a description of the "include" hierarchy */ 9 #include "port.h" 10 #include "prototyp.h" 11 #include "helpdefs.h" 12 #include "fractype.h" 13 14 /* functions defined elswhere needed for fractalspecific */ 15 /* moved to prototyp.h */ 16 17 /* parameter descriptions */ 18 /* Note: parameters preceded by + are integer parameters */ 19 /* parameters preceded by # are U32 parameters */ 20 21 /* for Mandelbrots */ 22 static char far realz0[] = "Real Perturbation of Z(0)"; 23 static char far imagz0[] = "Imaginary Perturbation of Z(0)"; 24 25 /* for Julias */ 26 static char far realparm[] = "Real Part of Parameter"; 27 static char far imagparm[] = "Imaginary Part of Parameter"; 28 29 /* for Newtons */ 30 static char far newtdegree[] = "+Polynomial Degree (>= 2)"; 31 32 /* for MarksMandel/Julia */ 33 static char far exponent[] = "Real part of Exponent"; 34 static char far imexponent[] = "Imag part of Exponent"; 35 36 /* for Complex Newton */ 37 static char far realroot[] = "Real part of Root"; 38 static char far imagroot[] = "Imag part of Root"; 39 static char far realdegree[] = "Real part of Degree"; 40 static char far imagdegree[] = "Imag part of Degree"; 41 42 /* for Lorenz */ 43 static char far timestep[] = "Time Step"; 44 45 /* for formula */ 46 static char far p1real[] = "Real portion of p1"; 47 static char far p2real[] = "Real portion of p2"; 48 static char far p3real[] = "Real portion of p3"; 49 static char far p4real[] = "Real portion of p4"; 50 static char far p5real[] = "Real portion of p5"; 51 static char far p1imag[] = "Imaginary portion of p1"; 52 static char far p2imag[] = "Imaginary portion of p2"; 53 static char far p3imag[] = "Imaginary portion of p3"; 54 static char far p4imag[] = "Imaginary portion of p4"; 55 static char far p5imag[] = "Imaginary portion of p5"; 56 57 /* trig functions */ 58 static char far recoeftrg1[] = "Real Coefficient First Function"; 59 static char far imcoeftrg1[] = "Imag Coefficient First Function"; 60 static char far recoeftrg2[] = "Real Coefficient Second Function"; 61 static char far imcoeftrg2[] = "Imag Coefficient Second Function"; 62 63 /* MCP 7-7-91 64 static char far recoefsqr[] = "Real Coefficient Square Term"; 65 static char far imcoefsqr[] = "Imag Coefficient Square Term"; 66 */ 67 68 static char far recoef2nd[] = "Real Coefficient Second Term"; 69 static char far imcoef2nd[] = "Imag Coefficient Second Term"; 70 71 /* KAM Torus */ 72 static char far kamangle[] = "Angle (radians)"; 73 static char far kamstep[] = "Step size"; 74 static char far kamstop[] = "Stop value"; 75 static char far pointsperorbit[] = "+Points per orbit"; 76 77 /* Newtbasin */ 78 static char far stripes[] = "Enter non-zero value for stripes"; 79 80 /* Gingerbreadman */ 81 static char far initx[] = "Initial x"; 82 static char far inity[] = "Initial y"; 83 84 /* popcorn and julia popcorn generalized */ 85 static char far step_x[] = "Step size (real)"; 86 static char far step_y[] = "Step size (imaginary)"; 87 static char far constant_x[] = "Constant C (real)"; 88 static char far constant_y[] = "Constant C (imaginary)"; 89 90 /* bifurcations */ 91 static char far filt[] = "+Filter Cycles"; 92 static char far seed[] = "Seed Population"; 93 94 /* frothy basins */ 95 static char far frothmapping[] = "+Apply mapping once (1) or twice (2)"; 96 static char far frothshade[] = "+Enter non-zero value for alternate color shading"; 97 static char far frothavalue[] = "A (imaginary part of C)"; 98 99 /* symmetrical icon fractals */ 100 static char far s_lambda[] = "Lambda"; 101 static char far s_alpha[] = "Alpha"; 102 static char far s_beta[] = "Beta"; 103 static char far s_gamma[] = "Gamma"; 104 static char far s_omega[] = "Omega"; 105 static char far symdegree[] = "+Degree of symmetry"; 106 107 static char far shiftval[] = "Function Shift Value"; 108 109 /* plasma and ant */ 110 111 static char far s_randomseed[] = "+Random Seed Value (0 = Random, 1 = Reuse Last)"; 112 113 /* ifs */ 114 static char far color_method[] = "+Coloring method (0,1)"; 115 116 /* orbit fractals */ 117 static char A[] = "a"; 118 static char B[] = "b"; 119 static char D[] = "d"; 120 static char H[] = "h"; 121 static char P[] = "p"; 122 123 /* 4D fractals */ 124 static char C[] = "c"; 125 static char C1[] = "c1"; 126 static char CI[] = "ci"; 127 static char CJ[] = "cj"; 128 static char CK[] = "ck"; 129 static char ZJ[] = "zj"; 130 static char ZK[] = "zk"; 131 static char far notused[] = "notused"; 132 /* phoenix fractals */ 133 static char far degreeZ[] = "Degree = 0 | >= 2 | <= -3"; 134 135 /* empty string */ 136 static char far ES[] = ""; 137 138 /* julia inverse */ 139 static char far s_maxhits[] = "Max Hits per Pixel"; 140 #ifdef RANDOM_RUN

141 static char far randomruninterval[] = "Random Run Interval";

142 #endif 143 /* halley */ 144 static char far order[] = {"+Order (integer > 1)"}; 145 static char far real_relax[] = {"Real Relaxation coefficient"}; 146 static char far epsilon[] = {"Epsilon"}; 147 static char far imag_relax[] = {"Imag Relaxation coefficient"}; 148 /* cellular */ 149 static char far cell_init[] = {"#Initial String | 0 = Random | -1 = Reuse Last Random"}; 150 static char far cell_rule[] = {"#Rule = # of digits (see below) | 0 = Random"}; 151 static char far cell_type[] = {"+Type (see below)"}; 152 static char far cell_strt[] = {"#Starting Row Number"}; 153 154 /* bailout defines */ 155 #define FTRIGBAILOUT 2500 156 #define LTRIGBAILOUT 64 157 #define FROTHBAILOUT 7 158 #define STDBAILOUT 4 159 #define NOBAILOUT 0 160 161 MOREPARAMS moreparams[] = 162 { 163 {ICON ,{ s_omega, symdegree, ES,ES,ES,ES},{0,3,0,0,0,0}}, 164 {ICON3D ,{ s_omega, symdegree, ES,ES,ES,ES},{0,3,0,0,0,0}}, 165 {HYPERCMPLXJFP ,{ ZJ, ZK, ES,ES,ES,ES},{0,0,0,0,0,0}}, 166 {QUATJULFP ,{ ZJ, ZK, ES,ES,ES,ES},{0,0,0,0,0,0}}, 167 {PHOENIXCPLX ,{ degreeZ, ES, ES,ES,ES,ES},{0,0,0,0,0,0}}, 168 {PHOENIXFPCPLX ,{ degreeZ, ES, ES,ES,ES,ES},{0,0,0,0,0,0}}, 169 {MANDPHOENIXCPLX ,{ degreeZ, ES, ES,ES,ES,ES},{0,0,0,0,0,0}}, 170 {MANDPHOENIXFPCPLX,{ degreeZ, ES, ES,ES,ES,ES},{0,0,0,0,0,0}}, 171 {FORMULA ,{ p3real,p3imag,p4real,p4imag,p5real,p5imag},{0,0,0,0,0,0}}, 172 {FFORMULA ,{ p3real,p3imag,p4real,p4imag,p5real,p5imag},{0,0,0,0,0,0}}, 173 {ANT ,{ "+Wrap?",s_randomseed,ES,ES,ES,ES},{1,0,0,0,0,0}}, 174 {MANDELBROTMIX4 ,{ p3real,p3imag, ES,ES,ES,ES},{0,0,0,0,0,0}}, 175 {-1 ,{ NULL,NULL,NULL,NULL,NULL,NULL },{0,0,0,0,0,0}} 176 }; 177 178 /* 179 type math orbitcalc fnct per_pixel fnct per_image fnct 180 |-----|----|--------------|--------------|--------------| */ 181 struct alternatemathstuff far alternatemath[] = 182 { 183 #define USEBN 184 #ifdef USEBN 185 {JULIAFP, 1,JuliabnFractal,juliabn_per_pixel, MandelbnSetup}, 186 {MANDELFP,1,JuliabnFractal,mandelbn_per_pixel, MandelbnSetup},

187 #else 188 {JULIAFP, 2,JuliabfFractal,juliabf_per_pixel, MandelbfSetup}, 189 {MANDELFP,2,JuliabfFractal,mandelbf_per_pixel, MandelbfSetup},

1942 { 1943 t_julia_inverse+1, 1944 {realparm, imagparm, s_maxhits, randomruninterval}, 1945 {-0.11, 0.6557, 4, 1024}, 1946 HT_INVERSE, HF_INVERSE, NOGUESS+NOTRACE+INFCALC+NORESUME, 1947 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 1948 24, NOFRACTAL, MANDEL, INVERSEJULIAFP, NOSYM, 1949 Linverse_julia_orbit, NULL, orbit3dlongsetup, inverse_julia_per_image, 1950 NOBAILOUT 1951 }, 1952 1953 { 1954 t_julia_inverse, 1955 {realparm, imagparm, s_maxhits, randomruninterval}, 1956 {-0.11, 0.6557, 4, 1024}, 1957 HT_INVERSE, HF_INVERSE, NOGUESS+NOTRACE+INFCALC+NORESUME, 1958 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 1959 0, NOFRACTAL, MANDEL, INVERSEJULIA, NOSYM, 1960 Minverse_julia_orbit, NULL, orbit3dfloatsetup, inverse_julia_per_image, 1961 NOBAILOUT 1962 },

1963 #else 1964 { 1965 t_julia_inverse+1, 1966 {realparm, imagparm, s_maxhits, ES}, 1967 {-0.11, 0.6557, 4, 1024}, 1968 HT_INVERSE, HF_INVERSE, NOGUESS+NOTRACE+INFCALC+NORESUME, 1969 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 1970 24, NOFRACTAL, MANDEL, INVERSEJULIAFP, NOSYM, 1971 Linverse_julia_orbit, NULL, orbit3dlongsetup, inverse_julia_per_image, 1972 NOBAILOUT 1973 }, 1974 1975 { 1976 t_julia_inverse, 1977 {realparm, imagparm, s_maxhits, ES}, 1978 {-0.11, 0.6557, 4, 1024}, 1979 HT_INVERSE, HF_INVERSE, NOGUESS+NOTRACE+INFCALC+NORESUME, 1980 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 1981 0, NOFRACTAL, MANDEL, INVERSEJULIA, NOSYM, 1982 Minverse_julia_orbit, NULL, orbit3dfloatsetup, inverse_julia_per_image, 1983 NOBAILOUT 1984 }, 1985 1986 #endif 1987 1988 { 1989 "mandelcloud", 1990 {"+# of intervals (<0 = connect)", ES, ES, ES}, 1991 {50, 0, 0, 0}, 1992 HT_MANDELCLOUD, HF_MANDELCLOUD, NOGUESS+NOTRACE+WINFRAC, 1993 (float)-2.5, (float)1.5, (float)-1.5, (float)1.5, 1994 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 1995 (VF)mandelcloudfloat, NULL, dynam2dfloatsetup, dynam2dfloat, 1996 NOBAILOUT 1997 }, 1998 1999 { 2000 t_phoenix+1, 2001 {p1real, p2real, degreeZ, ES}, 2002 {0.56667, -0.5, 0, 0}, 2003 HT_PHOENIX, HF_PHOENIX, WINFRAC+BAILTEST, 2004 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2005 1, NOFRACTAL, MANDPHOENIX, PHOENIXFP, XAXIS, 2006 LongPhoenixFractal, long_phoenix_per_pixel, PhoenixSetup, 2007 StandardFractal, 2008 STDBAILOUT 2009 }, 2010 2011 { 2012 t_phoenix, 2013 {p1real, p2real, degreeZ, ES}, 2014 {0.56667, -0.5, 0, 0}, 2015 HT_PHOENIX, HF_PHOENIX, WINFRAC+BAILTEST, 2016 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2017 0, NOFRACTAL, MANDPHOENIXFP, PHOENIX, XAXIS, 2018 PhoenixFractal, phoenix_per_pixel, PhoenixSetup, StandardFractal, 2019 STDBAILOUT 2020 }, 2021 2022 { 2023 t_mandphoenix+1, 2024 {realz0, imagz0, degreeZ, ES}, 2025 {0.0, 0.0, 0, 0}, 2026 HT_PHOENIX, HF_MANDPHOENIX, WINFRAC+BAILTEST, 2027 (float)-2.5, (float)1.5, (float)-1.5, (float)1.5, 2028 1, PHOENIX, NOFRACTAL, MANDPHOENIXFP, NOSYM, 2029 LongPhoenixFractal, long_mandphoenix_per_pixel, MandPhoenixSetup, 2030 StandardFractal, 2031 STDBAILOUT 2032 }, 2033 2034 { 2035 t_mandphoenix, 2036 {realz0, imagz0, degreeZ, ES}, 2037 {0.0, 0.0, 0, 0}, 2038 HT_PHOENIX, HF_MANDPHOENIX, WINFRAC+BAILTEST, 2039 (float)-2.5, (float)1.5, (float)-1.5, (float)1.5, 2040 0, PHOENIXFP, NOFRACTAL, MANDPHOENIX, NOSYM, 2041 PhoenixFractal, mandphoenix_per_pixel, MandPhoenixSetup, 2042 StandardFractal, 2043 STDBAILOUT 2044 }, 2045 2046 { 2047 "hypercomplex", 2048 {notused, notused, CJ, CK}, 2049 {0, 0, 0, 0}, 2050 HT_HYPERC, HF_HYPERC, WINFRAC+OKJB+TRIG1, 2051 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2052 0, HYPERCMPLXJFP, NOFRACTAL, NOFRACTAL, XAXIS, 2053 HyperComplexFPFractal, quaternionfp_per_pixel, MandelfpSetup, 2054 StandardFractal, 2055 LTRIGBAILOUT 2056 }, 2057 2058 { 2059 "hypercomplexj", 2060 {C1, CI, CJ, CK}, 2061 {-.745, 0, .113, .05}, 2062 HT_HYPERC, HF_HYPERCJ, WINFRAC+OKJB+TRIG1+MORE, 2063 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2064 0, NOFRACTAL, HYPERCMPLXFP, NOFRACTAL, ORIGIN, 2065 HyperComplexFPFractal, quaternionjulfp_per_pixel, JuliafpSetup, 2066 StandardFractal, 2067 LTRIGBAILOUT 2068 }, 2069 2070 { 2071 t_frothybasin+1, 2072 {frothmapping, frothshade, frothavalue, ES}, 2073 {1, 0, 1.028713768218725, 0}, 2074 HT_FROTH, HF_FROTH, NOTRACE+WINFRAC, 2075 (float)-2.8, (float)2.8, (float)-2.355, (float)1.845, 2076 28, NOFRACTAL, NOFRACTAL, FROTHFP, NOSYM, 2077 froth_per_orbit, froth_per_pixel, froth_setup, calcfroth, 2078 FROTHBAILOUT 2079 }, 2080 2081 { 2082 t_frothybasin, 2083 {frothmapping, frothshade, frothavalue, ES}, 2084 {1, 0, 1.028713768218725, 0}, 2085 HT_FROTH, HF_FROTH, NOTRACE+WINFRAC, 2086 (float)-2.8, (float)2.8, (float)-2.355, (float)1.845, 2087 0, NOFRACTAL, NOFRACTAL, FROTH, NOSYM, 2088 froth_per_orbit, froth_per_pixel, froth_setup, calcfroth, 2089 FROTHBAILOUT 2090 }, 2091 2092 { 2093 t_mandel4, 2094 {realz0, imagz0, ES, ES}, 2095 {0, 0, 0, 0}, 2096 HT_MANDJUL4, HF_MANDEL4, WINFRAC+BAILTEST, 2097 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2098 0, JULIA4FP, NOFRACTAL, MANDEL4, XAXIS_NOPARM, 2099 Mandel4fpFractal, mandelfp_per_pixel, MandelfpSetup, StandardFractal, 2100 STDBAILOUT 2101 }, 2102 2103 { 2104 t_julia4, 2105 {realparm, imagparm, ES, ES}, 2106 {0.6, 0.55, 0, 0}, 2107 HT_MANDJUL4, HF_JULIA4, WINFRAC+OKJB+BAILTEST, 2108 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2109 0, NOFRACTAL, MANDEL4FP, JULIA4, ORIGIN, 2110 Mandel4fpFractal, juliafp_per_pixel, JuliafpSetup,StandardFractal, 2111 STDBAILOUT 2112 }, 2113 2114 { 2115 t_marksmandel, 2116 {realz0, imagz0, exponent, ES}, 2117 {0, 0, 1, 0}, 2118 HT_MARKS, HF_MARKSMAND, WINFRAC+BAILTEST, 2119 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2120 0, MARKSJULIAFP, NOFRACTAL, MARKSMANDEL, NOSYM, 2121 MarksLambdafpFractal, marksmandelfp_per_pixel, MandelfpSetup, 2122 StandardFractal, 2123 STDBAILOUT 2124 }, 2125 2126 { 2127 t_marksjulia, 2128 {realparm, imagparm, exponent, ES}, 2129 {0.1, 0.9, 1, 0}, 2130 HT_MARKS, HF_MARKSJULIA, WINFRAC+BAILTEST, 2131 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2132 0, NOFRACTAL, MARKSMANDELFP, MARKSJULIA, ORIGIN, 2133 MarksLambdafpFractal, juliafp_per_pixel, MarksJuliafpSetup, 2134 StandardFractal, 2135 STDBAILOUT 2136 }, 2137 2138 /* dmf */ 2139 { 2140 "icons", 2141 {s_lambda, s_alpha, s_beta, s_gamma}, 2142 {-2.34, 2.0, 0.2, 0.1}, 2143 HT_ICON, HF_ICON, NOGUESS+NOTRACE+WINFRAC+INFCALC+MORE, 2144 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2145 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2146 (VF)iconfloatorbit, NULL, orbit3dfloatsetup, orbit2dfloat, 2147 NOBAILOUT 2148 }, 2149 2150 /* dmf */ 2151 { 2152 "icons3d", 2153 {s_lambda, s_alpha, s_beta, s_gamma}, 2154 {-2.34, 2.0, 0.2, 0.1}, 2155 HT_ICON, HF_ICON, NOGUESS+NOTRACE+WINFRAC+INFCALC+PARMS3D+MORE, 2156 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2157 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2158 (VF)iconfloatorbit, NULL, orbit3dfloatsetup, orbit3dfloat, 2159 NOBAILOUT 2160 }, 2161 2162 { 2163 t_phoenixcplx+1, 2164 {p1real, p1imag, p2real, p2imag}, 2165 {0.2, 0, 0.3, 0}, 2166 HT_PHOENIX, HF_PHOENIXCPLX, WINFRAC+MORE+BAILTEST, 2167 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2168 1, NOFRACTAL, MANDPHOENIXCPLX,PHOENIXFPCPLX, ORIGIN, 2169 LongPhoenixFractalcplx, long_phoenix_per_pixel, PhoenixCplxSetup, 2170 StandardFractal, 2171 STDBAILOUT 2172 }, 2173 2174 { 2175 t_phoenixcplx, 2176 {p1real, p1imag, p2real, p2imag}, 2177 {0.2, 0, 0.3, 0}, 2178 HT_PHOENIX, HF_PHOENIXCPLX, WINFRAC+MORE+BAILTEST, 2179 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2180 0, NOFRACTAL, MANDPHOENIXFPCPLX, PHOENIXCPLX, ORIGIN, 2181 PhoenixFractalcplx, phoenix_per_pixel, PhoenixCplxSetup, 2182 StandardFractal, 2183 STDBAILOUT 2184 }, 2185 2186 { 2187 t_mandphoenixcplx+1, 2188 {realz0, imagz0, p2real, p2imag}, 2189 {0, 0, 0.5, 0}, 2190 HT_PHOENIX, HF_MANDPHOENIXCPLX, WINFRAC+MORE+BAILTEST, 2191 (float)-2.5, (float)1.5, (float)-1.5, (float)1.5, 2192 1, PHOENIXCPLX, NOFRACTAL, MANDPHOENIXFPCPLX, XAXIS, 2193 LongPhoenixFractalcplx, long_mandphoenix_per_pixel, 2194 MandPhoenixCplxSetup, StandardFractal, 2195 STDBAILOUT 2196 }, 2197 2198 { 2199 t_mandphoenixcplx, 2200 {realz0, imagz0, p2real, p2imag}, 2201 {0, 0, 0.5, 0}, 2202 HT_PHOENIX, HF_MANDPHOENIXCPLX, WINFRAC+MORE+BAILTEST, 2203 (float)-2.5, (float)1.5, (float)-1.5, (float)1.5, 2204 0, PHOENIXFPCPLX, NOFRACTAL, MANDPHOENIXCPLX, XAXIS, 2205 PhoenixFractalcplx, mandphoenix_per_pixel, MandPhoenixCplxSetup, 2206 StandardFractal, 2207 STDBAILOUT 2208 }, 2209 2210 { 2211 "ant", 2212 {"#Rule String (1's and non-1's, 0 rand)", 2213 "#Maxpts", 2214 "+Numants (max 256)", 2215 "+Ant type (1 or 2)" 2216 }, 2217 {1100, 1.0E9, 1, 1}, 2218 HT_ANT, HF_ANT, WINFRAC+NOZOOM+NOGUESS+NOTRACE+NORESUME+MORE, 2219 (float)-1.0, (float)1.0, (float)-1.0, (float)1.0, 2220 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2221 NULL, NULL, StandaloneSetup, ant, 2222 NOBAILOUT 2223 }, 2224 2225 { 2226 "chip", 2227 {A, B, C, ES}, 2228 {-15,-19,1,0}, 2229 HT_MARTIN, HF_CHIP, NOGUESS+NOTRACE+INFCALC+WINFRAC, 2230 (float)-760.0, (float)760.0, (float)-570.0, (float)570.0, 2231 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2232 (VF)chip2dfloatorbit, NULL, orbit3dfloatsetup, orbit2dfloat, 2233 NOBAILOUT 2234 }, 2235 2236 { 2237 "quadruptwo", 2238 {A, B, C, ES}, 2239 {34, 1, 5, 0}, 2240 HT_MARTIN, HF_QUADRUPTWO, NOGUESS+NOTRACE+INFCALC+WINFRAC, 2241 (float)-82.93367, (float)112.2749, (float)-55.76383, (float)90.64257, 2242 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2243 (VF)quadruptwo2dfloatorbit, NULL, orbit3dfloatsetup, orbit2dfloat, 2244 NOBAILOUT 2245 }, 2246 2247 { 2248 "threeply", 2249 {A, B, C, ES}, 2250 {-55, -1, -42, 0}, 2251 HT_MARTIN, HF_THREEPLY, NOGUESS+NOTRACE+INFCALC+WINFRAC, 2252 (float)-8000.0, (float)8000.0, (float)-6000.0, (float)6000.0, 2253 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2254 (VF)threeply2dfloatorbit, NULL, orbit3dfloatsetup, orbit2dfloat, 2255 NOBAILOUT 2256 }, 2257 2258 { 2259 "volterra-lotka", 2260 {H, P, ES, ES}, 2261 {0.739, 0.739, 0, 0}, 2262 HT_VL, HF_VL, WINFRAC, 2263 (float)0.0, (float)6.0, (float)0.0, (float)4.5, 2264 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2265 VLfpFractal, otherjuliafp_per_pixel, VLSetup, StandardFractal, 2266 256 2267 }, 2268 2269 { 2270 "escher_julia", 2271 {realparm, imagparm, ES, ES}, 2272 {0.32, 0.043, 0, 0}, 2273 HT_ESCHER, HF_ESCHER, WINFRAC, 2274 (float)-1.6, (float)1.6, (float)-1.2, (float)1.2, 2275 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, ORIGIN, 2276 EscherfpFractal, juliafp_per_pixel, StandardSetup, 2277 StandardFractal, 2278 STDBAILOUT 2279 }, 2280 2281 /* From Pickovers' "Chaos in Wonderland" */ 2282 /* included by Humberto R. Baptista */ 2283 /* code adapted from king.cpp bt James Rankin */ 2284 2285 { 2286 "latoocarfian", 2287 {A, B, C, D}, 2288 {-0.966918, 2.879879, 0.765145, 0.744728}, 2289 HT_LATOO, HF_LATOO, NOGUESS+NOTRACE+WINFRAC+INFCALC+MORE+TRIG4, 2290 (float)-2.0, (float)2.0, (float)-1.5, (float)1.5, 2291 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2292 (VF)latoofloatorbit, NULL, orbit3dfloatsetup, orbit2dfloat, 2293 NOBAILOUT 2294 }, 2295 2296 { 2297 "mandelbrotmix4", 2298 {p1real, p1imag, p2real, p2imag}, 2299 {0.05, 3, -1.5, -2}, 2300 HT_MANDELBROTMIX4, HF_MANDELBROTMIX4, WINFRAC+BAILTEST+TRIG1+MORE, 2301 (float)-2.5, (float)1.5, (float)-1.5, (float)1.5, 2302 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2303 MandelbrotMix4fpFractal, MandelbrotMix4fp_per_pixel, MandelbrotMix4Setup, StandardFractal, 2304 STDBAILOUT 2305 }, 2306 2307 { 2308 NULL, /* marks the END of the list */ 2309 {NULL, NULL, NULL, NULL}, 2310 {0, 0, 0, 0}, 2311 -1, -1, 0, 2312 (float)0.0, (float)0.0, (float)0.0, (float)0.0, 2313 0, NOFRACTAL, NOFRACTAL, NOFRACTAL, NOSYM, 2314 NULL, NULL, NULL, NULL, 2315 0 2316 } 2317 }; 2318 2319 int num_fractal_types = (sizeof(fractalspecific)/ 2320 sizeof(struct fractalspecificstuff)) -1; 2321 2322 /* 2323 * Returns 1 if the formula parameter is not used in the current 2324 * formula. If the parameter is used, or not a formula fractal, 2325 * a 0 is returned. Note: this routine only works for formula types. 2326 */ 2327 int paramnotused(int parm) 2328 { 2329 int ret = 0; 2330 2331 /* sanity check */ 2332 if (fractype != FORMULA && fractype != FFORMULA) 2333 return (0); 2334 2335 switch (parm/2) { 2336 case 0: 2337 if (!uses_p1) 2338 ret = 1; 2339 break; 2340 case 1: 2341 if (!uses_p2) 2342 ret = 1; 2343 break; 2344 case 2: 2345 if (!uses_p3) 2346 ret = 1; 2347 break; 2348 case 3: 2349 if (!uses_p4) 2350 ret = 1; 2351 break; 2352 case 4: 2353 if (!uses_p5) 2354 ret = 1; 2355 break; 2356 default: 2357 ret = 0; 2358 break; 2359 } 2360 return (ret); 2361 } 2362 2363 /* 2364 * Returns 1 if parameter number parm exists for type. If the 2365 * parameter exists, the parameter prompt string is copied to buf. 2366 * Pass in NULL for buf if only the existence of the parameter is 2367 * needed, and not the prompt string. 2368 */ 2369 int typehasparm(int type,int parm,char *buf) 2370 { 2371 int extra; 2372 char far *ret = NULL; 2373 if(0 <= parm && parm < 4) 2374 ret=fractalspecific[type].param[parm]; 2375 else if(parm >= 4 && parm < MAXPARAMS) 2376 if((extra=find_extra_param(type)) > -1) 2377 ret=moreparams[extra].param[parm-4]; 2378 if(ret) 2379 if(*ret == 0) 2380 ret = NULL; 2381 2382 if(type == FORMULA || type == FFORMULA) 2383 if(paramnotused(parm)) 2384 ret = NULL; 2385 2386 if(ret && buf != NULL) 2387 far_strcpy(buf,ret); 2388 return(ret?1:0); 2389 } 2390

File: common\fractalp.c