usePocketペン立て

openSCADでデザインした文字ペン立てです。 ↓下記のコードで作りました。 font="Arial Black"; letter_size = 14; letter_height = 5; module letter(l) { linear_extrude(height = letter_height) { text(l, size = letter_size, font = font, halign = "center", valign = "center", $fn = 16); } } word=["U","S","E","P","O","C","K","E","T"]; wordlength=9; for(j=[0:(letter_size+1):100]){ for (i=[0:letter_size:360]){ translate ([cos(i+j*letter_size)*50,sin(i+j*letter_size)*50,j]){ rotate([90,0,i+j*letter_size+90]) { letter(word[(i/14)%wordlength]); } }; } } translate([0,0,-11]){cylinder(h=5,r1=55,r2=55);} for(j=[7.5:(letter_size+1):106]){ translate([00,0,j]){ difference(){ cylinder(h=2,r1=55,r2=55,center=true); cylinder(h=10,r1=50,r2=50,center=true); } } }