POV-Ray : Newsgroups : povray.general : WIP stargate - lighting problems : WIP stargate - lighting problems Server Time
4 Aug 2024 22:16:13 EDT (-0400)
  WIP stargate - lighting problems  
From: Richard Morehouse
Date: 24 Jan 2003 11:16:33
Message: <uvo23vocd7d79u1a4523f5gh35a6hs0pf2@4ax.com>
can someone please tell me why some of these objects do not appear lit
up. they are identical objects rotated about the z axis

Thanks

Richard 

image:
http://news.povray.org/povray.binaries.images/30039/

source:
// Desc: stargate chevron test
// Date: 01/24/2003
// Auth: Richard Morehouse

#include "kolors.inc"  // ken tyler's color includes
#include "stones.inc"
#include "textures.inc"
#include "shapes.inc"
#include "shapes2.inc"
#include "glass.inc"
#include "metals.inc"
#include "woods.inc"
#include "colors.inc"
#include "skies.inc"  
#version 3.5;

global_settings {  assumed_gamma 1.0
  max_trace_level 20
}

#macro Clipcyl(Rad,h,Rot) 
intersection {
box{<0,-((h/2)+1),-(Rad+1)><(Rad+1),(h/2)+1,(Rad+1)>rotate y*-Rot/2} 
box{<0,-((h/2)+1),-(Rad+1)><-(Rad+1),(h/2)+1,(Rad+1)> rotate y*Rot/2}
cylinder{-h/2*y,h/2*y,Rad}
}
#end

#local SGTex = texture {pigment{granite   
color_map {[0.0 Gray30][0.5 Gray50][1.0 Gray70]}
scale 32} finish {specular 0.7}}


#local s0=sin(radians(10));
#local c0=cos(radians(10));
#local s1=s0/c0;
#local s2=sin(radians(25))/cos(radians(25));

#declare chevbox1=intersection{
box{<0,0,0> <-12,31,12>} 
box{<0,0,0><6,30,6> rotate y*-45}
}
#declare chevbox2=intersection{
box{<0,0,0> <12,31,12>}
box{<0,0,0><6,30,6> rotate y*-45}
}
#declare Chevlightslits=
union{
#declare i=0;
#while (i<6)
box{<-44,11+i,1><44,11.25+i,-10>}
#declare i=i+1;
#end
}
#declare Chevlights=
union{
#declare i=0;
#while (i<6)
light_source{<s2*(2+11.125+i),11.125+i,-.25> color Orange*6 fade_power
1 fade_distance 4}
light_source{<-s2*(2+11.125+i),11.125+i,-.25> color Orange*6
fade_power 1 fade_distance 4}
#declare i=i+1;
#end
light_source{<-3,17.75,-.5> color Yellow*4 fade_power 1 fade_distance
20}
light_source{<0,17.75,-.5> color Yellow*4 fade_power 1 fade_distance
10}
light_source{<3,17.75,-.5> color Yellow*4 fade_power 1 fade_distance
20}
light_source{<0,11,-.5> color Red*6 fade_power 1 fade_distance 24}
}
 
 
#declare Chevron3=intersection{box{<-44,0,0><44,44,-10>}
union{
union{object{chevbox1 scale <.5,1,1>} object{chevbox2 } rotate z*-25}
union{object{chevbox1} object{chevbox2 scale <.5,1,1>} rotate z*25}
intersection{object{Clipcyl(32,7,50) rotate x*-90}  
difference{box{<-6,0,0><6,6,6>} cylinder{y*-1,y*7,.15}
box{<-7,0,2><7,10,-10> rotate x*-60 translate y*5}}}
translate y*-2 rotate x*-10}} 
#declare Chevron4= intersection {
object{Chevron3  translate z*.25}
object{Chevlightslits}
}
#declare Chevron5=intersection{cylinder{0*z,-7*z,124.875}
difference{object{Chevron3} 
object{Chevlightslits}

translate y*106 translate z*-2}
texture {SGTex}}
#declare chevlightshp=intersection{
box{<-44,0,-10><44,20,-0.01>}
 object{Chevron4} no_shadow
  }
#declare Chevron6= intersection{cylinder{0*z,-7*z,124.875}  
difference{
intersection{object{Clipcyl(32,15,40) rotate x*-90}
box{<-44,5,0><44,35,-10>}}
intersection{object{Clipcyl(32,16,40) rotate x*-90}
box{<-44,5,-.125><44,35,-11>} translate y*2  }
box{<-44,-1,0><44,30,-10> rotate x*-10 }
translate y*106 translate z*-2}
 texture{SGTex}} 

#declare Chevron7=intersection{cylinder{0*z,-7*z,124.874} 
difference{
intersection{object{Clipcyl(32,16,40) rotate x*-90}
box{<-44,5,-.125><44,35,-11>} translate y*2  }
box{<-44,-1,0><44,40,-10> rotate x*-10  translate z*.001}
translate y*106 translate z*-2} } 

#declare Chlitglass1=pigment{color Orange*6 filter .9} 
#declare Chunlitglass1=pigment{color Orange filter .9} 

#declare Chlitglass2=pigment{ gradient y color_map{[0 Red*2 filter
.9][11/18 Red*2 filter .9][14/18 Yellow*2 filter .9][18/18 Yellow*2
filter .9]} scale 18}
#declare Chunlitglass2=pigment{ gradient y color_map{[0 Red filter
.9][11/18 Red filter .9][14/18 Yellow filter .9][18/18 Yellow filter
.9]} scale 18} 
  
#declare LitChevron=union{
object{Chevron5}
object{Chevron6}
object{Chevron7 no_shadow pigment{Chlitglass2}}
cylinder{y*109,y*112,.15 scale<3,1,1> translate -2.2*z texture{SGTex}
} 
object{chevlightshp pigment{Chlitglass1} finish {F_Glass1}
interior{I_Glass} translate y*106 translate z*-2}  
object{Chevlights translate y*106 translate z*-2}
}
#declare UnLitChevron=union{
object{Chevron5}
object{Chevron6}
object{Chevron7 no_shadow pigment{Chunlitglass2} finish {F_Glass1}
interior{I_Glass}}
cylinder{y*109,y*112,.15 scale<3,1,1> translate -2.2*z texture{SGTex}
} 
object{chevlightshp pigment{Chunlitglass1} finish {F_Glass1}
interior{I_Glass} translate y*106 translate z*-2}  
}
 
camera {location  <0.0, 120, -200>   look_at   <0.0, 120, 100>}
background{Black}

light_source {  <0, 0, 0> color rgb <1, 1, 1> translate <-200,
100,-1000>}

#declare litup=1;

#declare litflag=array[9] {1,1,1,1,1,1,1,1,1};
 
#declare i=0;
#while (i<9) 
#debug concat("C ",str(litflag[i]*litup,1,1),"\n")
#if ((litflag[i]*litup) >0 )
object{LitChevron rotate i*40*z translate y*120 translate z*100 }
#else
object{UnLitChevron rotate i*40*z translate y*120 translate z*100 }
#end
#declare i=i+1;
#end
// end of source


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.