Love heart jewelry I: 3D printing of parametric region

Staff Picks
, , , , , , ,
1

ScreenShot2020-12-19at3.59.46PM.jpg
ScreenShot2020-12-19at3.59.46PM.jpg1000×494 162 KB

Open in Wolfram Cloud ↗

myHeart_V6.stl (5.64 MB)

22 Likes
2

news-congrads-kkluyshnik-02-04-19.jpg – you have earned Featured Contributor Badge 2015-11-02_10-07-11.png
Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

3

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

1 Like
4

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?

5

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]

ring.jpg
ring.jpg627×627 62.6 KB

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.

https://i.materialise.com/blog/en/3d-printed-jewelry/

https://envisiontec.com/3d-printing-industries/professional/jewelry/

https://pick3dprinter.com/3d-printing-jewelry-service/

2 Likes
6

That’s very helpful Frederick.

Thanks for a great presentation!

7

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.

1 Like
8

Hi Frederick,

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

ringRegion = 
 TransformedRegion[
  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?

9

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.

10

Thanks once again Frederick!

Hope to see more posts from you in future…

Jonathan

11

Admins, if this posting is not appropriate by Wolfram Community standards please advise and delete.

Hi Frederick, Can’t see how to contact you via the Wolfram Community, would like to contact you about how I’ve used your heart design, tried on LinkedIn didn’t find you, you are welcome to join me on LinkedIn at https://www.linkedin.com/in/drdarrenkelly.

12

Hi Kelly,

You can contact me by email: wu_fei_1978@163.com,
or we can disuss your issue in Wolfram Community.