'---------------------------------------------------------------------------------------- ' Name: T6963_Spec_Char_001.TIG ' Type: Tiger-BASIC Source Code ' Purpose: Shows how to generate a special character set on a graphical LCD ' ' (C) - Copyright Wilke Technology, P.O.Box 1727, D-52018 Aachen, Germany '---------------------------------------------------------------------------------------- ' ' Thank you for using BASIC Tigers in your products. If you have questions, ideas ' or special needs, please contact your next distributor or the Tiger support team ' and visit our web site: ' ' Wilke Technology GmbH ' The Tiger Support Team ' P.O.Box 1727, D-52018 Aachen, Germany ' Krefelder Str. 147, D-52070 Aachen, Germany ' ' email: support@wilke-technology.com (english) ' email: support@wilke.de (german) ' Phone: +49 (241) 918 900 Mo to Fr, 7:00 to 16:00 (GMT) ' Fax: +49 (241) 918 9068 ' ' New information, new drivers and free downloads see: ' ' www.wilke-technology.com (english) ' www.wilke.de (german) ' ' Sincerely, ' ' Your Tiger Support Team ' '---------------------------------------------------------------------------------------- ' ' This program was compiled with Tiger-BASIC 5.01n and TAC System 1.13k ' or later. This demo runs directly on the Graphic Toolkit or the Graphic Demo Kit. ' ' NOTE: The special character set is only supported for 240x128 pixel displays with ' the 8x8 pixel font selected. ' '---------------------------------------------------------------------------------------- USER_VAR_STRICT ' variables must be declared #INCLUDE DEFINE_A.INC ' general definitions #INCLUDE LCD_4.INC ' definitions for LCD type 4 #INCLUDE GR_TK1.INC ' definitions for Graphic Toolkit STRING SPCHR$(1k) ' String for special charset definition TASK MAIN ' begin task MAIN BYTE X ' for loop counter CALL Init_LCDpins ' initialise LCD pins ' LCD-4=240x128, 150 KB/s INSTALL_DEVICE #1,"LCD-6963.TDD",0,0,0EEH,LCD_TYPE,150,11H SPCHR$ = "& ' define special character set 00 00 00 00 00 00 00 00& ' #032 / 04 04 04 04 00 00 04 00& ' #033 ! 0A 0A 0A 00 00 00 00 00& ' #034 " 0A 0A 1F 0A 1F 0A 0A 00& ' #035 # 04 0F 14 0E 05 1E 04 00& ' #036 $ 18 19 02 04 08 13 03 00& ' #037 % 0C 12 14 08 15 12 0D 00& ' #038 & 0C 04 08 00 00 00 00 00& ' #039 ' 02 04 08 08 08 04 02 00& ' #040 ( 08 04 02 02 02 04 08 00& ' #041 ) 00 04 15 0E 15 04 00 00& ' #042 * 00 04 04 1F 04 04 00 00& ' #043 + 00 00 00 00 0C 04 08 00& ' #044 , 00 00 00 1F 00 00 00 00& ' #045 - 00 00 00 00 00 0C 0C 00& ' #046 . 00 01 02 04 08 10 00 00& ' #047 / 0E 11 13 15 19 11 0E 00& ' #048 0 04 0C 04 04 04 04 0E 00& ' #049 1 0E 11 01 02 04 08 1F 00& ' #050 2 1F 02 04 02 01 11 0E 00& ' #051 3 02 06 0A 12 1F 02 02 00& ' #052 4 1F 10 1E 01 01 11 0E 00& ' #053 5 06 08 10 1E 11 11 0E 00& ' #054 6 1F 01 02 04 04 04 04 00& ' #055 7 0E 11 11 0E 11 11 0E 00& ' #056 8 0E 11 11 0F 01 02 0C 00& ' #057 9 00 0C 0C 00 0C 0C 00 00& ' #058 : 00 0C 0C 00 0C 04 08 00& ' #059 ; 02 04 08 10 08 04 02 00& ' #060 < 00 00 1F 00 1F 00 00 00& ' #061 = 08 04 02 01 02 04 08 00& ' #062 > 0E 11 01 02 04 00 04 00& ' #063 ? 0E 11 01 0D 15 15 0E 00& ' #064 @ 0E 11 11 11 1F 11 11 00& ' #065 A 1E 09 09 0E 09 09 1E 00& ' #066 B 0E 11 10 10 10 11 0E 00& ' #067 C 1E 09 09 09 09 09 1E 00& ' #068 D 1F 10 10 1E 10 10 1F 00& ' #069 E 1F 10 10 1E 10 10 10 00& ' #070 F 0E 11 10 13 11 11 0F 00& ' #071 G 11 11 11 1F 11 11 11 00& ' #072 H 0E 04 04 04 04 04 0E 00& ' #073 I 07 02 02 02 02 12 0C 00& ' #074 J 11 12 14 18 14 12 11 00& ' #075 K 10 10 10 10 10 10 1F 00& ' #076 L 11 1B 15 15 11 11 11 00& ' #077 M 11 19 19 15 13 13 11 00& ' #078 N 0E 11 11 11 11 11 0E 00& ' #079 O 1E 11 11 1E 10 10 10 00& ' #080 P 0E 11 11 11 15 12 0D 00& ' #081 Q 1E 11 11 1E 14 12 11 00& ' #082 R 0E 11 10 0E 01 11 0E 00& ' #083 S 1F 04 04 04 04 04 04 00& ' #084 T 11 11 11 11 11 11 0E 00& ' #085 U 11 11 11 11 11 0A 04 00& ' #086 V 11 11 11 15 15 1B 11 00& ' #087 W 11 11 0A 04 0A 11 11 00& ' #088 X 11 11 11 0A 04 04 04 00& ' #089 Y 1F 01 02 04 08 10 1F 00& ' #090 Z 0E 08 08 08 08 08 0E 00& ' #091 [ 00 10 08 04 02 01 00 00& ' #092 \ 0E 02 02 02 02 02 0E 00& ' #093 ] 04 0A 11 00 00 00 00 00& ' #094 ^ 00 00 00 00 00 00 1F 00& ' #095 _ 10 08 04 00 00 00 00 00& ' #096 ' 00 00 0E 01 0F 11 0F 00& ' #097 a 10 10 16 19 11 11 1E 00& ' #098 b 00 00 0E 11 10 11 0E 00& ' #099 c 01 01 0D 13 11 11 0F 00& ' #100 d 00 00 0E 11 1F 10 0E 00& ' #101 e 02 05 04 1C 04 04 04 00& ' #102 f 00 0D 13 13 0D 01 0E 00& ' #103 g 10 10 16 19 11 11 11 00& ' #104 h 04 00 0C 04 04 04 0E 00& ' #105 i 02 00 06 02 02 12 0C 00& ' #106 j 08 08 09 0A 0C 0A 09 00& ' #107 k 0C 04 04 04 04 04 0E 00& ' #108 l 00 00 1A 15 15 15 15 00& ' #109 m 00 00 16 19 11 11 11 00& ' #110 n 00 00 0E 11 11 11 0E 00& ' #111 o 00 16 19 19 16 10 10 00& ' #112 p 00 0D 13 13 0D 01 01 00& ' #113 q 00 00 16 19 10 10 10 00& ' #114 r 00 00 0F 10 1E 01 1F 00& ' #115 s 08 08 1C 08 08 09 06 00& ' #116 t 00 00 12 12 12 12 0D 00& ' #117 u 00 00 11 11 11 0A 04 00& ' #118 v 00 00 11 11 15 15 0A 00& ' #119 w 00 00 11 0A 04 0A 11 00& ' #120 x 00 11 11 13 0D 01 0E 00& ' #121 y 00 00 1F 02 04 08 1F 00& ' #122 z 02 04 04 08 04 04 02 00& ' #123 { 04 04 04 00 04 04 04 00& ' #124 | 08 04 04 02 04 04 08 00& ' #125 } 08 15 02 00 00 00 00 00& ' #126 ~ 00 00 00 00 00 00 00 00& ' #127 DEL 11 0E 11 11 1F 11 11 00& ' #128 (80h) Ä (Ae) 11 0E 11 11 11 11 0E 00& ' #129 (81h) Ö (Oe) 11 00 11 11 11 11 0E 00& ' #130 (82h) Ü (Ue) 0A 00 0E 01 0F 11 0F 00& ' #131 (83h) ä (ae) 0A 00 0E 11 11 11 0E 00& ' #132 (84h) ö (oe) 0A 00 12 12 12 12 0D 00& ' #133 (85h) ü (ue) 0E 11 16 11 11 16 10 00& ' #134 (86h) ß (sz) 0E 10 0E 11 11 0E 01 0E& ' #135 (87h) § (paragraph) 06 09 09 06 00 00 00 00& ' #136 (88h) ° (degree) 06 09 1C 08 1C 09 06 00& ' #137 (89h) Euro sign (6x8) 1E 21 7C 20 7C 21 1E 00& ' #138 (8Ah) Euro sign (8x8) 04 0E 04 1F 04 0A 11 00& ' #139 (8Bh) matchstick man 00 00 00 00 00 00 00 00& ' #140 (8Ch) -- free -- 00 00 00 00 00 00 00 00& ' #141 (8Dh) -- free -- 00 00 00 00 00 00 00 00& ' #142 (8Eh) -- free -- 00 00 00 00 00 00 00 00& ' #143 (8Fh) -- free -- 00 00 00 00 00 00 00 00& ' #144 (90h) no line 18 18 18 18 00 00 00 00& ' #145 (91h) upper line 00 00 00 00 18 18 18 18& ' #146 (92h) lower line 18 18 18 18 18 18 18 18& ' #147 (93h) upper + lower line 00 00 00 F0 F0 00 00 00& ' #148 (94h) left line 18 18 18 F0 F0 00 00 00& ' #149 (95h) upper + left line 00 00 00 F0 F0 18 18 18& ' #150 (96h) lower + left line 18 18 18 F0 F0 18 18 18& ' #151 (97h) upper + lower + left line 00 00 00 0F 0F 00 00 00& ' #152 (98h) right line 18 18 18 0F 0F 00 00 00& ' #153 (99h) upper + right line 00 00 00 0F 0F 18 18 18& ' #154 (9Ah) lower + right line 18 18 18 0F 0F 18 18 18& ' #155 (9Bh) upper + lower + right line 00 00 00 FF FF 00 00 00& ' #156 (9Ch) left + right line 18 18 18 FF FF 00 00 00& ' #157 (9Dh) upper + left + right line 00 00 00 FF FF 18 18 18& ' #158 (9Eh) lower + left + right line 18 18 18 FF FF 18 18 18& ' #159 (9Fh) upper + lower + left + right line "% PUT #1, #3, SPCHR$,0,0,128*8 ' set special character set from ' ' (Space/Blank) PRINT #1, " !<34>#$%<38>'()*+,-./" PRINT #1, "0123456789:;<<=>?@[\]^_`{|}~<127>" PRINT #1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ" PRINT #1, "abcdefghijklmnopqrstuvwxyz" FOR X = 128 TO 159 PRINT #1, CHR$(X); ' output of ASCII characters IF X = 143 OR X = 159 THEN ' codes 32 to 159 PRINT #1, "" ' on the graphical LCD ENDIF NEXT PRINT #1, "" PRINT #1, "<154><156><156><156><156><156><156><150>" PRINT #1, "<147>36.8<136>C<147>" PRINT #1, "<153><156><156><156><156><156><156><149>" FOR X = 0 TO 0 STEP 0 ' endless loop PRINT #1, "<1Bh>m<0><0F0h>";' internal character set WAIT_DURATION 3000 ' 3 seconds until change PRINT #1, "<1Bh>m<8><0F0h>";' external character set WAIT_DURATION 3000 ' 3 seconds until change NEXT ' END ' end of task MAIN