Previous world with cyl-box difference gone
Rebuilt LEGO world with a variable radius
6 hrs for 60 lines of boat shadows, wont do that again
Boats 1,2,3 and 5, where'd 4 go
From:
6679_dark_shark.zip
6596_wave_master.zip
6353_coastal_cutter.zip
6338_hurricane_harbour.zip

Post a reply to this message

Attachments:
Download 'legopool9.jpg' (163 KB)

Preview of image 'legopool9.jpg'

"alphaQuad" <alp### [at] earthlinknet> wrote:
> Previous world with cyl-box difference gone
> Rebuilt LEGO world with a variable radius
> 6 hrs for 60 lines of boat shadows, wont do that again
> Boats 1,2,3 and 5, where'd 4 go
> From:
> 6679_dark_shark.zip
> 6596_wave_master.zip
> 6353_coastal_cutter.zip
> 6338_hurricane_harbour.zip

Great image. I like the boats in the pool, the water looks good.

Chris

Post a reply to this message

"Chris" <lho### [at] nwlinkcom> wrote:
> Great image. I like the boats in the pool, the water looks good.
>
> Chris

well I can't take much credit, image had lots o' help

/*
Water: TgQ
Absorption: Cousin Ricky
UV tile: TgQ
LEGO CSG: Anton
*/

curved road paint with 0 warnings

#declare asa_sin = function(a,s,b) {
  sin(b) * (s / sin(pi-(a+b)))
} // ASA solve opposing side of angle2 (b)

#declare roadfinsh = finish {
  ambient 0.08 phong .3 phong_size 450 roughness 0.05 reflection 0.05
}
#declare RoadPig  = pigment { color rgb 0.887 }
#declare EdgePig  = pigment { color rgb <0.12,0.827,0.23> }
#declare StrpePig = pigment { color rgb 1.5 }
#declare StrpeWid = 6;
#declare StrpeLen = 18;
#declare StrpeGap = 7;
#declare RoadWid = 130;
#declare RoadRad = 620;

            //radius,width,roadHeight
#macro roadrad(rds,wid,rht,pig)
  intersection {
    box { <-(rds+1+wid/2),0, -(rds+1+wid/2)> <(rds+1+wid/2), rht, (rds+1+wid/2)>
}
    torus { rds wid/2 }
    texture { pig roadfinsh }
  }
#end

#macro rad_broken(pig)
   #local i = 0;
   #local n = int((RoadRad*2*pi)/(StrpeLen+StrpeGap));
   #local rto = StrpeGap/StrpeLen; // ratio line space over len
   #local radianz = pi*2/n;
   #local radiuz = asa_sin(pi/2,RoadRad,radianz*rto/2);
   difference {
     roadrad(RoadRad,StrpeWid,0.04,pig)
     #while (i < n)
       cone { 0 1 < 0,0,RoadRad+StrpeWid> radiuz
              rotate y*i*degrees(radianz)
            }
       #local i=i+1;
     #end
     texture { pig roadfinsh }
   }
#end
union {
   roadrad(RoadRad,RoadWid,0.02,RoadPig)
   rad_broken(StrpePig)
   roadrad(RoadRad+RoadWid/2-StrpeWid,StrpeWid,0.04,EdgePig)
   roadrad((RoadRad-RoadWid/2)+StrpeWid,StrpeWid,0.04,EdgePig)
   translate z*488
}

Post a reply to this message