module Haak (R) { for (i=[0,1]) mirror ([0,i,0]) translate ([0,35,0]) { rotate ([90,0,0]) translate ([0,0,-1]) linear_extrude (height=2,convexity=10) difference() { union() { circle (5); translate ([R,0]) circle (5); translate ([R+2.5,-6]) square ([2.5,6]); translate ([0,-3]) square ([R,6]); }; // einde union circle (2.5); translate ([R,0]) circle (2.5); polygon ([[R-3.5,0],[R+2.5,0],[R+3,-11],[R-3,-11]]); }; // einde difference translate ([0,1,-1]) linear_extrude (height=1,convexity=10) polygon ([[6,0],[12,1],[R-18,1],[R-12,0]]); translate ([-2.5,0,0]) rotate ([-90,0,0]) rotate_extrude (angle=7,convexity=10) translate ([R-2,-1,0]) square ([2,2]); }; // einde mirror-translate }; // einde module Haak $fn=128; rotate ([0,-$t*20,0]) Haak (50); // witte as translate ([0,-40,0]) rotate ([-90,0,0]) cylinder (80,2.5,2.5); // rode as color ("red") translate ([50,-40,0]) rotate ([-90,0,0]) cylinder (80,2.5,2.5); // Kies View - Animate // Steps = 20 // FPS = 10