Re: Graphics3D

• To: mathgroup at smc.vnet.net
• Subject: [mg5421] Re: Graphics3D
• Date: Sat, 7 Dec 1996 00:25:50 -0500
• Organization: Institute for Biomedical Engineering at the FAU Erlangen
• Sender: owner-wri-mathgroup at wolfram.com

```Rick Tschudin wrote:
>
> I defined 4 Points , created a List of them and used Show to display
> them. This worked nicely. Then I defined 3 Lines, created a list of
> lines and tried to use Show to display them.  Can anyone tell me why
> this failed and how to succeed. Thanks for your time.
>
>         AAP = Point[{5.66, 18.33, -5.66}];
>         BBP = Point[{8, 17.5, 0}];
>         CCP = Point[{6.36, 17, 6.36}];
>         DDP = Point[{0, 16.75, 9.75}];
>         pts1 = {AAP,BBP,CCP,DDP};
>
>         Show[ Graphics3D[List[pts1]]]
>
>         AAPBBP = Line[{{AAP},{BBP}}];
>         BBPCCP = Line[{{BBP},{CCP}}];
>         CCPDDP = Line[{{CCP},{DDP}}];
>
>         lns1 = {AAPBBP,BBPCCP,CCPDDP};
>
>         Show[ Graphics3D[Line[lns1]]]
>
>         Graphics3D::nlist3:
>            Line[{{Point[{-1.18, 27.5, -1.18}]}, {Point[<<1>>]}}]
>              is not a list of three numbers.
Hi Rick!
The error message pointed it out: Line[] expects a list of three
Numbers.
How to work around:

AAP = {5.66, 18.33, -5.66}; (*only the coordinates*)
BBP = {8, 17.5, 0};
CCP = {6.36, 17, 6.36};
DDP = {0, 16.75, 9.75};
pts1 = Map[Point,{AAP,BBP,CCP,DDP}]; (*wraps Point[] around each
member*)

To draw the lines:

AAPBBP = Line[{AAP,BBP}];
BBPCCP = Line[{BBP,CCP}];
CCPDDP = Line[{CCP,DDP}];

lns1 = {AAPBBP,BBPCCP,CCPDDP};
(* or in this case only one line code is enough: lnsl
=Line[aap,bbp,ccp,ddp]; *)
Show all:

Show[ Graphics3D[{pts1,lns1}]];

I hope this will work 'cause I didn't try it in MMA.

--