Message Boards Message Boards


Love heart jewelry I: 3D printing of parametric region

Posted 1 year ago
9 Replies
21 Total Likes

enter image description here

9 Replies

enter image description here -- you have earned Featured Contributor Badge enter image description here Your exceptional post has been selected for our editorial column Staff Picks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

Posted 1 year ago

Hello and thank you for posting your work on the Love Heart. What a wonderful gift for your wife, xx. I am an artist working in IT and found it fascinating that a wax casting could be created this way. I also make and collect heart jewellery and objects and your information was really valuable. Thanks again, Denise UK

Hi Frederick,

Very nice post! I have a couple of questions:

1) How did you create the loop for the chain and attach it to the heart structure?

2) Which 3D printing service did you use for your design?

Posted 1 year ago

Hi Jonathan,

Thank you for interesting my post. You can create a chain-ring with below steps.

  1. create an annulus in 3D as a chain-ring

         ring = With[{r1 = 0.4, r2 = 2},
              ParametricPlot3D[{(r2 + Cos[v]) r1 Sin[u], (r2 + Cos[v]) r1  Cos[u],
                 r1 Sin[v]},
               {u, 0, 2 Pi}, {v, 0, 2 Pi},
               MaxRecursion -> 3, PlotPoints -> 50]];
  2. Rotate, translate and scaling transform, if necessary.

    ringRotate = TransformedRegion[TransformedRegion[ring,
        RotationTransform[Pi/2, {1, 0, 0}]], 
       TranslationTransform[{0, 0, 0.5}]];
  3. Then Boolean union on your target region.

    union = RegionUnion[targetRegion, ringRotate]

enter image description here

I work with a 3D printing supplier in China, I am afraid, they will be no sourcing advantage for your prototype with considerable shipping cost and customs tax. However, I found a few printing services in U.S. for you to pick.

That's very helpful Frederick.

Thanks for a great presentation!

Congratulations! Your post was highlighted on the Wolfram's official social media channels. Thank you for your contribution. We are looking forward to your future posts.

Hi Frederick,

I am still struggling to replicate your rather lovely design. I created a ring region as you suggested:

ringRegion = 
  TransformedRegion[ringregion, RotationTransform[Pi/2, {1, 0, 0}]], 
  TranslationTransform[{0, 0, 0.5}]]

and then RegionUnion should mesh the two stl images together:

union = RegionUnion[heartRegion, ringRegion]

But, in fact, in Mathematica V12.3, the output appears to be identical to the original heartRegion.

Any idea what the issue could be?

Posted 7 months ago

Hi Jonathan,

Thank you for your interesting for my heart design. In the case, Wolfram Mathematica doesn't work with RegionUnion, You can use Materielise Magics or other software to do region Boolean calculation.

I attached the heart with a ring in STL file format ( at top ) for your reference.

Thanks once again Frederick!

Hope to see more posts from you in future...


Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
or Discard

Group Abstract Group Abstract