Jump to content

HLO projects

  • entries
    42
  • comments
    31
  • views
    13,068

six color fonts using XB256 in TI99 XB

Sign in to follow this  
hloberg

80 views

6COLORFONT.thumb.jpg.626b29833ac025275e350a1f80a6d4c4.jpg

 

just messed around with a new feature @senior_falcon  put in XB256, the ability to display multicolored fonts easily and quickly.  and I got it to SIX full alpha font set colors. the TI99 now has an easy way to display up to 6 different alpha fonts on the same screen!

way it works is you can type the the characters you want from the color character set directly with the offset CALL LOAD(9596,xxx). this enables you to just type the letters you want to display in this fashion:

CALL LOAD(9596,(offset for chr set)):: CALL LINK("DISPLY",4,1,"TEXT goes HERE")

this opens up using six different color characters per program. also can redefine the characters. could make a map typing in simple characters to display complex redesigned  map characters. mix and match upper and lower case. lots of uses. 

 

get the latest copy of XB256 in this thread:

_________________________________________________________________________

here is a reference guide and a copy of the demo.

 

USE WITH XB256


Moves the character sets:

10 CALL LINK("SCRN2")
20 CALL LINK("VREAD",5376,255,P$)
30 FOR I=4096 TO 4608 STEP 256 :: CALL LINK("VWRITE",I,P$):: NEXT I
40 CALL LINK("VWRITE",5376+256,P$):: CALL LINK("VWRITE",5376+512,P$)

 

Character Set Definition:

Char Set 1 - Normal char set
CALL LOAD(9596,192)
Includes Numbers & special character
COLOR SET 02-08
Only Char Set 1 has numbers

 

NOTE: these next ones you would want to redefine ^ (or some chr in set) as space since inserting a space will give a different color from color set 1.

 

Char Set 2 - Lower case char set
Type lower case character set.
COLOR SET 09-12
 

Char Set 3
CALL LOAD(9596,192)
COLOR SET 13-16

 

Char Set 4
CALL LOAD(9596,416)
COLOR SET 17-20

 

Char Set 5
CALL LOAD(9596,224)
COLOR SET 21-24

 

Char Set 6
CALL LOAD(9596,0)
COLOR SET 25-28

 

 

Example program:
10 ! MCFTEST2
12 CALL LINK("SCRN2")::! THIS SETS UP SCR22N 2 IN XB356
14 CALL LINK("VREAD",5376,255,P$)::! COPY IN STANDARD TI99 CHR SET
20 FOR I=4096 TO 4608 STEP 256 :: CALL LINK("VWRITE",I,P$):: NEXT I::! COPY OUT CHR SET TO NEW LOCATIONS
22 CALL LINK("VWRITE",5376+256,P$):: CALL LINK("VWRITE",5376+512,P$)

24 !SET COLOR OF CHR SETS:CS=1ST COLOR SET, F=FOREGROUND COLOR, B=BACKGROUND COLOR

25 CS=17 :: F=4 :: B=16 :: GOSUB 1000
26 CS=21 :: F=2 :: B=14 :: GOSUB 1000
27 CS=25 :: F=9 :: B=12 :: GOSUB 1000
29 CS=13 :: F=7 :: B=11 :: GOSUB 1000 :: CS=09 :: F=10 :: B=1 :: GOSUB 1000
30 FOR I=0 TO 255 :: PRINT CHR$(I);:: NEXT I ::!PRINT ALL CHRS
32 CALL LOAD(9596,192):: CALL LINK("DISPLY",1,1,"ATTENTION^TI^ENTHUSIASTS")::!PRINT TEXT WITH OFFSET
33 CALL LOAD(9596,416):: CALL LINK("DISPLY",2,1,"YOU^CAN^DISPLAY^TEXT^IN")
34 CALL LOAD(9596,0):: CALL LINK("DISPLY",3,1,"DIFFERENT^COLORS")
35 CALL LOAD(9596,96):: CALL LINK("DISPLY",4,1,"USING XB256 IN SCREEN2")
36 CALL LINK("DISPLY",5,1,"with lots of colors")
38 CALL LOAD(9596,224):: CALL LINK("DISPLY",6,1,"UP^TO^SIX^COLOR^SETS")
40 GOTO 40
1000 FOR I=0 TO 3 :: CALL LINK("COLOR2",CS+I,F,B):: NEXT I :: RETURN::! THIS SETS COLORS IN COLOR SET

 

 

 

 

Sign in to follow this  


0 Comments


Recommended Comments

There are no comments to display.

Guest
Add a comment...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...