|
 |
My Pov version doesn't know 'max_extent' . I have the official 3.1g. Is it
in a macro I don't have?
--
Regards,
Sander
David Fontaine <dav### [at] faricy net> schreef in berichtnieuws
386DA569.53BB0D24@faricy.net...
> Note you may want to check and make sure no names are covered up as this
> is not yet tested.
> Oh and I ran a debug run on the hf generator and painstakingly looked
> over all the data and THEY ARE ALL CORRECT.
>
> --
> Homepage: http://www.faricy.net/~davidf/
> ___ ______________________________
> | \ |_ <dav### [at] faricynet>
> |_/avid |ontaine <ICQ 55354965>
>
>
----------------------------------------------------------------------------
----
----------------------------------------------------------------------------
----
> // 03 February 1945 - Alex McMurray - Australia, Melbourne
03-Feb-45 Alex McMurray Australia, Melbourne
> // 14 March 1938 - Alf Peake - Wales, Swansea
14-Mar-38 Alf Peake Wales, Swansea
> // 26 January 1984 - Andrea Ryan (Brendan) - USA, New York, Kingsbury
26-Jan-84 Andrea Ryan (Brendan) USA, New York, Kingsbury
> // 16 December 1981 - Andrew Clinton - Canada, Ottawa
16-Dec-81 Andrew Clinton Canada, Ottawa
> // 11 October 1958 - Arthur Flint (Mr. Art) - USA, Anchorage, Alaska
11-Oct-58 Arthur Flint (Mr. Art) USA, Anchorage, Alaska
> // 16 November 1955 - Bill DeWitt - USA, Florida
16-Nov-55 Bill DeWitt USA, Florida
> // 31 October 1958 - Bob Hughes (omniVERSE) - USA, Decatur, Alabama
31-Oct-58 Bob Hughes (omniVERSE) USA, Decatur, Alabama
> // 30 May 1948 - Brendan Hurley - USA, California, Ukiah
30-May-48 Brendan Hurley USA, California, Ukiah
> // 11 January 1960 - Bruce (Lamming) - NA
11-Jan-60 Bruce (Lamming)
> // 02 April 1967 - Charles - USA, Eastern PA
02-Apr-67 Charles USA, Eastern PA
> // 25 July 1982 - Chris Huff - USA, Michigan, Union
25-Jul-82 Chris Huff USA, Michigan, Union
> // 02 September 1965 - Cliff Bowman - England, SE, Watford
02-Sep-65 Cliff Bowman England, SE, Watford
> // 03 February 1982 - Daniel Pirch - Germany, Berlin
03-Feb-82 Daniel Pirch Germany, Berlin
> // 17 December 1974 - Darcy Johnston - NA
17-Dec-74 Darcy Johnston
> // 10 August 1984 - David Fontaine - USA, Minneapolis, Minnesota
10-Aug-84 David Fontaine USA, Minneapolis, Minnesota
> // 23 April 1961 - David Heys - USA, Anchorage, Alaska
23-Apr-61 David Heys USA, Anchorage, Alaska
> // 07 April 1983 - David Parrott - England, Essex, Maldon
07-Apr-83 David Parrott England, Essex, Maldon
> // 05 January 1933 - David Wilkinson - Scotland, Hamilton
05-Jan-33 David Wilkinson Scotland, Hamilton
> // 16 September 1980 - Edward Coffey - Australia, Melbourne, Victoria
16-Sep-80 Edward Coffey Australia, Melbourne, Victoria
> // 09 January 1960 - Erick Vermeulen - Netherlands
09-Jan-60 Erick Vermeulen Netherlands
> // 24 September 1974 - Fabian Brau - Belgium, Mons
24-Sep-74 Fabian Brau Belgium, Mons
> // 12 March 1970 - Fabien Henon - France, L'aigle
> // 22 May 1975 - Fabien Mosen - NA
22-May-75 Fabien Mosen
> // 07 December 1976 - Gail Shaw - South Africa, Johannesburg
07-Dec-76 Gail Shaw South Africa, Johannesburg
> // 10 October 1964 - Greg M. Johnson - USA, Poughkeepsie NY
10-Oct-64 Greg M. Johnson USA, Poughkeepsie NY
> // 04 April 1982 - H.E. Day - Eugene, Oregon
04-Apr-82 H.E. Day Eugene, Oregon
> // 11 December 1952 - Harold Baize - NA
11-Dec-52 Harold Baize
> // 15 November 1984 - Ian Burgmyer - NA
15-Nov-84 Ian Burgmyer
> // 30 January 1963 - ingo - NA
30-Jan-63 ingo
> // 04 November 1966 - Jeff Lee - USA, Tampa, Florida
04-Nov-66 Jeff Lee USA, Tampa, Florida
> // 23 September 1975 - Jerome Berger - France, Courbevoie
23-Sep-75 Jerome Berger France, Courbevoie
> // 27 October 1966 - John M. Dlugosz - NA
27-Oct-66 John M. Dlugosz
> // 28 July 1965 - John VanSickle - NA
28-Jul-65 John VanSickle
> // 14 December 1966 - Jon A. Cruz - USA, Southern California
14-Dec-66 Jon A. Cruz USA, Southern California
> // 07 September 1971 - Josh English - USA, Oregon, Portland
07-Sep-71 Josh English USA, Oregon, Portland
> // 07 March 1986 - Julia Rumyantseva - Russia, Ulyanovsk
07-Mar-86 Julia Rumyantseva Russia, Ulyanovsk
> // 04 November 1970 - Karl Pelzer - Germany
04-Nov-70 Karl Pelzer Germany
> // 11 November 1946 - Ken Matassa - USA, California, Santa Ana Heights
11-Nov-46 Ken Matassa USA, California, Santa Ana Heights
> // 19 April 1958 - Ken Tyler - USA, Tustin, California
19-Apr-58 Ken Tyler USA, Tustin, California
> // 02 February 1978 - Kevin Ellis - England, Peterborough
02-Feb-78 Kevin Ellis England, Peterborough
> // 11 June 1981 - Kevin Wampler - USA, Arizona, Tucson
11-Jun-81 Kevin Wampler USA, Arizona, Tucson
> // 21 April 1977 - Krystian Bates - USA, MI, Alpena
21-Apr-77 Krystian Bates USA, MI, Alpena
> // 02 July 1949 - Kurt Bangert - Germany, Huttenburg
02-Jul-49 Kurt Bangert Germany, Huttenburg
> // 11 March 1983 - Lance Birch - Australia
11-Mar-83 Lance Birch Australia
> // 15 September 1964 - Lutz Kretzschmar - Germany, Munich
15-Sep-64 Lutz Kretzschmar Germany, Munich
> // 21 March 1971 - Marc Schimmler - Germany, Stuttgart
21-Mar-71 Marc Schimmler Germany, Stuttgart
> // 29 October 1978 - Margus Ramst - Estonia
29-Oct-78 Margus Ramst Estonia
> // 10 October 1957 - Marjorie Diez de Graterol - USA, Houston, Texas
10-Oct-57 Marjorie Diez de Graterol USA, Houston, Texas
> // 30 March 1970 - Mark Gordon - USA, Wisconsin, Madison
30-Mar-70 Mark Gordon USA, Wisconsin, Madison
> // 11 March 1980 - Mark Wagner - USA, Michigan, Novi
11-Mar-80 Mark Wagner USA, Michigan, Novi
> // 28 October 1967 - Markus Becker - Siegen, GErmany
28-Oct-67 Markus Becker Siegen, GErmany
> // 20 September 1955 - Martial Rameaux - France, Dijon
20-Sep-55 Martial Rameaux France, Dijon
> // 12 November 1945 - Mick Hazelgrove - UK, Stoke on Trent
12-Nov-45 Mick Hazelgrove UK, Stoke on Trent
> // 05 July 1977 - Nick Portelli - USA, Michigan, Brighton
05-Jul-77 Nick Portelli USA, Michigan, Brighton
> // 30 January 1974 - Nieminen Juha (Warp) - NA
30-Jan-74 Nieminen Juha (Warp)
> // 27 September 1959 - Pavel Rumyantsev - Russia, Ulyanovsk
27-Sep-59 Pavel Rumyantsev Russia, Ulyanovsk
> // 05 March 1980 - Peter Popov - Bulgaria
05-Mar-80 Peter Popov Bulgaria
> // 10 August 1955 - Peter Warren - USA, Washington, Seattle
10-Aug-55 Peter Warren USA, Washington, Seattle
> // 11 November 1969 - Phil Clute - USA, Hampton, New Hampshire
11-Nov-69 Phil Clute USA, Hampton, New Hampshire
> // 31 December 1972 - Philippe Debar - Belgium, Namur
31-Dec-72 Philippe Debar Belgium, Namur
> // 16 July 1963 - Phil Carrig (PoD) - South Australia, Adelaide
16-Jul-63 Phil Carrig (PoD) South Australia, Adelaide
> // 28 October 1967 - Ricardo M. Pereyra - NA
28-Oct-67 Ricardo M. Pereyra
> // 14 July 1960 - Robert Chaffe - NA
14-Jul-60 Robert Chaffe
> // 21 June 1966 - Rodolphe Gelaude - France , Compiegne
21-Jun-66 Rodolphe Gelaude France , Compiegne
> // 16 September 1971 - Ron Parker - USA, Indiana, Fort Wayne
16-Sep-71 Ron Parker USA, Indiana, Fort Wayne
> // 10 May 1983 - Rune S. Johansen - Denmark, Aarhus
10-May-83 Rune S. Johansen Denmark, Aarhus
> // 19 May 1977 - Ryan Mooney - NA
19-May-77 Ryan Mooney
> // 22 September 1974 - Saadat Saeed - NA
22-Sep-74 Saadat Saeed
> // 11 August 1977 - SamuelT (Samuel T Benge) - USA, Placentia, California
11-Aug-77 SamuelT (Samuel T Benge) USA, Placentia, California
> // 28 July 1931 - Sander (Alexander Stols) - Netherlands, Molenhoek
28-Jul-31 Sander (Alexander Stols) Netherlands, Molenhoek
> // 01 July 1973 - Scott Hill - England, Cambridge
01-Jul-73 Scott Hill England, Cambridge
> // 21 February 1977 - Sigmund Kyrre Aas - Norway
21-Feb-77 Sigmund Kyrre Aas Norway
> // 01 December 1967 - Steve Lenehan - England, Wigan
01-Dec-67 Steve Lenehan England, Wigan
> // 27 June 1968 - Sven-Erik Andersen - Norway, Mo I Rana
27-Jun-68 Sven-Erik Andersen Norway, Mo I Rana
> // 15 October 1977 - Thorsten Froelich - Germany, Duisburg
15-Oct-77 Thorsten Froelich Germany, Duisburg
> // 05 February 1982 - TonyB(Anthony L. Bennett) - Rep. of Panama, Panama
05-Feb-82 TonyB(Anthony L. Bennett) Rep. of Panama, Panama
> // 31 March 1970 - Uwe Zimmermann - Germany, Bremerhaven
31-Mar-70 Uwe Zimmermann Germany, Bremerhaven
> // 09 October 1968 - Vahur Krouverk - Estonia, Tallinn
09-Oct-68 Vahur Krouverk Estonia, Tallinn
> // 26 March 1983 - Wojtek Bauman - NA
26-Mar-83 Wojtek Bauman
> // 19 December 1981 - Zeger Knaepen - Belgium, Flanders
19-Dec-81 Zeger Knaepen Belgium, Flanders
>
>
> #declare days=array[80]{03,14,26,16,11,16,31,30,11,02,25,02,03,
> 17,10,23,07,05,16,09,24,12,22,07,10,04,11,15,30,04,23,27,28,14,
> 07,07,04,11,19,02,11,21,02,11,15,21,29,10,30,11,28,20,12,05,30,
> 27,05,10,11,31,16,28,14,21,16,10,19,22,11,28,01,21,01,27,15,05,
> 31,09,26,19}
>
> #declare Jan = 1; #declare Feb = 2; #declare Mar = 3; #declare Apr = 4;
> #declare May = 5; #declare Jun = 6; #declare Jul = 7; #declare Aug = 8;
> #declare Sep = 9; #declare Oct =10; #declare Nov =11; #declare Dec =12;
>
> #declare months=array[80]{Feb,Mar,Jan,Dec,Oct,Nov,Oct,May,Jan,Apr,
> Jul,Sep,Feb,Dec,Aug,Apr,Apr,Jan,Sep,Jan,Sep,Mar,May,Dec,Oct,Apr,
> Dec,Nov,Jan,Nov,Sep,Oct,Jul,Dec,Sep,Mar,Nov,Nov,Apr,Feb,Jun,Apr,
> Jul,Mar,Sep,Mar,Oct,Oct,Mar,Mar,Oct,Sep,Nov,Jul,Jan,Sep,Mar,Aug,
> Nov,Dec,Jul,Oct,Jul,Jun,Sep,May,May,Sep,Aug,Jul,Jul,Feb,Dec,Jun,
> Oct,Feb,Mar,Oct,Mar,Dec}
>
> #declare
smonths=array[80]{"Feb","Mar","Jan","Dec","Oct","Nov","Oct","May","Jan","Apr
",
>
"Jul","Sep","Feb","Dec","Aug","Apr","Apr","Jan","Sep","Jan","Sep","Mar","May
","Dec","Oct","Apr",
>
"Dec","Nov","Jan","Nov","Sep","Oct","Jul","Dec","Sep","Mar","Nov","Nov","Apr
","Feb","Jun","Apr",
>
"Jul","Mar","Sep","Mar","Oct","Oct","Mar","Mar","Oct","Sep","Nov","Jul","Jan
","Sep","Mar","Aug",
>
"Nov","Dec","Jul","Oct","Jul","Jun","Sep","May","May","Sep","Aug","Jul","Jul
","Feb","Dec","Jun",
> "Oct","Feb","Mar","Oct","Mar","Dec"}
>
> #declare
smonths2=array[80]{"February*","March*","January*","December*","October*","N
ovember*","October*","May*","January*","April*",
>
"July*","September*","February*","December*","August*","April*","April*","Ja
nuary*","September*","January*","September*","March*","May*","December*","Oc
tober*","April*",
>
"December*","November*","January*","November*","September*","October*","July
*","December*","September*","March*","November*","November*","April*","Febru
ary*","June*","April*",
>
"July*","March*","September*","March*","October*","October*","March*","March
*","October*","September*","November*","July*","January*","September*","Marc
h*","August*",
>
"November*","December*","July*","October*","July*","June*","September*","May
*","May*","September*","August*","July*","July*","February*","December*","Ju
ne*",
> "October*","February*","March*","October*","March*","December*"}
>
> #declare years=array[80]{45,38,84,81,58,55,58,48,60,67,82,65,82,
> 74,84,61,83,33,80,60,74,70,75,76,64,82,52,84,63,66,75,66,65,66,
> 71,86,70,46,58,78,81,77,49,83,64,71,78,57,70,80,67,55,45,77,74,
> 59,80,55,69,72,63,67,60,66,71,83,77,74,77,31,73,77,67,68,77,82,
> 70,68,83,81}
>
> #declare names=array[80]
> {"Alex McMurray*"
> ,"Alf Peake*"
> ,"Andrea Ryan (Brendan)*"
> ,"Andrew Clinton*"
> ,"Arthur Flint (Mr. Art)*"
> ,"Bill DeWitt*"
> ,"Bob Hughes (omniVERSE)*"
> ,"Brendan Hurley*"
> ,"Bruce (Lamming)*"
> ,"Charles*"
> ,"Chris Huff*"
> ,"Cliff Bowman*"
> ,"Daniel Pirch*"
> ,"Darcy Johnston*"
> ,"David Fontaine*"
> ,"David Heys*"
> ,"David Parrott*"
> ,"David Wilkinson*"
> ,"Edward Coffey*"
> ,"Erick Vermeulen*"
> ,"Fabian Brau*"
> ,"Fabien Mosen*"
> ,"Gail Shaw*"
> ,"Greg M. Johnson*"
> ,"H.E. Day*"
> ,"Harold Baize*"
> ,"Ian Burgmyer*"
> ,"ingo*"
> ,"Jeff Lee*"
> ,"Jerome Berger*"
> ,"John M. Dlugosz*"
> ,"John VanSickle*"
> ,"Jon A. Cruz*"
> ,"Josh English*"
> ,"Julia Rumyantseva*"
> ,"Karl Pelzer*"
> ,"Ken Matassa*"
> ,"Ken Tyler*"
> ,"Kevin Ellis*"
> ,"Kevin Wampler*"
> ,"Krystian Bates*"
> ,"Kurt Bangert*"
> ,"Lance Birch*"
> ,"Lutz Kretzschmar*"
> ,"Marc Schimmler*"
> ,"Margus Ramst*"
> ,"Marjorie Diez de Graterol*"
> ,"Mark Gordon*"
> ,"Mark Wagner*"
> ,"Markus Becker*"
> ,"Martial Rameaux*"
> ,"Mick Hazelgrove*"
> ,"Nick Portelli*"
> ,"Nieminen Juha (Warp)*"
> ,"Pavel Rumyantsev*"
> ,"Peter Popov*"
> ,"Peter Warren*"
> ,"Phil Clute*"
> ,"Philippe Debar*"
> ,"Phil Carrig (PoD)*"
> ,"Ricardo M. Pereyra*"
> ,"Robert Chaffe*"
> ,"Rodolphe Gelaude*"
> ,"Ron Parker*"
> ,"Rune S. Johansen*"
> ,"Ryan Mooney*"
> ,"Saadat Saeed*"
> ,"SamuelT (Samuel T Benge)*"
> ,"Sander (Alexander Stols)*"
> ,"Scott Hill*"
> ,"Sigmund Kyrre Aas*"
> ,"Steve Lenehan*"
> ,"Sven-Erik Andersen*"
> ,"Thorsten Froelich*"
> ,"TonyB(Anthony L. Bennett)*"
> ,"Uwe Zimmermann*"
> ,"Vahur Krouverk*"
> ,"Wojtek Bauman*"
> ,"Zeger Knaepen*"}
>
> #declare locations=array[80]
> {"Australia, Melbourne*"
> ,"Wales, Swansea*"
> ,"USA, New York, Kingsbury*"
> ,"Canada, Ottawa*"
> ,"USA, Anchorage, Alaska*"
> ,"USA, Florida*"
> ,"USA, Decatur, Alabama*"
> ,"USA, California, Ukiah*"
> ,"NA*"
> ,"USA, Eastern PA*"
> ,"USA, Michigan, Union*"
> ,"England, SE, Watford*"
> ,"Germany, Berlin*"
> ,"NA*"
> ,"USA, Minneapolis, Minnesota*"
> ,"USA, Anchorage, Alaska*"
> ,"England, Essex, Maldon*"
> ,"Scotland, Hamilton*"
> ,"Australia, Melbourne, Victoria*"
> ,"Netherlands*"
> ,"Belgium, Mons*"
> ,"France, L'aigle*"
> ,"NA*"
> ,"South Africa, Johannesburg*"
> ,"USA, Poughkeepsie NY*"
> ,"Eugene, Oregon*"
> ,"NA*"
> ,"NA*"
> ,"NA*"
> ,"USA, Tampa, Florida*"
> ,"France, Courbevoie*"
> ,"NA*"
> ,"NA*"
> ,"USA, Southern California*"
> ,"USA, Oregon, Portland*"
> ,"Russia, Ulyanovsk*"
> ,"Germany*"
> ,"USA, California, Santa Ana Heights*"
> ,"USA, Tustin, California*"
> ,"England, Peterborough*"
> ,"USA, Arizona, Tucson*"
> ,"USA, MI, Alpena*"
> ,"Germany, Huttenburg*"
> ,"Australia*"
> ,"Germany, Munich*"
> ,"Germany, Stuttgart*"
> ,"Estonia*"
> ,"USA, Houston, Texas*"
> ,"USA, Wisconsin, Madison*"
> ,"USA, Michigan, Novi*"
> ,"Siegen, GErmany*"
> ,"France, Dijon*"
> ,"UK, Stoke on Trent*"
> ,"USA, Michigan, Brighton*"
> ,"NA*"
> ,"Russia, Ulyanovsk*"
> ,"Bulgaria*"
> ,"USA, Washington, Seattle*"
> ,"USA, Hampton, New Hampshire*"
> ,"Belgium, Namur*"
> ,"South Australia, Adelaide*"
> ,"NA*"
> ,"NA*"
> ,"France , Compiegne*"
> ,"USA, Indiana, Fort Wayne*"
> ,"Denmark, Aarhus*"
> ,"NA*"
> ,"NA*"
> ,"USA, Placentia, California*"
> ,"Netherlands, Molenhoek*"
> ,"England, Cambridge*"
> ,"Norway*"
> ,"England, Wigan*"
> ,"Norway, Mo I Rana*"
> ,"Germany, Duisburg*"
> ,"Rep. of Panama, Panama*"
> ,"Germany, Bremerhaven*"
> ,"Estonia, Tallinn*"
> ,"NA*"
> ,"Belgium, Flanders*"}
----------------------------------------------------------------------------
----
> // Macros include file
>
> // SuperCone (Xr1,Yr1,Xr2,Yr2)
> // Elliptical cone from z=0 to z=1
> // supercone (R1,R2,X1,Y1,Z1,R3,R4,X2,Y2,Z2)
> // Elliptical cone anywhere you want it
> // PointTo (p)
> // reorients object so that former +Z axis now points along vector p
> // does not scale objects
> // ellipsetorus (Xr,Zr,R,Sa,Ea,N)
> // Elliptical torus (o so slow)
> // Xr=major radius along x
> // Zr=Major radius along z
> // R=minor radius
> // Sa=starting angle (clockwise from +z)
> // Ea=ending angle
> // N=blob resolution
> // roundbox (X1,Y1,Z1,X2,Y2,Z2,R)
> // creates box from <X1,Y1,Z1> to <X2,Y2,Z2> and rounds edges by R
> // roundcylinder (H,R1,R2)
> // Rounded Cylinder from Y=0 to Y=H with radius R1 and rounded by R2
> // roundcylinder2 (p1,p2,r1,r2)
> // cylinder { p1,p2,r1 } rounded by r2
> // roundcone (p1,r1,p2,r2,r3)
> // rounded Cone equivalent to cone { p1,r1 p2,r2 } but rounded by r3
> // roundprism (h1,h2,array[points],r)
> // rounded prism
> // equivalent to prism { h1,h2,dimension_size[points]
points[0]...points[n] }
> // but rounded by r
> // *do not copy first point over to last
> // *"holes" are not allowed
> // arotate (vec,ang)
> // rotate an object by ang degrees about arbitrary axis along vector
vec
> // rotation direction follows left-handed coordinate system
> // ascale (vec,scl)
> // scales an object along arbitrary axis vec by ammount scl
> // reposition(vec1,vec2)
> // reorients an object so it points along vec2 instead of vec1
> // scales object according to vector length ratio
>
>
>
> /* found this on pov-ray advanced users newsgroup :)
> Larry Fontaine <lfo### [at] isdnet> wrote:
> : I'm
> : thinking a quadric will do the trick, but I need help making one.
>
> You need a quartic for that. Here you are:*/
>
>
file://---------------------------------------------------------------------
---
> #macro SuperCone(a,b,c,d)
> intersection
> { quartic
> { <0, 0, 0, 0, 0, 0, 0, b*b-2*b*d+d*d, 2*(b*d-b*b), b*b,
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
> 0, 0, 0, a*a-2*a*c+c*c, 2*(a*c-a*a), a*a, 0, 0, 0, 0,
> -(a*a-2*a*c+c*c)*(b*b-2*b*d+d*d),
> -(2*((b*d-b*b)*(a*a-2*a*c+c*c)+(a*c-a*a)*(b*b-2*b*d+d*d))),
> -(b*b*(a*a-2*a*c+c*c)+4*(a*c-a*a)*(b*d-b*b)+a*a*(b*b-2*b*d+d*d)),
> -(2*(b*b*(a*c-a*a)+a*a*(b*d-b*b))), -a*a*b*b>
> sturm
> }
> cylinder { 0, z, max(max(a,b),max(c,d)) }
> bounded_by { cone { 0, max(a,b), z, max(c,d) } }
> }
> #end
>
file://---------------------------------------------------------------------
---
>
>
> /* It creates a cone from <0,0,0> to <0,0,1> with the ends being
ellipses,
> one with radiuses 'a' and 'b' and the other with radiuses 'c' and 'd'.
> Example:
>
> camera { location -z*10 look_at 0 angle 35 }
> light_source { -z*1000,1 }
> light_source { y*1000,1 }
>
> object
> { SuperCone(2, .5, .5, 2)
> pigment { rgb x } finish { specular .5 }
> translate -z*.5 scale <1,1,2>
> rotate z*90 rotate -x*45
> }
>
> If someone is interested in the mathematics behind those quartic
parameters,
> I can explain (although I think nobody will ask... :) ). */
>
> #macro supercone (a,b,x1,y1,z1,c,d,x2,y2,z2)
> #local s=min(a,b);
> #local s=min(s,c);
> #local s=min(s,d);
> #local s=s/10;
> object {
> SuperCone (a/s,b/s,c/s,d/s)
> rotate -90*x
> scale <s,1,s>
> matrix <1,0,0,x2-x1,1,z2-z1,0,0,1,0,0,0>
> scale <1,y2-y1,1>
> translate <x1,y1,z1>
> }
> #end
>
> #macro PointTo(p)
> #if (0+p.x=0 & 0+p.y=0 & 0+p.z=0)
> #local RotX=0;
> #else
> #local RotX=-atan2(p.y,sqrt(pow(p.x,2)+pow(p.z,2)))*180/pi;
> #end
> #if (0+p.x=0 & 0+p.z=0)
> #local RotY=0;
> #else
> #local RotY=atan2(p.x,p.z)*180/pi;
> #end
> rotate <RotX,RotY,0>
> #end
>
> #macro ellipsetorus (Xr,Zr,R,N)
> #local C = 0;
> blob {
> #while (C < N)
> sphere { <Xr*sin((C/N)*2*pi),0,Zr*cos((C/N)*2*pi)>,R,1 }
> #declare C=C+1;
> #end
> threshold 0.01
> }
> #end
>
> #macro roundbox (X1,Y1,Z1,X2,Y2,Z2,R)
> #local T=0;
> #if (X1>X2) #declare T=X2; #declare X2=X1; #declare X1=T; #end
> #if (Y1>Y2) #declare T=Y2; #declare Y2=Y1; #declare Y1=T; #end
> #if (Z1>Z2) #declare T=Z2; #declare Z2=Z1; #declare Z1=T; #end
> merge {
> cylinder { <X1+R,Y1+R,Z1+R>,<X1+R,Y1+R,Z2-R>,R }
> cylinder { <X1+R,Y1+R,Z1+R>,<X1+R,Y2-R,Z1+R>,R }
> cylinder { <X1+R,Y1+R,Z1+R>,<X2-R,Y1+R,Z1+R>,R }
> cylinder { <X2-R,Y1+R,Z1+R>,<X2-R,Y1+R,Z2-R>,R }
> cylinder { <X1+R,Y1+R,Z2-R>,<X2-R,Y1+R,Z2-R>,R }
> cylinder { <X2-R,Y1+R,Z1+R>,<X2-R,Y2-R,Z1+R>,R }
> cylinder { <X1+R,Y1+R,Z2-R>,<X1+R,Y2-R,Z2-R>,R }
> cylinder { <X2-R,Y1+R,Z2-R>,<X2-R,Y2-R,Z2-R>,R }
> cylinder { <X1+R,Y2-R,Z1+R>,<X1+R,Y2-R,Z2-R>,R }
> cylinder { <X1+R,Y2-R,Z1+R>,<X2-R,Y2-R,Z1+R>,R }
> cylinder { <X2-R,Y2-R,Z1+R>,<X2-R,Y2-R,Z2-R>,R }
> cylinder { <X1+R,Y2-R,Z2-R>,<X2-R,Y2-R,Z2-R>,R }
> sphere { <X1+R,Y1+R,Z1+R>,R }
> sphere { <X1+R,Y1+R,Z2-R>,R }
> sphere { <X1+R,Y2-R,Z1+R>,R }
> sphere { <X1+R,Y2-R,Z2-R>,R }
> sphere { <X2-R,Y1+R,Z1+R>,R }
> sphere { <X2-R,Y1+R,Z2-R>,R }
> sphere { <X2-R,Y2-R,Z1+R>,R }
> sphere { <X2-R,Y2-R,Z2-R>,R }
> box { <X1,Y1+R,Z1+R>,<X2,Y2-R,Z2-R> }
> box { <X1+R,Y1,Z1+R>,<X2-R,Y2,Z2-R> }
> box { <X1+R,Y1+R,Z1>,<X2-R,Y2-R,Z2> }
> bounded_by { box { <X1,Y1,Z1>,<X2,Y2,Z2> } }
> }
> #end
>
> #macro roundcylinder (H,R1,R2)
> merge {
> cylinder { <0,0,0>,<0,H,0>,R1-R2 }
> cylinder { <0,R2,0>,<0,H-R2,0>,R1 }
> torus { R1-R2,R2 translate <0,R2,0> }
> torus { R1-R2,R2 translate <0,H-R2,0> }
> bounded_by { cylinder { 0,H*y,R1 } }
> }
> #end
>
> #macro roundcylinder2 (p1,p2,R1,R2)
> #local H=sqrt(pow(p1.x-p2.x,2)+pow(p1.y-p2.y,2)+pow(p1.z-p2.z,2));
> merge {
> cylinder { <0,0,0>,<0,0,H>,R1-R2 }
> cylinder { <0,0,R2>,<0,0,H-R2>,R1 }
> torus { R1-R2,R2 rotate 90*x translate <0,0,R2> }
> torus { R1-R2,R2 rotate 90*x translate <0,0,H-R2> }
> PointTo(p2-p1)
> translate p1
> bounded_by { cylinder { p1,p2,R1 } }
> }
> #end
>
> #macro roundcone(p1,r1,p2,r2,r3)
> #local H=sqrt(pow(p1.x-p2.x,2)+pow(p1.y-p2.y,2)+pow(p1.z-p2.z,2));
> #local a=atan2(H,r1-r2);
> merge {
> torus { r1-tan(.5*pi-.5*a)*r3,r3 translate r3*y }
> torus { r2-tan(.5*a)*r3,r3 translate (H-r3)*y }
> cone { <0,0,0>,r1-tan(.5*pi-.5*a)*r3 <0,H,0>,r2-tan(.5*a)*r3 }
> cone
<0,r3+sin(.5*pi-a)*r3,0>,r1-tan(.5*pi-.5*a)*r3+cos(.5*pi-a)*r3
> <0,H-r3+sin(.5*pi-a)*r3,0>,r2-tan(.5*a)*r3+cos(.5*pi-a)*r3 }
> rotate 90*x
> PointTo(p2-p1)
> translate p1
> }
> #end
>
> #macro roundprism(h1,h2,p,R)
> #local ctr=0;
> #local n=dimension_size(p,1);
> #local ap=array[n]
> #local ams=array[n]
> #local ang=array[n]
> #while (ctr<n)
> #local ps=p[mod(ctr-1+n,n)];
> #local pm=p[ctr];
> #local pe=p[mod(ctr+1,n)];
> #local a1=mod(atan2(pm.x-ps.x,pm.y-ps.y)*180/pi+360,360);
> #local a2=mod(atan2(pe.x-pm.x,pe.y-pm.y)*180/pi+360,360);
> #local am=mod(a2-a1+360,360);
> #if (am<180) #local am=180-am; #end
> #local ab=(mod(a1+180,360)+a2)/2;
> #if (floor((max(mod(a1+180,360),a2)-min(mod(a1+180,360),a2))/180) !=
floor(am/180))
> #local ab=mod(ab+180,360); #end
> #local bv=<sin(ab*pi/180),cos(ab*pi/180)>;
> #local sam=am; #if (sam>180) #local sam=sam-180; #end
> #local l=1/sin((sam/2)*pi/180)*R;
> #local ap[ctr]=pm+bv*l;
> #local ams[ctr]=am;
> #local ang[ctr]=a1;
> #local ctr=ctr+1;
> #end
> #local ctr=0;
> prism { h1,h2,n+1
> #while (ctr<n)
> ap[ctr]
> #local ctr=ctr+1;
> #end
> ap[0] }
> #local ctr=0;
> #while (ctr<n)
> sphere { <ap[ctr].x,h1+R,ap[ctr].y>,R }
> sphere { <ap[ctr].x,h2-R,ap[ctr].y>,R }
> cylinder { <ap[ctr].x,h1+R,ap[ctr].y>,<ap[ctr].x,h2-R,ap[ctr].y>,R }
> cylinder
<ap[ctr].x,h1+R,ap[ctr].y>,<ap[mod(ctr+1,n)].x,h1+R,ap[mod(ctr+1,n)].y>,R }
> cylinder
<ap[ctr].x,h2-R,ap[ctr].y>,<ap[mod(ctr+1,n)].x,h2-R,ap[mod(ctr+1,n)].y>,R }
> box { <-R,h1+R,0>,<0,h2-R,sqrt(pow(ap[mod(ctr+1,n)].x-ap[ctr].x,2)
> +pow(ap[mod(ctr+1,n)].y-ap[ctr].y,2))>
> rotate
atan2(ap[mod(ctr+1,n)].x-ap[ctr].x,ap[mod(ctr+1,n)].y-ap[ctr].y)*180/pi*y
> translate <ap[ctr].x,0,ap[ctr].y> }
> #if (ams[ctr]>180)
> difference {
> intersection {
> cylinder
<p[ctr].x,h1-R,p[ctr].y>*2-<ap[ctr].x,h1-R,ap[ctr].y>,
>
<p[ctr].x,h2+R,p[ctr].y>*2-<ap[ctr].x,h2+R,ap[ctr].y>,R inverse }
> prism { h1,h2,4
ap[ctr],ap[mod(ctr-1+n,n)],ap[mod(ctr+1,n)],ap[ctr] }
> plane { -z,0 rotate ang[ctr]*y translate
<p[ctr].x,0,p[ctr].y>*2-<ap[ctr].x,0,ap[ctr].y> }
> plane { -z,0 rotate (180+ang[mod(ctr+1,n)])*y translate
<p[ctr].x,0,p[ctr].y>*2-<ap[ctr].x,0,ap[ctr].y> }
> }
> intersection {
> torus { R*2,R translate
<p[ctr].x,h1+R,p[ctr].y>*2-<ap[ctr].x,h1+R,ap[ctr].y> inverse }
> cylinder
<p[ctr].x,h1+R,p[ctr].y>*2-<ap[ctr].x,h1+R,ap[ctr].y>,
>
<p[ctr].x,h1-R*2,p[ctr].y>*2-<ap[ctr].x,h1-R*2,ap[ctr].y>,R*2 }
> }
> intersection {
> torus { R*2,R translate
<p[ctr].x,h2-R,p[ctr].y>*2-<ap[ctr].x,h2-R,ap[ctr].y> inverse }
> cylinder
<p[ctr].x,h2-R,p[ctr].y>*2-<ap[ctr].x,h2-R,ap[ctr].y>,
>
<p[ctr].x,h2+R*2,p[ctr].y>*2-<ap[ctr].x,h2+R*2,ap[ctr].y>,R*2 }
> }
> }
> #end
> #local ctr=ctr+1;
> #end
> #end
>
> #macro arotate(vec,ang)
> #if (sqrt(pow(vec.x,2)+pow(vec.y,2)+pow(vec.z,2))=0)
> #render "Warning: arotate vector length is zero.\n"
> #end
> #if (vec.x=0 & vec.z=0)
> #local RotY=0;
> #else
> #local RotY=atan2(vec.x,vec.z)*180/pi;
> #end
> #local
RotX=asin((vec.y)/sqrt(pow(vec.x,2)+pow(vec.y,2)+pow(vec.z,2)))*180/pi;
> rotate -RotY*y
> rotate RotX*x
> rotate ang*z
> rotate <-RotX,RotY,0>
> #end
>
> #macro ascale(vec,scl)
> #if (sqrt(pow(vec.x,2)+pow(vec.y,2)+pow(vec.z,2))=0)
> #render "Warning: ascale vector length is zero.\n"
> #end
> #if (vec.x=0 & vec.z=0)
> #local RotY=0;
> #else
> #local RotY=atan2(vec.x,vec.z)*180/pi;
> #end
> #local
RotX=asin((vec.y)/sqrt(pow(vec.x,2)+pow(vec.y,2)+pow(vec.z,2)))*180/pi;
> rotate -RotY*y
> rotate RotX*x
> scale <1,1,scl>
> rotate <-RotX,RotY,0>
> #end
>
> #macro reposition(vec1,vec2)
> #if (sqrt(pow(vec1.x,2)+pow(vec1.y,2)+pow(vec1.z,2))=0)
> #render "Warning: reposition initial vector length is zero.\n"
> #end
> #if (vec1.x=0 & vec1.z=0)
> #local RotY=0;
> #else
> #local RotY=atan2(vec1.x,vec1.z)*180/pi;
> #end
> #local
RotX=asin((vec1.y)/sqrt(pow(vec1.x,2)+pow(vec1.y,2)+pow(vec1.z,2)))*180/pi;
> rotate -RotY*y
> rotate RotX*x
> scale
sqrt(pow(vec2.x,2)+pow(vec2.y,2)+pow(vec2.z,2))/sqrt(pow(vec1.x,2)+pow(vec1.
y,2)+pow(vec1.z,2))
> #if (sqrt(pow(vec2.x,2)+pow(vec2.y,2)+pow(vec2.z,2))=0)
> #render "Warning: reposition final vector length is zero.\n"
> #end
> #if (vec2.x=0 & vec2.z=0)
> #local RotY=0;
> #else
> #local RotY=atan2(vec2.x,vec2.z)*180/pi;
> #end
> #local
RotX=asin((vec2.y)/sqrt(pow(vec2.x,2)+pow(vec2.y,2)+pow(vec2.z,2)))*180/pi;
> rotate <-RotX,RotY,0>
> #end
----------------------------------------------------------------------------
----
> // -=< MALACHITE.INC >=-
>
> // Created by Sonya Roberts using Texture Magic v0.95 in February, 1997
>
> // son### [at] geocitiescom
>
> //
>
> // Includes the following textures:
>
> // - Malachite
>
> // - MalachitePolished
>
> //
>
>
>
>
>
> // Bands of Dark Green
>
>
>
> #declare MalachitePolished =
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 0.46 octaves 7 omega 0.42 lambda 2.6
>
> color_map
>
> {
>
> [0.00 color rgb<0.157, 0.490, 0.404>]
>
> [0.12 color rgb<0.149, 0.490, 0.404>]
>
> [0.16 color rgb<0.267, 0.576, 0.506>]
>
> [0.21 color rgb<0.137, 0.490, 0.404>]
>
> [0.27 color rgb<0.071, 0.302, 0.243>]
>
> [0.39 color rgb<0.129, 0.490, 0.404>]
>
> [0.44 color rgb<0.063, 0.451, 0.357>]
>
> [0.50 color rgb<0.118, 0.490, 0.404>]
>
> [0.58 color rgb<0.063, 0.306, 0.263>]
>
> [0.66 color rgb<0.110, 0.490, 0.404>]
>
> [0.73 color rgb<0.278, 0.573, 0.482>]
>
> [0.79 color rgb<0.102, 0.294, 0.235>]
>
> [0.85 color rgb<0.098, 0.490, 0.404>]
>
> [0.92 color rgb<0.200, 0.537, 0.463>]
>
> [1.00 color rgb<0.106, 0.302, 0.263>]
>
> }
>
> frequency 2
>
> translate <-10.0, 5.0, 1.0>
>
> }
>
> finish {
>
> ambient 0.0
>
> diffuse 0.5
>
> brilliance 1.5
>
> }
>
> }
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 0.41 octaves 8 omega 0.28 lambda 1.2
>
> color_map
>
> {
>
> [0.00 color rgbf<0.996, 0.996, 0.996, 0.996>]
>
> [0.15 color rgbf<0.957, 0.957, 0.957, 0.957>]
>
> [0.16 color rgb<0.063, 0.286, 0.263>]
>
> [0.27 color rgb<0.078, 0.490, 0.404>]
>
> [0.33 color rgb<0.220, 0.569, 0.482>]
>
> [0.39 color rgb<0.227, 0.576, 0.467>]
>
> [0.44 color rgb<0.063, 0.451, 0.298>]
>
> [0.50 color rgb<0.067, 0.490, 0.404>]
>
> [0.60 color rgb<0.063, 0.451, 0.298>]
>
> [0.65 color rgb<0.047, 0.490, 0.443>]
>
> [0.70 color rgb<0.220, 0.569, 0.482>]
>
> [0.81 color rgb<0.102, 0.286, 0.196>]
>
> [0.89 color rgb<0.047, 0.490, 0.404>]
>
> [1.00 color rgbf<0.149, 0.314, 0.267, 0.996>]
>
> }
>
> }
>
> finish {
>
> diffuse 0.5
>
> brilliance 1.5
>
> }
>
> translate <0.0, 12.0, -50.0>
>
> rotate <90.0, 87.0, 39.0>
>
> scale <1.25, 1.25, 1.25>
>
> }
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 0.51 omega 0.34 lambda 2.8
>
> color_map
>
> {
>
> [0.00 color rgbf<0.996, 0.996, 0.996, 0.996>]
>
> [0.30 color rgbf<0.976, 0.976, 0.976, 0.976>]
>
> [0.31 color rgb<0.239, 0.576, 0.478>]
>
> [0.43 color rgb<0.110, 0.490, 0.404>]
>
> [0.49 color rgb<0.063, 0.451, 0.329>]
>
> [0.55 color rgb<0.086, 0.490, 0.404>]
>
> [0.64 color rgb<0.063, 0.286, 0.263>]
>
> [0.71 color rgb<0.078, 0.490, 0.404>]
>
> [0.78 color rgb<0.247, 0.569, 0.482>]
>
> [0.88 color rgb<0.102, 0.286, 0.208>]
>
> [0.93 color rgb<0.067, 0.490, 0.404>]
>
> [1.00 color rgbf<0.204, 0.439, 0.380, 0.996>]
>
> }
>
> translate <5.0, 10.0, -5.0>
>
> }
>
> finish {
>
> ambient 0.05
>
> diffuse 0.5
>
> brilliance 1.5
>
> }
>
> translate <-10.0, 5.0, -16.0>
>
> scale <1.5, 1.5, 1.5>
>
> }
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 0.41 omega 0.34 lambda 3.2
>
> color_map
>
> {
>
> [0.00 color rgbf<0.996, 0.996, 0.996, 0.996>]
>
> [0.15 color rgbf<0.957, 0.957, 0.957, 0.957>]
>
> [0.16 color rgb<0.086, 0.490, 0.404>]
>
> [0.39 color rgb<0.227, 0.576, 0.467>]
>
> [0.45 color rgb<0.063, 0.286, 0.263>]
>
> [0.50 color rgb<0.067, 0.490, 0.404>]
>
> [0.54 color rgb<0.063, 0.451, 0.318>]
>
> [0.67 color rgb<0.227, 0.569, 0.482>]
>
> [0.70 color rgb<0.063, 0.451, 0.310>]
>
> [0.74 color rgb<0.059, 0.490, 0.404>]
>
> [0.81 color rgb<0.102, 0.286, 0.196>]
>
> [0.85 color rgb<0.227, 0.569, 0.482>]
>
> [0.89 color rgb<0.059, 0.490, 0.404>]
>
> [1.00 color rgbf<0.459, 0.651, 0.600, 0.996>]
>
> }
>
> translate <0.0, -10.0, -5.0>
>
> rotate <10.0, 0.0, 0.0>
>
> }
>
> finish {
>
> ambient 0.2
>
> diffuse 0.5
>
> brilliance 1.5
>
> }
>
> translate <0.0, 12.0, -50.0>
>
> rotate <30.0, -15.0, 0.0>
>
> }
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 1.14 omega 0.34 lambda 3.2
>
> color_map
>
> {
>
> [0.00 color rgbf<0.996, 0.996, 0.996, 0.996>]
>
> [0.18 color rgbf<0.969, 0.969, 0.969, 0.969>]
>
> [0.19 color rgb<0.063, 0.451, 0.329>]
>
> [0.25 color rgb<0.220, 0.396, 0.376>]
>
> [0.30 color rgb<0.098, 0.490, 0.404>]
>
> [0.37 color rgb<0.220, 0.576, 0.459>]
>
> [0.45 color rgb<0.102, 0.286, 0.188>]
>
> [0.47 color rgb<0.078, 0.490, 0.404>]
>
> [0.60 color rgb<0.227, 0.408, 0.388>]
>
> [0.67 color rgb<0.078, 0.490, 0.404>]
>
> [0.78 color rgb<0.247, 0.569, 0.482>]
>
> [0.86 color rgb<0.067, 0.490, 0.404>]
>
> [1.00 color rgbf<0.157, 0.486, 0.439, 0.996>]
>
> }
>
> translate <20.0, 20.0, -20.0>
>
> rotate <0.0, 45.0, 0.0>
>
> }
>
> finish {
>
> ambient 0.19
>
> diffuse 0.5
>
> brilliance 1.5
>
> phong 0.42 phong_size 244
>
> reflection 0.25
>
> }
>
> translate <5.0, 10.0, 15.0>
>
> scale <3.0, 3.0, 3.0>
>
> }
>
>
>
>
>
> // Bands of Dark Green
>
> #declare Malachite =
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 0.46 octaves 7 omega 0.42 lambda 2.6
>
> color_map
>
> {
>
> [0.00 color rgb<0.157, 0.490, 0.404>]
>
> [0.12 color rgb<0.149, 0.490, 0.404>]
>
> [0.16 color rgb<0.267, 0.576, 0.506>]
>
> [0.21 color rgb<0.137, 0.490, 0.404>]
>
> [0.27 color rgb<0.071, 0.302, 0.243>]
>
> [0.39 color rgb<0.129, 0.490, 0.404>]
>
> [0.44 color rgb<0.063, 0.451, 0.357>]
>
> [0.50 color rgb<0.118, 0.490, 0.404>]
>
> [0.58 color rgb<0.063, 0.306, 0.263>]
>
> [0.66 color rgb<0.110, 0.490, 0.404>]
>
> [0.73 color rgb<0.278, 0.573, 0.482>]
>
> [0.79 color rgb<0.102, 0.294, 0.235>]
>
> [0.85 color rgb<0.098, 0.490, 0.404>]
>
> [0.92 color rgb<0.200, 0.537, 0.463>]
>
> [1.00 color rgb<0.106, 0.302, 0.263>]
>
> }
>
> frequency 2
>
> translate <-10.0, 5.0, 1.0>
>
> }
>
> finish {
>
> ambient 0.0
>
> diffuse 0.5
>
> brilliance 1.5
>
> }
>
> }
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 0.41 octaves 8 omega 0.28 lambda 1.2
>
> color_map
>
> {
>
> [0.00 color rgbf<0.996, 0.996, 0.996, 0.996>]
>
> [0.15 color rgbf<0.957, 0.957, 0.957, 0.957>]
>
> [0.16 color rgb<0.063, 0.286, 0.263>]
>
> [0.27 color rgb<0.078, 0.490, 0.404>]
>
> [0.33 color rgb<0.220, 0.569, 0.482>]
>
> [0.39 color rgb<0.227, 0.576, 0.467>]
>
> [0.44 color rgb<0.063, 0.451, 0.298>]
>
> [0.50 color rgb<0.067, 0.490, 0.404>]
>
> [0.60 color rgb<0.063, 0.451, 0.298>]
>
> [0.65 color rgb<0.047, 0.490, 0.443>]
>
> [0.70 color rgb<0.220, 0.569, 0.482>]
>
> [0.81 color rgb<0.102, 0.286, 0.196>]
>
> [0.89 color rgb<0.047, 0.490, 0.404>]
>
> [1.00 color rgbf<0.149, 0.314, 0.267, 0.996>]
>
> }
>
> }
>
> finish {
>
> diffuse 0.5
>
> brilliance 1.5
>
> }
>
> translate <0.0, 12.0, -50.0>
>
> rotate <90.0, 87.0, 39.0>
>
> scale <1.25, 1.25, 1.25>
>
> }
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 0.51 omega 0.34 lambda 2.8
>
> color_map
>
> {
>
> [0.00 color rgbf<0.996, 0.996, 0.996, 0.996>]
>
> [0.30 color rgbf<0.976, 0.976, 0.976, 0.976>]
>
> [0.31 color rgb<0.239, 0.576, 0.478>]
>
> [0.43 color rgb<0.110, 0.490, 0.404>]
>
> [0.49 color rgb<0.063, 0.451, 0.329>]
>
> [0.55 color rgb<0.086, 0.490, 0.404>]
>
> [0.64 color rgb<0.063, 0.286, 0.263>]
>
> [0.71 color rgb<0.078, 0.490, 0.404>]
>
> [0.78 color rgb<0.247, 0.569, 0.482>]
>
> [0.88 color rgb<0.102, 0.286, 0.208>]
>
> [0.93 color rgb<0.067, 0.490, 0.404>]
>
> [1.00 color rgbf<0.204, 0.439, 0.380, 0.996>]
>
> }
>
> translate <5.0, 10.0, -5.0>
>
> }
>
> finish {
>
> ambient 0.05
>
> diffuse 0.5
>
> brilliance 1.5
>
> }
>
> translate <-10.0, 5.0, -16.0>
>
> scale <1.5, 1.5, 1.5>
>
> }
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 0.41 omega 0.34 lambda 3.2
>
> color_map
>
> {
>
> [0.00 color rgbf<0.996, 0.996, 0.996, 0.996>]
>
> [0.15 color rgbf<0.957, 0.957, 0.957, 0.957>]
>
> [0.16 color rgb<0.086, 0.490, 0.404>]
>
> [0.39 color rgb<0.227, 0.576, 0.467>]
>
> [0.45 color rgb<0.063, 0.286, 0.263>]
>
> [0.50 color rgb<0.067, 0.490, 0.404>]
>
> [0.54 color rgb<0.063, 0.451, 0.318>]
>
> [0.67 color rgb<0.227, 0.569, 0.482>]
>
> [0.70 color rgb<0.063, 0.451, 0.310>]
>
> [0.74 color rgb<0.059, 0.490, 0.404>]
>
> [0.81 color rgb<0.102, 0.286, 0.196>]
>
> [0.85 color rgb<0.227, 0.569, 0.482>]
>
> [0.89 color rgb<0.059, 0.490, 0.404>]
>
> [1.00 color rgbf<0.459, 0.651, 0.600, 0.996>]
>
> }
>
> translate <0.0, -10.0, -5.0>
>
> rotate <10.0, 0.0, 0.0>
>
> }
>
> finish {
>
> ambient 0.2
>
> diffuse 0.5
>
> brilliance 1.5
>
> }
>
> translate <0.0, 12.0, -50.0>
>
> rotate <30.0, -15.0, 0.0>
>
> }
>
> texture {
>
> pigment
>
> {
>
> leopard
>
> turbulence 1.14 omega 0.34 lambda 3.2
>
> color_map
>
> {
>
> [0.00 color rgbf<0.996, 0.996, 0.996, 0.996>]
>
> [0.18 color rgbf<0.969, 0.969, 0.969, 0.969>]
>
> [0.19 color rgb<0.063, 0.451, 0.329>]
>
> [0.25 color rgb<0.220, 0.396, 0.376>]
>
> [0.30 color rgb<0.098, 0.490, 0.404>]
>
> [0.37 color rgb<0.220, 0.576, 0.459>]
>
> [0.45 color rgb<0.102, 0.286, 0.188>]
>
> [0.47 color rgb<0.078, 0.490, 0.404>]
>
> [0.60 color rgb<0.227, 0.408, 0.388>]
>
> [0.67 color rgb<0.078, 0.490, 0.404>]
>
> [0.78 color rgb<0.247, 0.569, 0.482>]
>
> [0.86 color rgb<0.067, 0.490, 0.404>]
>
> [1.00 color rgbf<0.157, 0.486, 0.439, 0.996>]
>
> }
>
> translate <20.0, 20.0, -20.0>
>
> rotate <0.0, 45.0, 0.0>
>
> }
>
> finish {
>
> ambient 0.19
>
> diffuse 0.5
>
> brilliance 1.5
>
> }
>
> translate <5.0, 10.0, 15.0>
>
> scale <3.0, 3.0, 3.0>
>
> }
>
>
Post a reply to this message
|
|
