きっと整数演算だけじゃ不便に思うだろうなあ、HL（はりぼて言語）に大急ぎで浮動小数点演算機能を付けるのはちょっと間に合わないかもしれないよなあ。できればHLの開発はせかされずにやりたいし・・・。それにもう英語の小文字も入力できそうな気がするなあ。・・・と思ったあたりが理由です。
#include <acl.c>
void aMain()
{
AWindow *w = aOpenWin(600, 400, "rainbow", 1);
aFillRect(w, 600, 400, 0, 0, 0x00ffff);
float a, b = 0.07;
a = 1.0 - 0 * b; aFillOval(w, 600 * a, 500 * a, 300 - 300 * a, 400 - 250 * a, 0xff0000);
a = 1.0 - 1 * b; aFillOval(w, 600 * a, 500 * a, 300 - 300 * a, 400 - 250 * a, 0xffaa00);
a = 1.0 - 2 * b; aFillOval(w, 600 * a, 500 * a, 300 - 300 * a, 400 - 250 * a, 0xffff00);
a = 1.0 - 3 * b; aFillOval(w, 600 * a, 500 * a, 300 - 300 * a, 400 - 250 * a, 0xaaff00);
a = 1.0 - 4 * b; aFillOval(w, 600 * a, 500 * a, 300 - 300 * a, 400 - 250 * a, 0x00ff00);
a = 1.0 - 5 * b; aFillOval(w, 600 * a, 500 * a, 300 - 300 * a, 400 - 250 * a, 0x00aaff);
a = 1.0 - 6 * b; aFillOval(w, 600 * a, 500 * a, 300 - 300 * a, 400 - 250 * a, 0x0000ff);
a = 1.0 - 7 * b; aFillOval(w, 600 * a, 500 * a, 300 - 300 * a, 400 - 250 * a, 0xaa00ff);
a = 1.0 - 8 * b; aFillOval(w, 600 * a, 500 * a, 300 - 300 * a, 400 - 250 * a, 0x00ffff);
aFillOval(w, 100, 50, 100, 50, 0xffffff);
aFillOval(w, 100, 50, 400, 100, 0xffffff);
aWait(-1);
}![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
