Curvy Text
» >
»
» View previous topic :: View next topic  





Curvy Text allows you to warp text according to a curve you specify. Enjoy!

BASIC Code wrote:
:Input "TEXT: ",Str1
:"/→Str2
:Text(0,0,Str1
:length(Str1→L
:For(I,0,4L
:For(J,0,5
:If pxl-Test(J,I
:Then
:Str2+"1→Str2
:Else
:Str2+"0→Str2
:End
:End
:End
:sub(Str2,2,length(Str2)-1→Str2
:Input "CURVE:(Y=): ",Str1
:Str►Equ(Str1,Y1
:FnOff
:Input "START X: ",A
:Input "END X: ",B
:1→I
:For(W,A,B,abs(A-B)/(4L
:sub(Str2,I,6→Str3
:I+6→I
:‾nDeriv(Y1,X,W→M
:For(J,1,length(Str3
:W→X
:If "1"=sub(Str3,J,1
:Pt-On(W+M(7-J)(Xmax-Xmin)/94,Y1+(7-J)(YMax-Ymin)/62
:End
:End
Generated by SourceCoder, © 2005 Cemetech
! Awesome idea, Jon, and nicely executed. Good coding.
Thankee. Perhaps I should make an "API" version so you can call it from other programs?
Mos' def. Y'know, this reminds me of the PS CS text distortion menu.
Definitely cool. Smile
KermMartian wrote:
Mos' def. Y'know, this reminds me of the PS CS text distortion menu.
Heh, yeah, I'm pretty pleased with the results. The only problem is that the text gets wayyyyyyyy stretched out if the curve approaches anything resembling a vertical line, but I'm not sure if there's a solution that would be worth the amount of code it would take to fix.
That's sounds normal to me, not like a problem... ?
Oh yes, it's normal and it's how the algorithm works, but try putting some text on y=1/x starting at x = 0.1 or so and you'll see what I mean. Wink
Laughing Well Kerm, it seems that there are now forum spam bots here.



I thought guest posting wasn't allowed here
I am the eye of the river
>(<')


Wow, bots are getting clever.
I somehow forgot to disable guest in a few of the forums. Sad
The new posts page needs to be cleaned up too.
I need to learn Greek...
It turned out to be the BASIC 1337 member forums - whoever created them didn't perm them. Sad
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Curvy Text
»
» View previous topic :: View next topic  
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement