Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: Problems updating Graphics3D Polygons

  • To: mathgroup at smc.vnet.net
  • Subject: [mg77651] Re: Problems updating Graphics3D Polygons
  • From: chuck009 <dmilioto at comcast.com>
  • Date: Thu, 14 Jun 2007 05:33:03 -0400 (EDT)

Hey guys.  I did make progress with this by coding:

UpdatePoints[factor_][p_] := Block[{x, y, z},
      {x, y, z} = p;
      z *= factor;
      Return[{x, y, z}];
      ];

ScaleZ[graphics_, factor_] := Module[{g2}, g2 = graphics /.Polygon[pts_] :> Polygon[UpdatePoints[factor] /@ pts];
      Return[g2];
      ];

Perhaps though someone can suggest a more elegant "one-liner"


  • Prev by Date: Re: Axis missing from simple ListPlot
  • Next by Date: what is the latest version? how can i verify that I have the latest one?
  • Previous by thread: Problems updating Graphics3D Polygons
  • Next by thread: Re: Problems updating Graphics3D Polygons