discuss@lists.openscad.org

OpenSCAD general discussion Mailing-list

View all threads

text on shpere

GM
Gábor Magyar
Sat, Jul 22, 2023 6:15 AM

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

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
DM
David Marshall
Sat, Jul 22, 2023 7:39 PM

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

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
GM
Gábor Magyar
Sat, Jul 22, 2023 8:56 PM

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

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
DM
David Marshall
Mon, Jul 24, 2023 3:46 PM

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 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
AM
Adrian Mariano
Mon, Jul 24, 2023 9:15 PM

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

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 >