キャラクターの描画

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の円を書きます。