Text Centering

Forum Attachments

Summary:

Kinda efficient display

Text Centering

L1k3awh15p3r 08 Feb 2014 19:20

So I've been working on trying to be able to center text perfectly, and I just realized I should make a program for it.

PROGRAM:TXTCENTR
:AxesOff
:CoordOff
:ExprOff
:0→Xmin:94→Xmax
:0→Ymin:62→Ymax
:ClrHome
:Input "Text:",Str1
:4length(Str1→A
:94-A→A
:Text(7,.5A,Str1

That's my algorithm and stuff. I want to make this as small and simple as possible so I can use it as a subprogram for my other programs, so if anyone can somehow squish this even small that would be really helpful.

Just wanted to share this.

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Re: Text Centering

Xeda Elnara 09 Feb 2014 15:36

Keep in mind that while most characters are 4 pixels wide, not all of them are. Some are 1 pixel, 2 pixels, or 6 pixels wide. That said, I don't see much need for setting up window coordinates or using the A value. Toothless the Dragon's code is close to what I would do, but I would simplify it a little more and check to make sure it is in bounds with a max() command:

Text(7,max(0,47-2length(Str1)),Str1

If you want to be sure of how wide the string is in pixels, there is an assembly routine here (until more routines get added, altering the ID number). Alternatively, a BASIC program can be made to do the same thing, but it will be larger than what you currently have and checking for tokens like "sin(" will be a pain.

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Text Centering

Toothless the Dragon 09 Feb 2014 02:43

Sure can, one sec.

:4length(Str1→A
:94-A→A
:Text(7,.5A,Str1

First, you can combine the first two lines together.

:94-(4length(Str1→A

Second, you don't have to really use a variable because of the wonderful and magic Ans.

:94-(4length(Str1
:Text(7,.5Ans,Str1

Same for setting the graph screen.

:0→Xmin:94→Xmax
:0→Ymin:62→Ymax

A bit more optional, but it adds a tad of speed using Ans instead of 0.

:0→Xmin:Ans→Ymin
:94→Xmax:62→Ymax

As for your algorithm, I'll take your word for it that it works. You can probably add a DelVar Str1 at the end if you want it to leave no trace.

Re: Text Centering

MasterChief2552 09 Feb 2014 10:24

Are you sure that getting the Ans value is faster than getting just a 0?
So, I think this

:0→Xmin:94→Xmax
:0→Ymin:62→Ymax

is better than this:

:0→Xmin:Ans→Ymin
:94→Xmax:62→Ymax

Recording to size(bytes) it is still the same…

---

Wake me, when you need me.

Last edited on 09 Feb 2014 10:24 by MasterChief2552 Show more

wowaname (guest) 01 Dec 2014 00:28

Ans is faster than Real vars but it is not faster than a constant. By the way, this does the same thing and saves two bytes in the program:

0→Xmin:1→ΔX
0→Ymin:1→ΔY