十進BASICプログラミングについての質問や研究成果の公開にご利用ください。
メッセージ入力枠は右下をドラッグして拡大できます。 画像，URLは省略可能です。
編集/削除キーを入力しなくてもエラーにはなりませんが，何か適当な半角英数字4～8文字を指定してください。
特に，長文投稿の場合，プレビューで最後の行を確認しても，実際には途中で切れてしまうことがあるので，投稿後の確認が必要です。
SET LINE WIDTHのバグ - しばっち
2024/12/15 (Sun) 08:35:53
SET LINE WIDTH文のバグです
ループ内にPLOT TEXTとPLOT LINEがあるとSET LINE WIDTH文が無効になるようです。
Lazarus版でも同様の現象を確認しました。
SET BITMAP SIZE 400,400
SET WINDOW 0,399,399,0
SET TEXT HEIGHT 50
SET TEXT COLOR 5
FOR X=0 TO 399
PLOT TEXT ,AT 100,100:"ABCDE" ! ここを注釈にすると太さ20のラインが正常に描かれる
SET LINE WIDTH 20
PLOT LINES:X,X;
NEXT X
END
Re: SET LINE WIDTHのバグ - SHIRAISHI Kazuo
2024/12/15 (Sun) 09:36:35
JIS Full BASICのPLOT LINES文にはやっかいな規定があります。
描点（BEAM）がオフになる条件がいくつか定められていて，PLOT LINES以外の図形出力文の実行時もその一つです。
独自拡張命令の SET BEAM MODE "IMMORTAL" を追加すると，この規定を無視します。
SET BITMAP SIZE 400,400
SET WINDOW 0,399,399,0
SET TEXT HEIGHT 50
SET TEXT COLOR 5
SET LINE WIDTH 20
SET BEAM MODE "IMMORTAL"
FOR X=0 TO 399
PLOT POINTS: 0,0
SET LINE WIDTH 20
PLOT TEXT ,AT 100,100:"ABCDE"
PLOT LINES:X,X;
NEXT X
END