home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / mag_discs / volume_2 / issue_07 / fwpfonts / CHARDES_C (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1989-03-02  |  4KB  |  174 lines
  1.  >$.CHARDES_C
  2. "FX4":
  3. "FX225 1":
  4. :V=G:G=40:
  5. 4("Character Designer"):G=V:
  6. '''"This utility allows you to alter the    shapes of the letters and numbers that  appear on the screen."''"The controls used to do this are:"'
  7. "Press a key at any time to select the   character to be re-defined."':
  8. "Press the ";:
  9. "cursor keys";:
  10. " at the top right  of the keyboard to move the cursor      around."':
  11. "Press ";:
  12. "RETURN";:
  13. " to change the colour of theblob ""underneath"" the cursor."':
  14. "Press ";:
  15. "DELETE";:
  16. " to select a character from the font list at the top of the screen  - useful for defining characters that   don't appear on the keyboard.  Press    ";:
  17. "DELETE";:
  18. " again here to select."':
  19. "Press ";:
  20. "COPY";:
  21. " to save the new characters."':
  22. "Press ";:
  23. "TAB";:
  24. " to reset the characters."':
  25. "Press the ";:
  26. "space bar";:
  27. " to start defining   your characters, or ";:
  28. "ESCAPE";
  29. " to exit.":
  30. Z6Q=2-G 
  31. 4("Character Designer"):
  32. G<>20
  33. 2-6:M=-(G=20)*7+11:
  34. N,M);
  35. I%=M+1
  36. M+10:
  37. N,I%);" ";:
  38. N,M+11);
  39. 128:B%=1:`%=0:a%=0:
  40. "FX 4,2":
  41. "FX225 9":H$=
  42. "FX15":
  43. "FX138 0 "+
  44. H<32H=
  45. H=127G$=
  46. 1(_%))
  47. H$,G$)=0
  48. G$):_%=
  49. H$,G$)
  50. `%=(`%-1)
  51. `%=(`%+1)
  52. a%=(a%-1)
  53. a%=(a%+1)
  54. "FX25":
  55. 5(`%,a%,-1):b%(`%,a%)=b%(`%,a%)
  56. A(_%):
  57. N+15,M+5);
  58. A(_%)
  59. 23,_%:
  60. 7:O=0:
  61. 7:O=O*2+
  62. (b%(J%,I%)):
  63. 5(X%,Y%,C%):
  64. C%=-1
  65. (X%+2+N)*(2^Q)*16+(2^Q)*16-1,1024-(Y%+2+M)*32-27:
  66. &65,(X%+2+N)*(2^Q)*16,1024-(Y%+2+M)*32:
  67. 8(_%)
  68. 1(_%):
  69. 7:O=I?(I%+1):
  70. -1:b%(J%,I%)=-(O
  71. 1):O=O
  72. 1(_%)?I=_%:
  73. "OS_Word",10,I:
  74. `%+2+N,a%+2+M);:
  75. 5(I%,J%,
  76. (b%(I%,J%)))*7):
  77. N+15,M+5);
  78. 2-8,17,G
  79. 2+7,3
  80. 2-16,10,G
  81. 2+15,3
  82. 30,23,1,0;0;0;0;:
  83. I%=127
  84. 1(_%):
  85. 2-8,17,G
  86. 2+7,3
  87. 2-16,10,G
  88. 2+15,3
  89. " "),
  90. H<32H=
  91. H$,2),
  92. ((G=20
  93. (G<>20
  94. ,0);:K=0
  95. ,6-(G=20)*7);:K=0
  96. 15-(G<>20)*16,
  97. );:K=0
  98. =15-(G<>20)*16
  99. );:K=0
  100. H=127:
  101. G=20_%=
  102. 0,25);"Hit key for character"'"DELETE to select from above list"'"Cursor keys & RETURN to edit character"'"COPY key to SAVE"'"TAB to reset"'"ESCAPE for help":
  103. 4(G$)
  104. 2),0);:
  105. C(G$):
  106. C(G$)
  107. I%,W%,V%:
  108. 1(224):W%=I!1:V%=I!5:
  109. G$,I%,1)),224):
  110. 23,224,W%,W%
  111. &100,W%
  112. &10000,W%
  113. &1000000,V%,V%
  114. &100,V%
  115. &10000,V%
  116. &1000000:
  117. D(C%,S)
  118. J%,I%:
  119. 1(C%):
  120. 23,S:
  121. I?(J%*4+I%
  122. S,10,8:
  123. 11,11,9:
  124. " at line ";
  125. :*FX 4
  126. G<>20
  127. G<>20
  128. @("Please wait - compiling font preparatory to saving.")
  129. @("Please wait")
  130. "FX4":
  131. G<>20
  132. @("What do you want to call this font ?"):
  133. @("Font name ?"):
  134. G$=""
  135. @(""):
  136. E(G$):
  137. @("Saving complete"):H=
  138. "FX138 0 "+
  139. ("SETTYPE "+G$+" FF7")
  140. "FX4 2":
  141. G<>20
  142. 0,25);
  143. 0,30);
  144. (39);
  145. G<>20
  146. @(G$)
  147. G<>20
  148. 0,25);
  149. (80);
  150. 0,25);G$;:
  151. 0,30);
  152. (39);
  153. 0,30);G$;:
  154. "OS_Args",0,0 
  155.  FS:=FS
  156. E(G$):file%=
  157. I%=32
  158. #file%,23:
  159. #file%,(I%):
  160. 1(I%):
  161. #file%,I?J%:
  162. #file%:
  163. b%(7,7),I 8,R&744:W=&FFF1:g=&FFF4:J=224:I?1=80:I?2=40:I?4=20:
  164. 4,26,12:
  165. (81);:G=I?
  166. 0(H):
  167. -58:=24
  168. -42:=23
  169. -26:=21
  170. -122:=22
  171. -97:=9
  172. -106:=20
  173. H=13:=H
  174.