 |
|
|
|
|
|
| |
| |
|
|
|
|
| |
| |
|
|
camera
{location x*6 look_at 0}
light_source {9 1}#macro
Q(W)pi/99* I*W#end
#macro P(F )#local I=0;
#while(I<198)
sphere{<cos(
Q(3)),F*cos(Q
(2))+sin(Q(1)
),F*sin(Q(2
))+cos(Q(1)
)>.4 pigment
{color rgb
<.9,.91,
.99>}
finish
{ambient .1
phong 9 brilliance
9 reflection .8}}#local
I=I+1; #end #end
P(1.6) P(2.4)
// POV
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
!
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
On Tue, 10 Jul 2001 05:59:11 -0700, Ken wrote:
>
>!
No, no, no, you've got it all wrong.
The proper response is:
union{lathe
{cubic_spline 8
<0,0> <.1,.05> <1.4,
.6> <2,5> <3, 10><2.4,
11.4> <1,12> <0,12.5>}
sphere {-4*y,2}pigment
{spiral1 5 color_map
{[.5red 1 green .5][
.5rgb <1,1,.8>][.6
rgb <1,1,.8>][.6
rgbt 1]}rotate
90*x} finish
{ambient .2
specular .5
roughness
.001
diffuse
.3 brilliance
1.2}}light_source
{<-50,50,-100>rgb 1
}light_source {<50
, 25,-100>rgb.6}
camera{location
-z*30look_at
0}
--
#local R=rgb 99;#local P=R-R;#local F=pigment{gradient x}box{0,1pigment{gradient
y pigment_map{[.5F pigment_map{[.3R][.3F color_map{[.15red 99][.15P]}rotate z*45
translate x]}]#local H=pigment{gradient y color_map{[.5P][.5R]}scale 1/3}[.5F
pigment_map{[.3R][.3H][.7H][.7R]}]}}}camera{location.5-3*z}//only my opinions
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
:-)
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
#macro Head(Loc, Height, EyeWidth, Lip)#local
Width = 0.66*Height;#local XEye=(0.125+0.25*EyeWidth)*Width;
#local ZEye=-0.25*Height; #local PupilSize = .05*Width; #local
Crown=0.5*Height;#local NoseTip=-0.5*Height;#local
LipSize=Lip*0.2*Width;
union{sphere {<-1*XEye,0,ZEye>,PupilSize
pigment{rgb<0,0,1>}
no_shadow}sphere {<XEye,0,ZEye>,PupilSize
pigment{rgb<0,0,1>}
no_shadow}blob {threshold 0.65cylinder{<-1*
XEye,-0.66*Crown,0.75
*NoseTip>,< -0.51*LipSize,-0.66*Crown+ 0.25*LipSize,
0.8*
NoseTip>,LipSize,1}cylinder{<XEye, -0.66*Crown,
0.75*NoseTip>,<0.51*LipSize,
-0.66*Crown+0.25*LipSize,0.8*NoseTip >,LipSize,1}
sphere{<-1*XEye,-0.66*
Crown,0.75*NoseTip>,LipSize*2, -.326}
sphere{<XEye,-0.66*Crown,
0.75*NoseTip >, LipSize*2, -.326} pigment{rgb <1,0,0>} no_shadow }
blob {
threshold 0.65 cylinder{ <-1*XEye ,-0.65*Crown, 0.75*NoseTip>,
<-0.45*LipSize,
-0.65*Crown -0.3*LipSize, 0.8*NoseTip>, LipSize,1}
cylinder{<XEye,-0.65*Crown,
0.75*NoseTip>, <0.45*LipSize, -0.65*Crown -0.3* LipSize, 0.8*
NoseTip>,
LipSize,1}
sphere{<-1*XEye,-0.65*Crown,0.75*NoseTip>,LipSize*2,-.326}
sphere{<XEye,-0.65*Crown,0.75*NoseTip>,LipSize*2,-.326} pigment
{rgb <1,0,0>} no_shadow}disc{<0,0, ZEye>,z,.5*Width
pigment{rgb <1,1,0>}scale
<1,1.5,1>}translate Loc } #end light_source
{<-40,50,-50> rgb 10 }camera{
location<0, 0, -4.0> look_at 0}
Head(<0,0,0>,3,.5,.5)
--
light_source{<-9,9,-9>rgb x+y+z}text{ttf"timrom.ttf" // timothyea
"Tim Attwood".1,0 pigment{rgb x+y}translate<-2.7,-.3,5>}//
@worldnet.att.net
sky_sphere {pigment{gradient y color_map{[.45 rgb<.2,.3,.2>][0.5 rgb
x+y+z]
[0.55 rgb x+y][0.6 rgb x+.5*y][.7 rgb 0]}scale 2 translate -1}}
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Egad it all wrapped! *sigh*
Maybe if I drink an extra beer it will go back to looking attractive.
--
light_source{<-9,9,-9>rgb x+y+z}text{ttf"timrom.ttf" // timothyea
"Tim Attwood".1,0 pigment{rgb x+y}translate<-2.7,-.3,5>}// @worldnet.att.net
sky_sphere {pigment{gradient y color_map{[.45 rgb<.2,.3,.2>][0.5 rgb x+y+z]
[0.55 rgb x+y][0.6 rgb x+.5*y][.7 rgb 0]}scale 2 translate -1}}
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Unwrapped for your viewing pleasure:
On Thu, 12 Jul 2001 00:47:04 -0700, Tim Attwood wrote:
> #macro Head(Loc, Height, EyeWidth, Lip)#local
> Width = 0.66*Height;#local XEye=(0.125+0.25*EyeWidth)*Width;
> #local ZEye=-0.25*Height; #local PupilSize = .05*Width; #local
> Crown=0.5*Height;#local NoseTip=-0.5*Height;#local LipSize=Lip*0.2*Width;
> union{sphere {<-1*XEye,0,ZEye>,PupilSize pigment{rgb<0,0,1>}
> no_shadow}sphere {<XEye,0,ZEye>,PupilSize pigment{rgb<0,0,1>}
> no_shadow}blob {threshold 0.65cylinder{<-1* XEye,-0.66*Crown,0.75
> *NoseTip>,< -0.51*LipSize,-0.66*Crown+ 0.25*LipSize, 0.8*
> NoseTip>,LipSize,1}cylinder{<XEye, -0.66*Crown,0.75*NoseTip>,<0.51*LipSize,
> -0.66*Crown+0.25*LipSize,0.8*NoseTip >,LipSize,1}sphere{<-1*XEye,-0.66*
> Crown,0.75*NoseTip>,LipSize*2, -.326} sphere{<XEye,-0.66*Crown,
> 0.75*NoseTip >, LipSize*2, -.326} pigment{rgb <1,0,0>} no_shadow }blob {
> threshold 0.65 cylinder{ <-1*XEye ,-0.65*Crown, 0.75*NoseTip>,<-0.45*LipSize,
> -0.65*Crown -0.3*LipSize, 0.8*NoseTip>, LipSize,1}cylinder{<XEye,-0.65*Crown,
> 0.75*NoseTip>, <0.45*LipSize, -0.65*Crown -0.3* LipSize, 0.8*NoseTip>,
> LipSize,1}sphere{<-1*XEye,-0.65*Crown,0.75*NoseTip>,LipSize*2,-.326}
> sphere{<XEye,-0.65*Crown,0.75*NoseTip>,LipSize*2,-.326} pigment
> {rgb <1,0,0>} no_shadow}disc{<0,0, ZEye>,z,.5*Width
> pigment{rgb <1,1,0>}scale
> <1,1.5,1>}translate Loc } #end light_source
> {<-40,50,-50> rgb 10 }camera{
> location<0, 0, -4.0> look_at 0}
> Head(<0,0,0>,3,.5,.5)
--
#macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)merge{R(z+a z)R(-z a-z)R(a
-z-z-z a+z)torus{1F clipped_by{plane{a 0}}}translate V}#end#macro Z(a F T)merge{
P(z+a)P(z-a)R(-z-z-x a)pigment{rgbt 1}hollow interior{media{emission T}}finish{
reflection.1}}#end Z(-x-x.2y)Z(-x-x.4x)camera{location z*-10rotate x*90}
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
@^@
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Does this acually work?
Pierdziele wrote:
> camera
> {location x*6 look_at 0}
> light_source {9 1}#macro
> Q(W)pi/99* I*W#end
> #macro P(F )#local I=0;
> #while(I<198)
> sphere{<cos(
> Q(3)),F*cos(Q
> (2))+sin(Q(1)
> ),F*sin(Q(2
> ))+cos(Q(1)
> )>.4 pigment
> {color rgb
> <.9,.91,
> .99>}
> finish
>
> {ambient .1
> phong 9 brilliance
> 9 reflection .8}}#local
> I=I+1; #end #end
> P(1.6) P(2.4)
> // POV
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
On Thu, 12 Jul 2001 17:03:52 -0400, Psychomech wrote:
>Does this acually work?
Yes, it does. Try it and see.
I was disappointed, though. I'd hoped it would be self-referential, like
mine was.
--
#macro R(L P)sphere{L __}cylinder{L P __}#end#macro P(_1)union{R(z+_ z)R(-z _-z)
R(_-z*3_+z)torus{1__ clipped_by{plane{_ 0}}}translate z+_1}#end#macro S(_)9-(_1-
_)*(_1-_)#end#macro Z(_1 _ __)union{P(_)P(-_)R(y-z-1_)translate.1*_1-y*8pigment{
rgb<S(7)S(5)S(3)>}}#if(_1)Z(_1-__,_,__)#end#end Z(10x*-2,.2)camera{rotate x*90}
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
|
|
