十進BASIC 第2掲示板 過去ログ

version7.3.3でバグ発見以下のプログラムで文字の色が勝手に白になる(書いてないかも)

・概要

　　　・SET TEXT HEIGHT の後、 SET WINDOW を使うと、変になる

　　　・高さを変えなければ普通のまま

・初期設定と同じ文字サイズにするために、SET TEXT HEIGHT を使った。
　SET TEXT HEIGHTをSET WINDOW の前に入れると、文字の色が白くなる
　SET WINDOW の後、SET TEXT HEIGHTを使うと、元に戻る
　SET BITMAP SIZE を使っても元に戻る（ただし、またSET WINDOW を使う必要がある）

(絵を書くための設定変更のプログラム)

・以下のプログラムを実行するとバグになる

・（SET WINDOW ）の直後に
　SET TEXT HEIGHT 11
　実行すると成功する

・画像は上から失敗、成功

SET TEXT HEIGHT 11
SET BITMAP SIZE 256,380
SET WINDOW 1,256,380,1
FOR a=0TO 3
   SET LINE STYLE a+1
   FOR b=0TO 3
      SET LINE WIDTH b+1
      IF b>1 THEN LET b=b-1.9
      PLOT LINES: 20+IP(b)*116,40+MOD(b*10,10)*10+a*30;120+IP(b)*116,40+MOD(b*10,10)*10+a*30
      IF b>IP(b) THEN LET b=b+1.9
   NEXT  B
   SET LINE STYLE 1
   SET LINE WIDTH 1
   PLOT LINES: 10,60+a*30;246,60+a*30
NEXT  A
SET AREA STYLE "hollow"
PLOT AREA:10,30;246,30;246,150;10,150
!PLOT AREA:10,175;65,175;65,210;10,210
!PLOT AREA:100,175;155,175;155,210;100,210
PLOT TEXT,AT  10,20:"形式を以下の中から選んで下さい。"
PLOT TEXT,AT  10,170 :"太さを選んで下さい。"
PLOT TEXT,AT  35,200 :"細く      太く"
SET AREA COLOR 2
SET AREA STYLE "solid"
PLOT AREA:20,192;30,182;30,202
PLOT AREA:145,192;135,182;135,202
PLOT TEXT,AT 10,230:"イメージ"
LET c=1
LET d=40
SET AREA STYLE "hollow"
SET AREA COLOR 1