On Sun, 07 Dec 1997 05:17:18 -0500, Daren Scot Wilson
<dar### [at] pipelinecom> wrote:

>Michael Kent wrote:
>> 
>> Hello everyone,
>> 
>> I've decided that it's time for POVRay to have a place to live, a
>
>Cute idea.   I've been know to waste time on far more frivilous things,
>so why not?   Where do I get my builder's license?  
>
Glad to see that you have understood the spirit of the idea :-))

I hereby grant you building permission for anything you want in the
location currently ocupied by the box:-
box{<.5,2,.5> <9.5,-0.01,9.5>texture{PinkAlabaster}translate
<10,0,-10>}
in the following rough layout script.

I suggest a scale of about 1unit = 25 metres

Enjoy!!

Michael

_____________________________________

// Persistence of Vision Ray Tracer Scene Description File
// File: city.pov
// Vers: 3
// Desc: Basic City Plan
// Date: 04/12/1997
// Auth: Michael Kent
// Contact: mic### [at] enterprisenet or Fidonet 2:258/69.10


#include "colors.inc"
#include "textures.inc"
#include "stones.inc"

camera
{
  location  <5.0 , 7.0 ,-20>
    up        y
  right     4/3*x
  look_at   <5.0 , 0.0 , 0.0>
}

light_source {  0*x  color red 1.0  green 1.0  blue 1.0 translate <0.0
, 100.0 ,-50.0>}

// The roads.

#declare Count=-50
#while (Count <=50)
box{<-50,0.1,-0.5> <50,-0.01,0.5>texture{T_Grnt15}translate
<0,0,Count>}
box{<-.5,0.1,-50> <.5,-0.01,50>texture{T_Grnt15}translate <Count,0,0>}
#declare Count=Count +10
#end

box{<.5,.5,.5> <9.5,-0.01,9.5>texture{PinkAlabaster}translate <0,0,0>}
box{<1,4,1> <9,-0.01,9>texture{PinkAlabaster}translate <0,0,0>}
box{<3,9,3> <7,-0.01,7>texture{PinkAlabaster}translate <0,0,0>}

box{<.5,5,.5> <9.5,-0.01,9.5>texture{PinkAlabaster}translate
<-20,0,10>}
box{<.5,2,.5> <9.5,-0.01,9.5>texture{PinkAlabaster}translate
<10,0,-10>}
box{<.5,1,.5> <9.5,-0.01,9.5>texture{PinkAlabaster}translate
<-10,0,0>}

plane { y, 0 pigment {color rgb <0.1,0.8,0.1>}}

sky_sphere
{
  pigment
  {
    gradient y
    color_map { [0.0 color blue 0.6] [1.0 color rgb 1] }
  }
}

HTTP://homepages.enterprise.net/michaelkent
e-mail mic### [at] enterprisenet
Fidonet 2:258/69.10

Post a reply to this message