Or just:

#macro MakePlane(a, b, c)

  plane {
    vcross((b)-(a), (c)-(a)), 0
    translate a
  }

#end // macro MakePlane


Tor Olav Kristensen

mailto:tor### [at] hotmailcom
http://www.crosswinds.net/~tokrays.html


Josh English wrote:

> This is a macro I found somewhere on this:
> #macro MakePlane(a,b,c)
>   #local n=vnormalize(vcross((b)-(a),(c)-(a)));
>   #local o=vdot((a),n);
>   plane {n,o pigment { onion} }
> #end
>
> #declare a = <-1,1,0>;
> #declare b = <1,0,-1>  ;
> #declare c = <2,0,1>;
> sphere { a 0.25 pigment { rgb <1,0,0> } }
> sphere { b 0.25 pigment { rgb <0,1,0> } }
> sphere { c 0.25 pigment { rgb <0,0,1> } }
>
> MakePlane(a,b,c)
>
> I know, too little, too late.
>
> Josh
>
> David Fontaine wrote:
>
> > --
> > ___     ______________________________________________________
> >  | \     |_                 <dav### [at] faricynet> <ICQ 55354965>
> >  |_/avid |ontaine               http://www.faricy.net/~davidf/
> >
> > "Sitting on a cornflake, waiting for the van to come" -Beatles
>
> --
> Josh English
> eng### [at] spiritonecom
> "May your hopes, dreams, and plans not be destroyed by a few zeros."

Post a reply to this message