]> git.sur5r.net Git - cc65/blob - libsrc/tgi/tgi_gettextheight.s
Fixed _textcolor definition.
[cc65] / libsrc / tgi / tgi_gettextheight.s
1 ;
2 ; Ullrich von Bassewitz, 2009-10-30
3 ;
4
5
6         .include        "tgi-kernel.inc"
7         .include        "tgi-vectorfont.inc"
8         .include        "zeropage.inc"
9
10
11 ;-----------------------------------------------------------------------------
12 ; unsigned __fastcall__ tgi_gettextheight (const char* s);
13 ; /* Calculate the height of the text in pixels according to the current text
14 ; ** style.
15 ; */
16 ;
17
18 .proc   _tgi_gettextheight        
19
20         ldy     _tgi_font
21         bne     @L2                     ; Jump if vector font
22
23 ; Return the height for the bitmap font
24
25         lda     _tgi_charheight
26         ldx     #0
27 @L1:    rts
28
29 ; Return the height for the vector font
30
31 @L2:    lda     _tgi_vectorfont
32         tax
33         ora     _tgi_vectorfont+1
34         beq     @L1                     ; Return zero if no font
35
36         stx     ptr1
37         lda     _tgi_vectorfont+1
38         sta     ptr1+1
39         ldy     #TGI_VECTORFONT::HEIGHT
40         lda     (ptr1),y                ; Get height of font
41
42         sta     ptr1
43         lda     #0
44         sta     ptr1+1                  ; Save base height in ptr1
45
46         lda     _tgi_textscaleh
47         ldx     _tgi_textscaleh+1       ; Get scale factor ...
48         jmp     tgi_imulround           ; ... and return scaled result
49
50 .endproc
51
52