Re: from a 2d-figure to an interactive 3d model? is it possible with mathematica?

*To*: mathgroup at smc.vnet.net*Subject*: [mg126237] Re: from a 2d-figure to an interactive 3d model? is it possible with mathematica?*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Thu, 26 Apr 2012 05:30:39 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

Use Manipulate. Here is a partial example : Manipulate[ Module[ {tan, ll, lr, ur, r, pt, t}, tan = Tan[30 Degree]; ll = {-w/2, -d/2}; lr = {w/2, -d/2}; ur = {w/2, d/2}; r = Sqrt[(20 + d/2)^2 + (w/2)^2]; pt = {x, y} /. FindRoot[ {tan == (x - w/2)/(y - d/2), x^2 + y^2 == r^2}, {x, 12}, {y, 20}]; t = ArcTan @@ Reverse[pt]; Graphics[ {Thin, Circle[{0, 0}, 7], Line[{{-7, -4}, {-7, 4}}], Circle[{0, 0}, r, -90 Degree + {-t, t}], {AbsoluteDashing[{6, 6, 72, 6}], Line[{{0, 9}, {0, -22 - d/2}}]}, {White, EdgeForm[Thick], Rectangle[ll, ur]}, {AbsoluteDashing[{8, 4}], Table[Line[lr + # & /@ {{0, 0}, {0, -x}, {x*tan, -x}, {0, 0}}], {x, 10, 20, 5}], Line[{ll, -pt}]}, Text["High- \ntemperature zone", {-4.5, 4}, {-1, 0}], Text["B=0.5774*A\nC=1.1547*A", {8, 3.5}, {-1, 0}], Text["SI units: 1 in = 25.4 mm; 1 ft = 0.31 m", {-w/2 - 15*tan, -23 - d/2}, {-1, 0}], Text["B\n5ft 9-5/16in", {w/2 + 5*tan, -10 - d/2}], Text["B\n8ft 7-7/8in", {w/2 + 7.5*tan, -15 - d/2}], Text["B\n11ft 6-11/16in", {w/2 + 10*tan, -20 - d/2}], Text["Intermediate-temperature\nzone", {-w/4 - 7.5*tan, -r*Cos[t]}], Text["Airflow", {-5*Tan[t], -9.5 - d/2}], Arrow[{{-5*Tan[t], -10 - d/2}, {-5*Tan[t], -13 - d/2}}]}]], {{w, 4., "Rectangle\nWidth (ft)"}, 1, 10, .01, Appearance -> "Labeled"}, {{d, 2., "Rectangle\nDepth (ft)"}, 1, 10, .01, Appearance -> "Labeled"}] Bob Hanlon On Wed, Apr 25, 2012 at 12:34 AM, luke wallace <lukewallace1990 at gmail.com> wrote: > http://postimage.org/image/jr35rwdel/ > > the image above represents spacing rules for engineer stuff. if you > look at it you will see the spacing can be summarized as: > > 1. 7 foot radius circle drawn around the center point of the > rectangle. This never changes no matter what the dimensions of the > rectangle. So we can ignore this. > > 2. On the south side of the rectangle, starting at the left and right > corners, a 30 degree line is drawn (making a triangle ABC). Once the > line reaches the 7 foot radius circle, it only goes 13 foot past it > and then curves like a partial circle, keeping 20 feet maximum > distance away from the center of the rectangle at all times. This > changes if the rectangle size is manipulated. > > What I need is a way to put this into mathematica or some other > program so I can make it interactive and say, okay my rectangle is 2 > foot long and 1 foot wide. Then the drawing would update and show what > it looks like with that size rectangle, and then if someone needed the > rectangle needs to be 3 foot long and 1.5 foot wide, it would auto > update again without having to manually re-calculate by hand each > time? >