text on shpere
Hello! I'm looking for a method that allows you to stretch long text
on a spherical surface and not render (F6) for an infinite time and at
the end it doesn't say "No top level geometry". I also tried this:
[code]
use <inc/bauer_spiral.scad>
txt = " Bármit megígérünk! Az Élet szép! Az Élet szép és Te is!
Legyen minden jobb! Ne kelljen dolgozni, de legyen pénz! Marilizáljuk
a legahuánát! Örök élet +20 év! Örök élet, ingyen sör, adócsökkentés!
Több mindent, kevesebb semmit! Választóink 100%-a ránk szavaz! 93%,
hogy nem fogunk lopni! Olyan aranyos, biztos nem akar lopni! Ellazul,
mélyen a szemembe néz, ránk szavaz!";
radius = 50;
font_name = "Curier New:style=Bold";
font_size = 7;
txt_extrude = radius * 1.5;
txt_scale = 1.5;
ball = true;
$fn = 96;
scale(.2)
bauer_text_sphere(radius, font_name, font_size, txt_extrude, txt_scale, ball);
module bauer_text_sphere(radius, font_name, font_size, txt_extrude,
txt_scale, ball) {
n = len(txt);
pts = bauer_spiral(n, radius);
if(ball) {
sphere(radius * .98);
}
/*
Based on Bauer's spiral:
*/
for(i = [0:n - 1]) {
x = pts[i].x;
y = pts[i].y;
z = pts[i].z;
ya = atan2(z, norm([x, y]));
za = atan2(y, x);
render()
translate(pts[i])
rotate([0, -ya, za])
rotate([90, 0, -90])
linear_extrude(txt_extrude, scale = txt_scale, convexity=15)
mirror([-1, 0, 0])
text(txt[i], size = font_size, font = font_name, valign =
"baseline", halign = "center");
}
}
[/code]
Thanks in advance for the answers!
--
Üdvözlettel,
Magyar Gábor
Curier should Courier.
Where can I get the bauer_spiral.scad file?
Dave.
From: Gábor Magyar gmagyar6@gmail.com
Sent: Saturday, July 22, 2023 2:15 AM
To: OpenSCAD general discussion Mailing-list discuss@lists.openscad.org
Subject: [OpenSCAD] text on shpere
Hello! I'm looking for a method that allows you to stretch long text
on a spherical surface and not render (F6) for an infinite time and at
the end it doesn't say "No top level geometry". I also tried this:
[code]
use <inc/bauer_spiral.scad>
txt = " Bármit megígérünk! Az Élet szép! Az Élet szép és Te is!
Legyen minden jobb! Ne kelljen dolgozni, de legyen pénz! Marilizáljuk
a legahuánát! Örök élet +20 év! Örök élet, ingyen sör, adócsökkentés!
Több mindent, kevesebb semmit! Választóink 100%-a ránk szavaz! 93%,
hogy nem fogunk lopni! Olyan aranyos, biztos nem akar lopni! Ellazul,
mélyen a szemembe néz, ránk szavaz!";
radius = 50;
font_name = "Curier New:style=Bold";
font_size = 7;
txt_extrude = radius * 1.5;
txt_scale = 1.5;
ball = true;
$fn = 96;
scale(.2)
bauer_text_sphere(radius, font_name, font_size, txt_extrude, txt_scale, ball);
module bauer_text_sphere(radius, font_name, font_size, txt_extrude,
txt_scale, ball) {
n = len(txt);
pts = bauer_spiral(n, radius);
if(ball) {
sphere(radius * .98);
}
/*
Based on Bauer's spiral:
*/
for(i = [0:n - 1]) {
x = pts[i].x;
y = pts[i].y;
z = pts[i].z;
ya = atan2(z, norm([x, y]));
za = atan2(y, x);
render()
translate(pts[i])
rotate([0, -ya, za])
rotate([90, 0, -90])
linear_extrude(txt_extrude, scale = txt_scale, convexity=15)
mirror([-1, 0, 0])
text(txt[i], size = font_size, font = font_name, valign =
"baseline", halign = "center");
}
}
[/code]
Thanks in advance for the answers!
--
Üdvözlettel,
Magyar Gábor
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org
Ouch! Really!
But, with the derfauét font it creates it!
I really don't know, but here you are.
David Marshall dmarshall@trentu.ca ezt írta (időpont: 2023. júl.
22., Szo, 21:40):
Curier should Courier.
Where can I get the bauer_spiral.scad file?
Dave.
From: Gábor Magyar gmagyar6@gmail.com
Sent: Saturday, July 22, 2023 2:15 AM
To: OpenSCAD general discussion Mailing-list discuss@lists.openscad.org
Subject: [OpenSCAD] text on shpere
Hello! I'm looking for a method that allows you to stretch long text
on a spherical surface and not render (F6) for an infinite time and at
the end it doesn't say "No top level geometry". I also tried this:
[code]
use <inc/bauer_spiral.scad>
txt = " Bármit megígérünk! Az Élet szép! Az Élet szép és Te is!
Legyen minden jobb! Ne kelljen dolgozni, de legyen pénz! Marilizáljuk
a legahuánát! Örök élet +20 év! Örök élet, ingyen sör, adócsökkentés!
Több mindent, kevesebb semmit! Választóink 100%-a ránk szavaz! 93%,
hogy nem fogunk lopni! Olyan aranyos, biztos nem akar lopni! Ellazul,
mélyen a szemembe néz, ránk szavaz!";
radius = 50;
font_name = "Curier New:style=Bold";
font_size = 7;
txt_extrude = radius * 1.5;
txt_scale = 1.5;
ball = true;
$fn = 96;
scale(.2)
bauer_text_sphere(radius, font_name, font_size, txt_extrude, txt_scale, ball);
module bauer_text_sphere(radius, font_name, font_size, txt_extrude,
txt_scale, ball) {
n = len(txt);
pts = bauer_spiral(n, radius);
if(ball) {
sphere(radius * .98);
}
/*
Based on Bauer's spiral:
*/
for(i = [0:n - 1]) {
x = pts[i].x;
y = pts[i].y;
z = pts[i].z;
ya = atan2(z, norm([x, y]));
za = atan2(y, x);
render()
translate(pts[i])
rotate([0, -ya, za])
rotate([90, 0, -90])
linear_extrude(txt_extrude, scale = txt_scale, convexity=15)
mirror([-1, 0, 0])
text(txt[i], size = font_size, font = font_name, valign =
"baseline", halign = "center");
}
}
[/code]
Thanks in advance for the answers!
--
Üdvözlettel,
Magyar Gábor
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org
I could get it to render with this in the text:
1 character 18 seconds
11 characters 4.5 minutes
15 char. 13 min
so it looks like rendering time is climbing exponentially
An N^2 type problem (? I can't remember)
But it did render in the end.
I put my library files in ..\OpenSCAD\libraries
so my "use" line is
use <bauer_spiral.scad>
Can't help with the speed - I'm an OpenSCAD "new bee". 🙂
From: Gábor Magyar gmagyar6@gmail.com
Sent: Saturday, July 22, 2023 4:56 PM
To: OpenSCAD general discussion Mailing-list discuss@lists.openscad.org
Subject: [OpenSCAD] Re: text on shpere
Ouch! Really!
But, with the derfauét font it creates it!
I really don't know, but here you are.
David Marshall dmarshall@trentu.ca ezt írta (időpont: 2023. júl.
22., Szo, 21:40):
Curier should Courier.
Where can I get the bauer_spiral.scad file?
Dave.
From: Gábor Magyar gmagyar6@gmail.com
Sent: Saturday, July 22, 2023 2:15 AM
To: OpenSCAD general discussion Mailing-list discuss@lists.openscad.org
Subject: [OpenSCAD] text on shpere
Hello! I'm looking for a method that allows you to stretch long text
on a spherical surface and not render (F6) for an infinite time and at
the end it doesn't say "No top level geometry". I also tried this:
[code]
use <inc/bauer_spiral.scad>
txt = " Bármit megígérünk! Az Élet szép! Az Élet szép és Te is!
Legyen minden jobb! Ne kelljen dolgozni, de legyen pénz! Marilizáljuk
a legahuánát! Örök élet +20 év! Örök élet, ingyen sör, adócsökkentés!
Több mindent, kevesebb semmit! Választóink 100%-a ránk szavaz! 93%,
hogy nem fogunk lopni! Olyan aranyos, biztos nem akar lopni! Ellazul,
mélyen a szemembe néz, ránk szavaz!";
radius = 50;
font_name = "Curier New:style=Bold";
font_size = 7;
txt_extrude = radius * 1.5;
txt_scale = 1.5;
ball = true;
$fn = 96;
scale(.2)
bauer_text_sphere(radius, font_name, font_size, txt_extrude, txt_scale, ball);
module bauer_text_sphere(radius, font_name, font_size, txt_extrude,
txt_scale, ball) {
n = len(txt);
pts = bauer_spiral(n, radius);
if(ball) {
sphere(radius * .98);
}
/*
Based on Bauer's spiral:
*/
for(i = [0:n - 1]) {
x = pts[i].x;
y = pts[i].y;
z = pts[i].z;
ya = atan2(z, norm([x, y]));
za = atan2(y, x);
render()
translate(pts[i])
rotate([0, -ya, za])
rotate([90, 0, -90])
linear_extrude(txt_extrude, scale = txt_scale, convexity=15)
mirror([-1, 0, 0])
text(txt[i], size = font_size, font = font_name, valign =
"baseline", halign = "center");
}
}
[/code]
Thanks in advance for the answers!
--
Üdvözlettel,
Magyar Gábor
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org
I don't really follow the problem here, but it sounds to me like it could
be solved using BOSL2 which has a path_text module that can put text on any
path, and will not take an eternity.
https://github.com/BelfrySCAD/BOSL2/wiki/shapes3d.scad#module-path_text
On Mon, Jul 24, 2023 at 11:47 AM David Marshall dmarshall@trentu.ca wrote:
I could get it to render with this in the text:
1 character 18 seconds
11 characters 4.5 minutes
15 char. 13 min
so it looks like rendering time is climbing exponentially
An N^2 type problem (? I can't remember)
But it did render in the end.
I put my library files in ..\OpenSCAD\libraries
so my "use" line is
use <bauer_spiral.scad>
Can't help with the speed - I'm an OpenSCAD "new bee". 🙂
From: Gábor Magyar gmagyar6@gmail.com
Sent: Saturday, July 22, 2023 4:56 PM
To: OpenSCAD general discussion Mailing-list <discuss@lists.openscad.org
Subject: [OpenSCAD] Re: text on shpere
Ouch! Really!
But, with the derfauét font it creates it!
I really don't know, but here you are.
David Marshall dmarshall@trentu.ca ezt írta (időpont: 2023. júl.
22., Szo, 21:40):
Curier should Courier.
Where can I get the bauer_spiral.scad file?
Dave.
From: Gábor Magyar gmagyar6@gmail.com
Sent: Saturday, July 22, 2023 2:15 AM
To: OpenSCAD general discussion Mailing-list <discuss@lists.openscad.org
Subject: [OpenSCAD] text on shpere
Hello! I'm looking for a method that allows you to stretch long text
on a spherical surface and not render (F6) for an infinite time and at
the end it doesn't say "No top level geometry". I also tried this:
[code]
use <inc/bauer_spiral.scad>
txt = " Bármit megígérünk! Az Élet szép! Az Élet szép és Te is!
Legyen minden jobb! Ne kelljen dolgozni, de legyen pénz! Marilizáljuk
a legahuánát! Örök élet +20 év! Örök élet, ingyen sör, adócsökkentés!
Több mindent, kevesebb semmit! Választóink 100%-a ránk szavaz! 93%,
hogy nem fogunk lopni! Olyan aranyos, biztos nem akar lopni! Ellazul,
mélyen a szemembe néz, ránk szavaz!";
radius = 50;
font_name = "Curier New:style=Bold";
font_size = 7;
txt_extrude = radius * 1.5;
txt_scale = 1.5;
ball = true;
$fn = 96;
scale(.2)
bauer_text_sphere(radius, font_name, font_size, txt_extrude, txt_scale,
ball);
module bauer_text_sphere(radius, font_name, font_size, txt_extrude,
txt_scale, ball) {
n = len(txt);
pts = bauer_spiral(n, radius);
if(ball) {
sphere(radius * .98);
}
/*
Based on Bauer's spiral:
*/
for(i = [0:n - 1]) {
x = pts[i].x;
y = pts[i].y;
z = pts[i].z;
ya = atan2(z, norm([x, y]));
za = atan2(y, x);
render()
translate(pts[i])
rotate([0, -ya, za])
rotate([90, 0, -90])
linear_extrude(txt_extrude, scale = txt_scale, convexity=15)
mirror([-1, 0, 0])
text(txt[i], size = font_size, font = font_name, valign =
"baseline", halign = "center");
}
}
[/code]
Thanks in advance for the answers!
--
Üdvözlettel,
Magyar Gábor
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org