MathGroup Archive 1999

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: 3D Projection

  • To: mathgroup at smc.vnet.net
  • Subject: [mg19746] Re: 3D Projection
  • From: adam.smith at hillsdale.edu
  • Date: Wed, 15 Sep 1999 03:53:01 -0400
  • References: <7ri605$8it@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

In article <7ri605$8it at smc.vnet.net>,
  Daniel Kolb <daniel_kolb at gmx.de> wrote:
> Hi
> I don't know if this is the right place for this question.
> I'm searching for a formula for 3D central-projection
> thanx
>
>
I am not sure if this is what you want.  But the following
code "projects" a function of 3 dimensions onot the corresponding
planes.

Notes:

1.  I apply the option EdgeForm[] to eliminate the grid lines.  They
seem to clutter up the plot.  Especially for large values of PlotPoints.
2.  Picking larger values for PlotPoints reduces the graininess of the
resulting plot, but of course requires more processing time and memory.



Adam Smith

-----------------------------------------------------------------
In[1]:=
<<Graphics`

In[2]:=
m = 1;
n = 2;
p = 3;
thing = ParametricPlot3D[ {
	{t,u,0,{EdgeForm[],Hue[ (1-Sin[m Pi t] Sin[n Pi u])/2]}},
	{0,t,u,{EdgeForm[],Hue[ (1-Sin[n Pi t] Sin[p Pi u])/2]}},
	{t,0,u,{EdgeForm[],Hue[ (1-Sin[m Pi t] Sin[p Pi u])/2]}}   },
	{t,0,1},{u,0,1},
	Lighting->False,PlotPoints->25,AxesLabel->{x,y,z},
    ViewPoint->{2.013, 1.731, 1.356},AxesEdge\[Rule]{{-1,1},{-1,1},{-
1,1}},
    DisplayFunction->$DisplayFunction];



Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.


  • Prev by Date: Re: Re: RealTime3D in v4.0
  • Next by Date: RE: RGB color cube & HLS color cone
  • Previous by thread: 3D Projection
  • Next by thread: Re: 3D Projection