キャラクターの描画
BRELG達の元絵は以下のような感じで描いています。
dup c1,c0(1) boxf repeat 160:mpf^=255:c0=64+mpf,64 color mpf|cnt,cnt,mpf^255|cnt:ee=56-cnt/4:gosub *circ ; ボディ color 200,250:circle mpf+48,0,mpf+79,41 ; モノアイ loop stop *circ circle c0-ee,c1-ee,c0+ee,c1+ee return
1個のループで2種類のBRELGを描いています。
本来最後にやれば良いモノアイの描画をわざわざループの中に入れてます。
処理的には無駄なことをしていますが、これにより、2つのモノアイ描画を
1箇所で行なうことができるため、結果的にコードが節約できます。
dupとboxfは、おまじない。
サブルーチン*circでは、c0,c1を中心とした半径eeの円を書きます。