Renamed tgi_textheight -> tgi_gettextheight, tgi_textwidth -> tgi_gettextwidth

tgi_textstyle -> tgi_settextstyle and tgi_textscale -> tgi_settextscale. git-svn-id: svn://svn.cc65.org/cc65/trunk@5090 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-07-17 18:36:12 +00:00
parent 83d67e930a
commit 9c55586569
8 changed files with 35 additions and 34 deletions
--- a/libsrc/tgi/tgi_gettextheight.s
+++ b/libsrc/tgi/tgi_gettextheight.s
@@ -0,0 +1,52 @@
+;
+; Ullrich von Bassewitz, 2009-10-30
+;
+
+
+        .include        "tgi-kernel.inc"
+        .include        "tgi-vectorfont.inc"
+        .include        "zeropage.inc"
+
+
+;-----------------------------------------------------------------------------
+; unsigned __fastcall__ tgi_gettextheight (const char* s);
+; /* Calculate the height of the text in pixels according to the current text
+;  * style.
+;  */
+;
+
+.proc   _tgi_gettextheight        
+
+        ldy     _tgi_font
+        bne     @L2                     ; Jump if vector font
+
+; Return the height for the bitmap font
+
+        lda     _tgi_charheight
+        ldx     #0
+@L1:    rts
+
+; Return the height for the vector font
+
+@L2:    lda     _tgi_vectorfont
+        tax
+        ora     _tgi_vectorfont+1
+        beq     @L1                     ; Return zero if no font
+
+        stx     ptr1
+        lda     _tgi_vectorfont+1
+        sta     ptr1+1
+        ldy     #TGI_VECTORFONT::HEIGHT
+        lda     (ptr1),y                ; Get height of font
+
+        sta     ptr1
+        lda     #0
+        sta     ptr1+1                  ; Save base height in ptr1
+
+        lda     _tgi_textscaleh
+        ldx     _tgi_textscaleh+1       ; Get scale factor ...
+        jmp     tgi_imulround           ; ... and return scaled result
+
+.endproc
+
+