|
 |
Great to have the source: I plan to make a large poster with it. But: where
do I find "malachit.inc" ?
I suppose I can learn a lot from this source. Thanks.
--
Regards,
Sander
David Fontaine <dav### [at] faricy net> schreef in berichtnieuws
3867C31A.531A0B79@faricy.net...
> Here it is, with the dreaded rounding bug fixed...
> Run namelisthf.pov first to generate the text height_field. I ran it at
> 3000x3000 with AA0.2
----------------------------------------------------------------------------
----
> // POV users
> #include "namelist.inc"
> #include "colors.inc"
> #include "stones.inc"
> #include "metals.inc"
> #include "macros.inc"
> #include "malachit.inc"
> #include "woods.inc"
> #include "glass.inc"
>
> camera { location <0,38,-50> look_at <0,-15,0> }
> light_source { <-100,200,-300> Gray60 }
> light_source { <300,200,-500> Gray60 }
> light_source { <-100,300,10> Gray50 }
>
> // \/----== TABLE ==---\/
> union {
> intersection {
> merge {
> box { <-3,-2,-20>,<3,-1,20> texture { T_Wood34 scale 2.5 }
translate <-6,0,-10> }
> box { <-3,-2,-20>,<3,-1,20> texture { T_Wood34 scale 2.5 }
translate <-6,0,-50> }
> box { <-3,-2,-20>,<3,-1,20> texture { T_Wood34 scale 2.5 }
translate <-6,0,30> }
> box { <-3,-2,-20>,<3,-1,20> texture { T_Wood34 scale 2.5 }
translate <0,0,5> }
> box { <-3,-2,-20>,<3,-1,20> texture { T_Wood34 scale 2.5 }
translate <6,0,15> }
> box { <-3,-2,-20>,<3,-1,20> texture { T_Wood34 scale 2.5 }
translate <6,0,-25> }
> box { <-3,-2,-20>,<3,-1,20> texture { T_Wood34 scale 2.5 }
translate <12,0,30> }
> box { <-3,-2,-20>,<3,-1,20> texture { T_Wood34 scale 2.5 }
translate <12,0,-10> }
> box { <-3,-2,-20>,<3,-1,20> texture { T_Wood34 scale 2.5 }
translate <0,0,-35> }
> rotate 90*y scale <.8,1,.8> translate .7*y
> }
> object { roundbox(-10,-5,-100,100,.701,9*.8+.001,.5) }
> translate -5*x
> }
> object { roundbox (-14.5,-.299,-100,100,0,9*.8-.5,.05) texture
T_Glass3 } interior { I_Glass } }
> scale 10 translate <0,-16.9665,60>
> }
>
> // \/---== DISK ==---\/
> difference {
> object { roundcylinder(3,33,.4) texture { MalachitePolished scale 3 }
translate -2*y }
> intersection {
> height_field { png "zodsun.png" scale <20,.5,20> translate
<-10,.51,-10> smooth inverse }
> box { <-9.99,.52,-9.99>,<9.99,10,9.99> }
> texture { T_Gold_3B }
> }
> height_field { png "namelisthf.png" scale <68,-.2,68> translate
<-34,1.01,-34> smooth texture { T_Gold_3B } }
> translate .5*y
> }
>
> // \/---== "FEET" ==---\/
> #declare holdert=difference {
> object { roundcylinder(3,3.5,.4) }
> box { <-1,-1,-1.5>,<4,4,1.5> }
> intersection {
> merge {
> intersection {
> torus { .4,.4 translate <-1,.4,-1.5> }
> box { <-1,-2,-1.5>,<-2,5,-5> }
> }
> intersection {
> torus { .4,.4 translate <-1,.4,1.5> }
> box { <-1,-2,1.5>,<-2,5,5> }
> }
> cylinder { <-1.4,.4,1.6>,<-1.4,.4,-1.6>,.4 }
> cylinder { <-1.1,.4,-1.9>,<5,.4,-1.9>,.4 }
> cylinder { <-1.1,.4,1.9>,<5,.4,1.9>,.4 }
> inverse
> }
> intersection {
> object { roundbox(-1.4,-2,-1.9,4,6,1.9,.4) }
> plane { y,.4 }
> }
> }
> intersection {
> merge {
> intersection {
> torus { .4,.4 translate <-1,2.6,-1.5> }
> box { <-1,-2,-1.5>,<-2,5,-5> }
> }
> intersection {
> torus { .4,.4 translate <-1,2.6,1.5> }
> box { <-1,-2,1.5>,<-2,5,5> }
> }
> cylinder { <-1.4,2.6,1.6>,<-1.4,2.6,-1.6>,.4 }
> cylinder { <-1.1,2.6,-1.9>,<5,2.6,-1.9>,.4 }
> cylinder { <-1.1,2.6,1.9>,<5,2.6,1.9>,.4 }
> inverse
> }
> intersection {
> object { roundbox(-1.4,-2,-1.9,4,6,1.9,.4) }
> plane { -y,-2.6 }
> }
> }
> intersection {
> merge {
> cylinder { <2.44949,.4,1.9>,<2.44949,2.6,1.9>,.4 }
> sphere { <2.44949,.4,1.9>,.4 }
> sphere { <2.44949,2.6,1.9>,.4 }
> inverse
> }
> plane { -x,-2.44949 translate 1.9*z }
> plane { z,0 rotate -37.7997*y translate <2.44949,0,1.9> }
> plane { -z,0 }
> }
> intersection {
> merge {
> cylinder { <2.44949,.4,-1.9>,<2.44949,2.6,-1.9>,.4 }
> sphere { <2.44949,.4,-1.9>,.4 }
> sphere { <2.44949,2.6,-1.9>,.4 }
> inverse
> }
> plane { -x,-2.44949 translate -1.9*z }
> plane { -z,0 rotate 37.7997*y translate <2.44949,0,-1.9> }
> plane { z,0 }
> }
> rotate 90*x translate -1.5*z
> }
> #declare holder=merge {
> object { holdert }
> intersection {
> torus { 5,1.5 rotate 90*x translate -5*y }
> plane { x,0 rotate -16.6*z translate -5*y }
> plane { x,0 rotate 20*z translate -5*y }
> }
> intersection {
> torus { 2,1.5 rotate 90*x translate <-2,-11.7082,0> }
> plane { -x,0 rotate -16.6*x translate <-2,-11.7082,0> }
> plane { -y,0 translate <-2,-11.7082,0> }
> }
> difference {
> cone { <0,-16.9665,0>,0 <0,-11.7082,0>,2.2 }
> torus { 2.2,.7 translate -11.7082*y }
> }
> intersection {
> sphere { <0,-16.9665,0>,5 }
> plane { -y,16.9665 }
> }
> }
>
> object { holder translate -32*x rotate 0*y texture { T_Gold_3A } }
> object { holder translate -32*x rotate 60*y texture { T_Gold_3A } }
> object { holder translate -32*x rotate 120*y texture { T_Gold_3A } }
> object { holder translate -32*x rotate 180*y texture { T_Gold_3A } }
> object { holder translate -32*x rotate 240*y texture { T_Gold_3A } }
> object { holder translate -32*x rotate 300*y texture { T_Gold_3A } }
----------------------------------------------------------------------------
----
----------------------------------------------------------------------------
----
> // 03-Feb-45 Alex McMurray Australia,
Melbourne
> // 14-Mar-38 Alf Peake Wales, Swansea
> // 26-Jan-84 Andrea Ryan (Brendan) USA, New York,
Kingsbury
> // 16-Dec-81 Andrew Clinton Canada, Ottawa
> // 11-Oct-58 Arthur Flint (Mr. Art) USA, Anchorage,
Alaska
> // 16-Nov-55 Bill DeWitt USA, Florida
> // 31-Oct-58 Bob Hughes (omniVERSE) USA, Decatur,
Alabama
> // 30-May-48 Brendan Hurley USA, California,
Ukiah
> // 11-Jan-60 Bruce (Lamming)
> // 02-Apr-67 Charles USA, Eastern PA
> // 25-Jul-82 Chris Huff USA, Michigan,
Union
> // 02-Sep-65 Cliff Bowman England, SE,
Watford
> // 03-Feb-82 Daniel Pirch Germany, Berlin
> // 17-Dec-74 Darcy Johnston
> // 08-Aug-84 David Fontaine USA, Minneapolis,
Minnesota
> // 23-Apr-61 David Heys USA, Anchorage,
Alaska
> // 07-Apr-83 David Parrott England, Essex,
Maldon
> // 05-Jan-33 David Wilkinson Scotland, Hamilton
> // 16-Sep-80 Edward Coffey Australia,
Melbourne, Victoria
> // 09-Jan-60 Erick Vermeulen Netherlands
> // 24-Sep-74 Fabian Brau Belgium, Mons
> // 22-May-75 Fabien Mosen
> // 07-Dec-76 Gail Shaw South Africa,
Johannesburg
> // 10-Oct-64 Greg M. Johnson USA, Poughkeepsie
NY
> // 04-Apr-82 H.E. Day Eugene, Oregon
> // 11-Dec-52 Harold Baize
> // 15-Nov-84 Ian Burgmyer
> // 30-Jan-63 ingo
> // 04-Nov-66 Jeff Lee USA, Tampa, Florida
> // 23-Sep-75 Jerome Berger France, Courbevoie
> // 27-Oct-66 John M. Dlugosz
> // 28-Jul-65 John VanSickle
> // 14-Dec-66 Jon A. Cruz USA, Southern
California
> // 07-Sep-71 Josh English USA, Oregon,
Portland
> // 07-Mar-86 Julia Rumyantseva Russia, Ulyanovsk
> // 04-Nov-70 Karl Pelzer Germany
> // 11-Nov-46 Ken Matassa USA, California,
Santa Ana Heights
> // 19-Apr-58 Ken Tyler USA, Tustin,
Califonia
> // 02-Feb-78 Kevin Ellis England,
Peterborough
> // 11-Jun-81 Kevin Wampler USA, Arizona,
Tucson
> // 21-Apr-77 Krystian Bates USA, MI, Alpena
> // 02-Jul-49 Kurt Bangert Germany, Huttenburg
> // 11-Mar-83 Lance Birch Australia
> // 15-Sep-64 Lutz Kretzschmar Germany, Munich
> // 21-Mar-71 Marc Schimmler Germany, Stuttgart
> // 29-Oct-78 Margus Ramst Estonia
> // 10-Oct-57 Marjorie Diez de Graterol USA, Houston, Texas
> // 30-Mar-70 Mark Gordon USA, Wisconsin,
Madison
> // 11-Mar-80 Mark Wagner USA, Michigan, Novi
> // 28-Oct-67 Markus Becker Siegen, GErmany
> // 20-Sep-55 Martial Rameaux France, Dijon
> // 12-Nov-45 Mick Hazelgrove UK, Stoke on Trent
> // 05-Jul-77 Nick Portelli USA, Michigan,
Brighton
> // 30-Jan-74 Nieminen Juha (Warp)
> // 27-Sep-59 Pavel Rumyantsev Russia, Ulyanovsk
> // 05-Mar-80 Peter Popov Bulgaria
> // 10-Aug-55 Peter Warren USA, Washington,
Seattle
> // 11-Nov-69 Phil Clute USA, Hampton, New
Hampshire
> // 31-Dec-72 Philippe Debar Belgium, Namur
> // 16-Jul-63 Phil Carrig (PoD) South Australia,
Adelaide
> // 28-Oct-67 Ricardo M. Pereyra
> // 14-Jul-60 Robert Chaffe
> // 21-Jun-66 Rodolphe Gelaude France , Compiegne
> // 16-Sep-71 Ron Parker USA, Indiana, Fort
Wayne
> // 10-May-83 Rune S. Johansen Denmark, Aarhus
> // 19-May-77 Ryan Mooney
> // 22-Sep-74 Saadat Saeed
> // 11-Aug-77 SamuelT (Samuel T Benge) USA, Placentia,
Califonia
> // 28-Jul-31 Sander (Alexander Stols) Netherlands,
Molenhoek
> // 01-Jul-73 Scott Hill England, Cambridge
> // 21-Feb-77 Sigmund Kyrre Aas Norway
> // 01-Dec-67 Steve Lenehan England, Wigan
> // 27-Jun-68 Sven-Erik Andersen Norway, Mo I Rana
> // 15-Oct-77 Thorsten Froelich Germany, Duisburg
> // 05-Feb-82 TonyB(Anthony L. Bennett) Rep. of Panama,
Panama
> // 31-Mar-70 Uwe Zimmermann Germany,
Bremerhaven
> // 09-Oct-68 Vahur Krouverk Estonia, Tallinn
> // 26-Mar-83 Wojtek Bauman
> // 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,08,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 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, Califonia*"
> ,"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, Califonia*"
> ,"Netherlands, Molenhoek*"
> ,"England, Cambridge*"
> ,"Norway*"
> ,"England, Wigan*"
> ,"Norway, Mo I Rana*"
> ,"Germany, Duisburg*"
> ,"Rep. of Panama, Panama*"
> ,"Germany, Bremerhaven*"
> ,"Estonia, Tallinn*"
> ,"NA*"
> ,"Belgium, Flanders*"}
----------------------------------------------------------------------------
----
> // POV users
> #include "namelist.inc"
> #include "colors.inc"
> #include "stones.inc"
> #include "metals.inc"
>
> camera { location <0,50,0> look_at <0,0,0> orthographic up<0,0,70> right
<70,0,0> }
>
> union {
> #declare nctr=0; // Number of people in list
> #declare pos=0; // Current character number
> #declare rad=10.5; // Current distance from text to center
> #declare rot=0; // Current rotation of text clockwise from +z
> #while (nctr<80)
> /*------------------------- DATE ----------------------------*/
> text { ttf "c:/windows/fonts/cour.ttf" str(int(days[nctr]/10),1,0)
.1,0 rotate 90*x translate <0,0,rad> rotate rot*y }
> #declare pos=pos+1; // next character position
> #declare rot=rot+1/(rad*2*pi)*.7*360; // adjust rotation
> #declare rad=10.5+rot/360; // adjust distance
> text { ttf "c:/windows/fonts/cour.ttf" str(mod(days[nctr],10),1,0)
.1,0 rotate 90*x translate <0,0,rad> rotate rot*y }
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" "-" .1,0 rotate 90*x
translate <0,0,rad> rotate rot*y }
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" substr(smonths[nctr],1,1)
.1,0 rotate 90*x translate <0,0,rad> rotate rot*y }
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" substr(smonths[nctr],2,1)
.1,0 rotate 90*x translate <0,0,rad> rotate rot*y }
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" substr(smonths[nctr],3,1)
.1,0 rotate 90*x translate <0,0,rad> rotate rot*y }
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" "-" .1,0 rotate 90*x
translate <0,0,rad> rotate rot*y }
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" str(int(years[nctr]/10),1,0)
.1,0 rotate 90*x translate <0,0,rad> rotate rot*y }
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" str(mod(years[nctr],10),1,0)
.1,0 rotate 90*x translate <0,0,rad> rotate rot*y }
> /*--------------------------- NAME ---------------------------*/
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" "-" .1,0 rotate 90*x
translate <0,0,rad> rotate rot*y }
> #local sctr=1;
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> #while (sctr<1000)
> #if (asc(substr(names[nctr],sctr,1))=asc("*")) #local sctr=1000;
> #else
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/courbd.ttf"
substr(names[nctr],sctr,1) .1,0 rotate 90*x translate <0,0,rad> rotate
rot*y }
> #end
> #local sctr=sctr+1;
> #end
> /*-------------------------- LOCATION -------------------------*/
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" "-" .1,0 rotate 90*x
translate <0,0,rad> rotate rot*y }
> #local sctr=1;
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> #while (sctr<1000)
> #if (asc(substr(locations[nctr],sctr,1))=asc("*")) #local
sctr=1000;
> #else
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf"
substr(locations[nctr],sctr,1) .1,0 rotate 90*x translate <0,0,rad> rotate
rot*y }
> #end
> #local sctr=sctr+1;
> #end
> #if (nctr<79)
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> text { ttf "c:/windows/fonts/cour.ttf" "|" .1,0 rotate 90*x
translate <0,0,rad> rotate rot*y }
> #declare pos=pos+1;
> #declare rot=rot+1/(rad*2*pi)*.7*360;
> #declare rad=10.5+rot/360;
> #end
> #declare nctr=nctr+1;
> #end
> pigment { color White } finish { ambient 1 diffuse 0 }
> }
Post a reply to this message
|
|
