プチコンのデフォルトフォントを改造するプログラムがさっそく登場したぞ。
実行すると、フォントの字の右下に影がつくのだ。このフォントが気に入ったならSAVE"BGF0:(ファイル名)"でリソースとして保存するのもいいだろう。
こあ/co.a
たぶん、BASICで育った最後のほうの世代です。よろしくお願いします。
GCLS 5
で背景色をつけるようにしておいたよ。
- ’shadow font
- ’2011/03/08 co.a
- ’initialize
- VISIBLE 1,1,0,0,0,1
- CLS
- COLOR 15
- CHRINIT ”BGF0”
- GCLS 5
- ’add shadows
- FOR CHR_NO=0 TO 255
- CHRREAD(”BGF0”,CHR_NO),BF$
- NEW_FNT$=””
- FOR Y=0 TO 7
- LAST_C$=”0”
- FOR X=0 TO 7
- ACT_C$=MID$(BF$,Y*8+X,1)
- ADD_C$=ACT_C$
- IF LAST_C$!=”0” AND ACT_C$==”0” THEN ADD_C$=”E”
- NEW_FNT$=NEW_FNT$+ADD_C$
- LAST_C$=ACT_C$
- NEXT X
- NEXT Y
- CHRSET ”BGF0”,CHR_NO,NEW_FNT$
- NEXT
- ’show fonts
- FOR CHR_NO=0 TO 255
- PRINT CHR$(CHR_NO);
- NEXT
- PRINT