User:Le Forgeron/vault/RefImgPavement

From POV-Wiki
< User:Le Forgeron‎ | vault
Revision as of 19:51, 8 December 2011 by Le Forgeron (talk | contribs) (Created page with "File:RefImgPavement.png <source lang="pov"> #include "colors.inc" #declare Co1 = rgb <0.25,0.75,0.25> ; #declare Co2 = rgb <0.75,0.75,0.25> ; #declare Co3 = rgb <0.25,0....")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

RefImgPavement.png

#include "colors.inc"
#declare Co1 = rgb <0.25,0.75,0.25> ;
#declare Co2 = rgb <0.75,0.75,0.25> ;
#declare Co3 = rgb <0.25,0.75,0.75> ;
#declare Co4 = rgb <0.25,0.25,0.75> ;
#declare Co5 = rgb <0.75,0.25,0.25> ;
#declare Co6 = rgb <0.75,0.25,0.75> ; 
camera { 
	orthographic
	location <0,-8,0>
direction y
up 5*z
right 7*x
//orthographic
}
global_settings { max_trace_level 30 ambient_light 1 }
#macro kk(ii)
#declare demo=texture { pigment { 
	pavement pattern int(ii)+1
		number_of_sides 4
		number_of_tiles 6
		form 0
		interior 0
		exterior 0
    pigment_map {
			[0 White]
				[1/3 Black]
				//[1/3 White]
				[2/3 Black]
				[2/3 White]
				[1 Black]
		}
	translate -3*x
}
finish { ambient 1.0 }
}
#end

#local i =0;
#while(i<7)
#local j=0;
#while(j<5)
kk(i*5+j)
	union {
box { <-0.485,0,-0.485>,<0.485,0,0.485>
 texture { demo scale 1/7 }
}
union{
 text { ttf "arialbd.ttf",concat(str((i*5+j+1),2,0)) 0.1,0
	 texture { pigment { Black } }
	 rotate 90*x
}
 box { <-0.1,0,-0.2>,<1.2,0,1.0>
	 texture { pigment { White } finish { ambient 1.0} }
 }
	 scale 1/8
	 no_shadow 
	 translate -0.5*y-0.4*x-0.45*z
 }

 translate ((3-j)-1)*z+(i-3)*x
}
#local j=j+1;
#end
#local i=i+1;
#end