|
|
|
|
|
|
| |
| |
|
|
|
|
| |
| |
|
|
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
|
|
| |
| |
|
|
|
|
| |
| |
|
|
In article <slr### [at] fwicom>, Ron Parker says...
> 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}
>
>
The wizzard of POV.. :)
--
Regards, Sander
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Ron Parker <ron### [at] povrayorg> wrote:
: I was disappointed, though. I'd hoped it would be self-referential, like
: mine was.
Self-referential is nothing. If you want a real challenge, try making
a povray code which renders itself (ie. the source code itself).
(You can use timrom.ttf for that.)
--
#macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
],13),8)-3,10>#end blob{N(array[6]{11117333955,
7382340,3358,3900569407,970,4254934330},0)}// - Warp -
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
On 13 Jul 2001 19:08:51 -0400, Warp wrote:
>Ron Parker <ron### [at] povrayorg> wrote:
>: I was disappointed, though. I'd hoped it would be self-referential, like
>: mine was.
>
> Self-referential is nothing. If you want a real challenge, try making
>a povray code which renders itself (ie. the source code itself).
> (You can use timrom.ttf for that.)
I did that in C once, but I shudder to think what it would look like in
POV.
--
#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
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Ron Parker <ron### [at] povrayorg> wrote:
: I did that in C once, but I shudder to think what it would look like in
: POV.
There are countless ways of doing it in C, others are more complicated
than others, but due to the flexibility of the program, it can actually
be done in a rather simple way. This is the shortest self-printing C program
I have ever seen:
main(){char*s="main(){char*s=%c%s%c;printf(s,34,s,34);}";printf(s,34,s,34);}
However, it's probably a lot more complicated to do it with POV-Ray.
--
#macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
],13),8)-3,10>#end blob{N(array[6]{11117333955,
7382340,3358,3900569407,970,4254934330},0)}// - Warp -
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Gary Thompson's quine page has an example that uses #debug to output itself
to the message window.
http://www.nyx.net/~gthompso/self_pov.txt
Here's the code for it:
#declare e="#declare e=#debug
concat(substr(e,1,11),chr(34),e,chr(34),substr(e,12,71))box{x y}"
#debug concat(substr(e,1,11),chr(34),e,chr(34),substr(e,12,71))box{x y}
- autowitch
"Warp" <war### [at] tagpovrayorg> wrote in message
news:3b4f7f82@news.povray.org...
> Ron Parker <ron### [at] povrayorg> wrote:
> : I was disappointed, though. I'd hoped it would be self-referential,
like
> : mine was.
>
> Self-referential is nothing. If you want a real challenge, try making
> a povray code which renders itself (ie. the source code itself).
> (You can use timrom.ttf for that.)
>
> --
> #macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
> rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
> ],13),8)-3,10>#end blob{N(array[6]{11117333955,
> 7382340,3358,3900569407,970,4254934330},0)}// - Warp -
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
"Warp" <war### [at] tagpovrayorg> schreef in bericht
news:3b4f7f82@news.povray.org...
> Ron Parker <ron### [at] povrayorg> wrote:
> : I was disappointed, though. I'd hoped it would be self-referential,
like
> : mine was.
>
> Self-referential is nothing. If you want a real challenge, try making
> a povray code which renders itself (ie. the source code itself).
> (You can use timrom.ttf for that.)
You people have way too much free time on your hands... ;-)
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
|
|