「■色選択フォーム」の編集履歴（バックアップ）一覧はこちら
「■色選択フォーム」(2009/05/31 (日) 17:29:08) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
*情報
作者名：はっぱ
引用元：[[なでしこプログラム掲示板「はっぱのサンプル集５７」>http://www.himanavi.net/cgi/nade-bbs/cbbs.cgi?mode=al2&namber=734&rev=&no=0]]
*概要
色選択フォームユニット。
color_cc.png、rainbow_cc.pngを初回起動時に生成。
#image(無題.PNG)
*解説
***引数
現在色：初期状態の色
透明色対応有無：『透明色対応』or『透明色未対応』
***返り値
選択した色
*本体
色選択フォームとはフォーム
そのサイズは『350,250,702,552』
そのスタイルは『ダイアログスタイル』
そのタイトルは『色の選択』
//組込データ
//サイズ縮小のため、ＲＧＢごとに分解してある
文字化画像とは文字列
文字化画像は『iVBORw0KGgoAAAANSUhEUgAAAi4AAAF0CAIAAACL1SWEAAAAB3RJTUUH1QgYDh8GBV2VLAAAABd0RVh0U29mdHdhcmUAR0xEUE5HIHZlciAzLjRxhaThAAAACHRwTkdHTEQzAAAAAEqAKR8AAAAEZ0FNQQAAsY8L/GEFAAArzElEQVR4nO3dibd+ZVXA8UMKCBIJgg1q
UUGo5DxlZs6Ks5iaY6KQ8wSaU2iKKJGoKEqaOGQDTmVamZpDGWqpoYkmamppWVlZrWo1rupd77ves857nr33s5/p3HsO39/af8HvftZ+9nTu7Tr+8Y9//OMf//hX698BRONY1L89/99cfCzq357/by4++DGmxLcsJa6QFXCBC1zgsn+57PnPcP/8JPN+CNXjim0CLnCB
C1z2C5fF/ORn/XMbxoGTxEH7OZPABS5wuZxw2f8c9vkPucVPr24cHAu4wAUucNkzLvvBxT75+e+TH3L0pxqNK2UFXOACF7jsAZfpdeyJhel/7BP/kFdxSEEcug24wAUucJmaywRGphExjYIJfuwlP2d/XFkPuMAFLnCZlEs7I+1oNOLQjkC7H7vxAw/jMHfABS5wgct0
XKozqU5jr0RUh1D9h+/8sX+rOw4fBFzgAhe4TMelFpNaQCrSqCViYgi1fv6HO+Lb9IALXOACl4m4lDOpYqScxjQoyi2UKygksImrxOKIvMQCF7jABS4ZXEqkFBppqqMpiqYcmio4wowjdwMucIELXKbgki2lkZFsHSU0WqBoxCEbwpFmXFUJuMAFLnCZgkt1KdWN5AHJ
oFEdRXUOeRY0CKs4So+j1wEXuMAFLlNwSZWSwSTDSEUdGTVJRRcZKCpysCGIcbXdgAtc4AKX5lxqSUllUstIEpBaNFJd1EJRhcPVlPh2JeACF7jApTmXJCxJUpKYlANJqkySdCTRSHJRXoEkidA4fIcU37kNuMAFLnBpzqVQip/JlEb8QPw6/DQKXfhRVBQxjO/aDbjA
BS5wac7FiaVESiGTukCq6yihUeKirohVXF2Ka+TlFrjABS5wSeJSUYqzXGltJBtIto66NLJdeESIKK4hxTW3ARe4wAUuzbnkYckrVzxMmhrxAMnT0ZRGngsPimsG8d1BwAUucIFLWy6TSanFJGpkMiAeHVVoTObie4I4Zh1wgQtc4NKWSxRLhpRouZLBpIWRKJCM4iSq
I6MmidKIughLEc1FH987CLjABS5wacslFUuqlGi5ksok2ienliipQKLFSWFZUp1GkotVfF8QcIELXODSlkth0ZIkpS6TpkaSipNoV5ykoy6NVBffvxvHrgMucIELXNpyKSlaKkppx8QwUhFIOx3taIgu+jhuEHCBC1zg0paLgaWWlFpM9puRWkCyddSicdxu/MBuHO/M
LXCBC1zgks0lr2ipIqUFkypG/CWKH4hRnLTQUUKjj2ttAy5wgQtc2nJxYjGKlnIpeUyMQsWY1OYZMUqUciB5OoyyxGiGPTQ2ce1BwAUucIFLWy4Z/XOGFKNtdk5tM5gYhUqGEaNEaQfEWZk4dRyv6xjSuM5unODJLXCBC1zgUsLFg8XZPHukGG1zIyYVjWRMZzUgxkKw
kQ6NxrUDGn384DbgAhe4wKUtlxIsJVL2CZMSI43qEw+QEh1RGqu47m7ABS5wgUtDLnOUksRkPxhpCqSFjusN4vrrgAtc4AKXhlyqYKkipQqTKoVKFSNVgFQpTvJ0bOIG24ALXOACl4ZckrBEi5YkKUnlSl0mSYVK1EhSiZJUn0SBJBUnSTpuOIgb5eUWuMAFLnBxcoli
EYuWaPOcJyVaruQ1zOWFSl6VEi1R8trjKJBoceLR0ceN1wEXuMAFLg25iFj8RUu0eS6UIpYrrZmIhUqhEX+HHG2P/UDE4uQGEpBQxypuMgi4wAUucGnIJQOLv3nOkOIvV8Se2WYidsv+QmUaI02BiMXJjSUgNx3EzUpyC1zgAhe4RLnYWOz+2W6ebSni+NaWYpcr9tTW
ZmIXKuKw1p7U2kbEGa1zOVgdyE0kIDfbxs23ARe4wAUuDbk4R7l2/2wPcVOl2G2zs2euy8QuVOoasUuUukBuagL5oW3cIswtcIELXOBSkUt2/+xsnrOlpJYrzqltdrfsbJXLjdjnKRWB3CwGZBM/vA64wAUucGnIpbx/TpJiT3CTyhVnz+xhYi8NPYVK6qTW0yTb5ynG
crAWkFXcchtwgQtc4NKQiwdLnhS7aKklpRYTe2SbV6gUGkkC4jSSBORHtnGrpNwCF7jABS6pXNphmYuUWRtpCmQTP7oOuMAFLnBpyCUDy2RSJitXpmcymZESIKu49TbgAhe4wKUhFw1LSdFSIqWkXMnrmcuZlBQqJUZKShQPkNts47bR3AIXuMAFLiVcRlj8/bO/aGkh
xV+u+O9X/Ez8hYq/Va5oxF+i2EA2cbt1wAUucIFLQy6pWLKLlnIp0ba5fHCrMYl2y9FCJdoqtzMSLVE0IKu4/TrukJ1b4AIXuMDFw8WJReuftaJFa56rS0ktVyZjohUqWqucaiS7SdZKlBGQjZFV3HEdcIELXODSkIs4yr1Cbv/sbJ6dm0RtfKu1zc5yRRvcOhvm1G7Z
Wahou0JnlZLaJBslytDInbYBF7jABS4NuSRhyStatOa5ipS8ckUb3FZh4pzXjgoV7VqlihGtSRZLlN7InbdxYl5ugQtc4AIXJxcRi90/5xUtJVKc49ukciWJidYw20ySChVnq2z3ybYRZ4kyNLKKu6wDLnCBC1wacinHklS0iEPcJCl225xUrtiD24mZ7BMjJ+4aues2
4AIXuMClIRcDS1L/LBYtHilH7ko5qlhKeblSziSpW85olcVdYbmRu+wauds27u7JLXCBC1zgks3lAP3ARcTiKVo8zXMtKZ622VOu2IPbukw881pPoSLuCj1GxCZ5ZOTu27jHOuACF7jApSGXKBZP/+wvWsQhbl0pYtssliuenlk8ovQzye6WxUJFbJXFXWF2lTIycs91
3MufW+ACF7jAJYNLHpbUosU/xBUvWgwp4vhWbJv95YrYM7djInbLRqEitsritUq5kVXcex1wgQtc4NKQS4hF3CqKo9xo0eJvnqtLEdtmY3Zr9MziJb+4Oowy8XfLeYWKeC9ZYmQVJ60DLnCBC1wacknCYvTP0aLFaJ7FoxanFGN8a7TNRrli9MziJX85E6NbNua10WGt
eK2SauQ+6/ixvNwCF7jABS5OLhoWY6sY7Z+jRUt0iFtLitE2O8sVo2eOrg6dTKLdcrRQMVrl8Folycgq7rsOuMAFLnBpyMXGEh3lDqWIWJKaZ+NLs2wp0bbZWa5EL/mzmRi3k855rbNVDo3cK2bkftuAC1zgApeGXDxYkvrnpKIletRiSzHOWTLa5uye2bk6LGTinNdq
RsRCRTPSM7n/On48KbfABS5wgUsql1QsSf2zR4rRPFeXknTIUji49TAx9oZ2t+yc13qMiIVKb2QVD1gHXOACF7g05FKCpXrRMrGU6uXKxEwqFiqakQeu40FVcgtc4AIXuGhc2mFpJ8U5wS2R0oJJdHVYi0ktIxsmq3jwBLkFLnCBy+WZyxyxzFHKvJj0RlbxkHXABS5w
gUsrLouXsngmrY08dB0/cTlJLHCBC1z2hMtkWCaTMnG5MhmTyQqVkZFVPGwdcIELXODSiksVLFWKlv0jpWK5sn+YZBQqPZOT1wEXuMAFLq24ZGCZpmiZUso05co0TCoWKhsjD1/HI7JzC1zgAhe4RLk4sST1z86ixdk8J01wnVKS2mZnueLsmZOmtk4mzm45qVDpjazi
lHXABS5wgUsrLlEstfrnaNESbZ7LpTjHt9G2OVquRHvmyZhEu2WjUNkwOXUdP+nMLXCBC1zgksHFwBId5Rr9s1G0lDTPhpToRUvJ+DavXIn2zMb9SgmTkm55WKj0TFbxyGhugQtc4AKXbC55WMT+Oa9oSW2ep5FitM155YrYM+cdUaYyMbplsVA5ZdfIKh61DrjABS5w
acVFxJK6VRT759SiRWyexSFuFSni+Da1bfaXK6nbQz8TY28oMhG7ZbFQ2TB59DoeY+QWuMAFLnAp5OLH4h/leooWf/MsDnGPlY5a6koR22Z/ueLvmcXBrf9+xcPE3y0PC5WeyWPXARe4wAUurbh4sHhGuZ4rS/8+0TPErSXFM771XPX7yxXP4HZKJmG3vDHSM3lc1z3e
n1vgAhe4wCWVywiL59Yyo3/OKFo8Q9zRUUu5lIy2OaNc8QxuT9rtmcuZeEa2j95l8rgtk1U8QcwtcIELXOBShYuNxR7lZvTPdtFiN897K8Vum+1yJaNnHg1u7SPKJCajka3YLY+YPHEdcIELXODSiktFLHlFS1LzbC8TeyknpEgZrRHt8a3dNpeUK3bPPD2TJwyYPKnr
nlw9t8AFLnCBS8/FiSVplFtYtNjNszbEnVKK3TZrs1v7ikXrmUcnLPYlfyGTx+8yedKWySpOS8otcIELXOCSxEXDoh242KNc50oxWrQ4m+fRMrGWFOf41tk2a+WKs2ceDW6jTE72MQn3hiKT09Zx+jrgAhe4wKUVlx7LFRQs2lYxtX/WihZtn6g1z9oQ94TdIW51Kdr4
VmubtUMWrVxJ7ZmrM3miwuQp63jqKLfABS5wgUtFLuVYov1zdtGiNc/RZWIv5fq5UrQ1oja+je4Qo+WKdsUSHdyGTE5JbJijTH5qHXCBC1zg0oqLH0t0lBv2z9pK0V+0+Ie4o6OWKlK0NaK/bfaXK/6eWdsetmPytK57empugQtc4AIXP5cQy4FuLBn9c1i0aCeWRvMc
HeLWlaKtEY22WdshGuVKRs8cMjlVueQvZLKKZ2i5BS5wgQtcyrkYWKIHLgaWsH82ihbtxNLTPHuk3Ei58E+SYrTNmpSwbfaUK9oVi9EzJzHRVocGk2euAy5wgQtcWnFJwmKMco3+2VO0aCeWRtFiDHH7ZeIEUjxtc1K54j+lNHrmfnv4uOCSP4PJs7rupzNyC1zgAhe4
OLnsOZa85nkxUowF4v5hsooz9klugQtc4LJILqlYWvTP7ZrnRlLatc0teuZyJs9eB1zgAhe4tOJiY0ndKmb3z9lFS9IysUSKZ404lJLdNqeWK57t4ZO3Uk7fSkli8pyu+xlPboELXOAClzwuIhbngYuzf/asFP1Fi90821JunijFec7ibJvtcuXBieWKs2cWmTx1y+Rp
PiareK6RW+ACF7jApZDLEIt99m+Pcu3+uaRosZtne4grSrlFDSn2+NZum+2rfrtcsXtme3ArMnmGg8nzuu7MMLfABS5wgUstLoVYxFGu3T/7i5aM5llcJopSbllbiji+tdtmcYcoliv2AlHsme3B7ZDJs2JMVvH8KrkFLnCBC1xELlEs4oGLf5Qr9s/hlWVS0eJvnofL
xEIp4jmLuEb037KIO0R/ueLvmcXB7ZDJGRKT522ZnLUOuMAFLnBpxUXD4j9wGY5y/f1zXtESbZ6jy8ShlFu5N4l5UsTxbXSHGJ3d+q9Yhj2zuD0cMnmOzuQFXfdCO7fABS5wgUsJl2ws0VHusH+OXlkOi5boPjHaPEeXiXWlDNeI0fFttG2OHrIMyxXximXYM0cHtxqT
5w+YrOLswtwCF7jABS4GFw+W4YFLdKuo9c9a0XJMrGhJap61Ia541HLrwW8irC5lOL6N3rIM2+boIYtWriT1zMPB7XMHg1uRyc+uAy5wgQtcWnEpwaKNcrX+uXrRojXP2hC3REr0vN8jRbtl0XaInnJFXCBqp5Ta4PbMQc/8gq2Unsk5Xfdz5bkFLnCBC1w0Lgfs/pHF
A5Uv0LStojbK1fpn7coytWjxNM/aEHe4TLztYJl4B+WL51HFop1VamtEbXyrtc3DHWJJuZLaMw8Ht2dvpWyYrOJFfW6BC1zgApfqXOpiSe2fhyvF0WmLZ5/obJ73pxRP2/xY5ap/NLvVFogZPbPI5Nyue3GL3AIXuMAFLhsufiyereIIi7N/dhYtGc2zZ5nYVIpzfOts
mzPKFWfPPBzcnrOVsmGykfKS1NwCF7jABS5+LjYW54GLMco1+ufyosVono0h7kjK7X1S7uGTop2z2ONbZ9tsHLIY5YrRM2uD2xcNypUVk5euAy5wgQtcWnFJwmJsFY1R7qh/NlaK/qLFaJ6NIa6xTLzTYJlYS4qxRjTGt6O2WdshJpUreT3zS7ZSzuu6l2XkFrjABS5w
cXIJsRzkxuIf5Y7659FKcVS0HK8XLaN9or95Hg1xbSl3cUsxzvtHUkZrRGN8a7fNxiGLXa6cqZcro575xYNyZcNkFS/Xcgtc4AIXuJRziWIZ3VqOtoqjUW52/3zcbv+cVLTYzfNoiDtaJo6OK/dEymh8a7fNox1iUrkyumIZ9czn7vbM522lrJicvw64wAUucGnFpRzL
aJSb1D+PVoolRUvYPNtD3NEy8cTdI/+77/4mwtGFf9g5j8777XOW0RpxNL4d3bLYbXNquTJaINo988u3Ul7Rda+slVvgAhe4wCXk4sEyurW0t4oZ/XNq0TLaJ0ab59EQ114mTiAlaXwb3SGOrvrLy5WXDcqVDZNVXODPLXCBC1zgkspFxHJwDIu9VQwPLcOD/3ClGC1a
RieW4T4x2jxHl4l32z2uvNfubyLMk/KImJTo+DbaNo+u+sNDlrBcEa9Yzttl8ootk5/vulcZuQUucIELXAq5OLEcFmAJt4r2KFfsn48Nriwzipbwk7OweY4Oce8aHPl7pDwgXUq4RoyObz1t8+iqPzxkCcuVcIE46pk3TDZSXp2UW+ACF7jAJYnLAdLf+z1Y+gItPHAJ
t4rhKDfsn8OV4ujK0lm0hPtET/McDnHDZeI9d5eJ9wl+A1RTKeH4NrxlEXeIeeXKeUG58srdcmXF5BfWARe4wAUurbgUYvGMcsPrFnGleK1dLFrR4tknis1zOMQNl4nhUUuJlFMCKeE5S7hGFMe3nrY53CGWlCuvGkh5TdddWCW3wAUucIGLyCUJi3jg4hzliv1zuFK8
zi4Wo2gJ94nhJ2di8ywOccNl4knBX6q6v/SbNwqliGvEcHz7zECK2DafJV31h4cs/nLlNVspr83ILXCBC1zg4uRiYDlEwhIeuBwl/XIo8dBS65/DlWJS0RLuE7XmWRzihsvEe0tH/uVSwrNKbY0ojm/FWxaxbT47aJu1cuV8qVx59W65smLyuq57fTS3wAUucIFLNhcb
S3j2Lx64iFvF1P45XCmmFi3iPlFrnsUhrnhceb/gL4Q8SPnSrJYU//hW2yGeE0jRDlk2TMJy5cJdKW/w5Ba4wAUucMnjkodFPHDRRrlJ/fMJwV8OiRYt4j5Ra57vLDXP2jLxvsFHz3WliOcsT5Nu+89QPjAz2mZxh2jMbrVy5Q3r+MWS3AIXuMAFLjaXAwa3liIW8exf
O3AxRrlG/yyuFK8nfQBtn1jeSvptUHbzrA1xxePKXsqDFSnhRUs/vhWliOcs2hrRGN8abfNLpLbZmN2G5cqKyRu77pdGuQUucIELXCpy8WARz/6NraIxyjX6Z+3KMlq0aPvE20lFy4n6nb+xTOylPGgSKdoa0RjfGm3zedInzv5yZSPll/25BS5wgQtcUrk4sWi3lsZW
sZcSYjlWP/jvpYRYPEWLtk807ivtIW4v5YG6lIdnSTldl/IsXYoxvrXb5vOlT5w95cqKya+sAy5wgQtcWnE5YPdjaAOLdmt5tP752bBoEbFEV4o3VD6Adu4T7ebZHuIaRy29lJNNKdoENyrFXiMa49to23zB7ifOnnJlxeRXu+6iMLfABS5wgUstLklYtFtL5yg32j8b
V5bOosXYJ0bvKz3LxF7Kw8qkPCUm5dmmFHt862mbR1f9RrmykfKmjNwCF7jABS5OLqlYtFtL/yjX0z/3UkQsSUWLfdfiHOLaR/6nOr40S5VinLM4x7eetrlnIkrpmby5696Sl1vgAhe4wMXDZYTlIAcW+8DFP8o9PvYNdF7Rcjv91D+UYjTPnqOWkZRH1ZNin7OMyhVD
ypCJ0TYPmYhS3irmFrjABS5wqcIlxHKwD4t94CIWLQYW/5VlKCVatCQ1z70UY4gbSnlkbSnPjZ2zJI1vk3aIIyYbKW/Tcgtc4AIXuJRzEbFcyY3FuVXM659HUjQseftE/52/IUU8aqkl5Uy3lJc6PjDTyhVbyobJr3Xdrxu5BS5wgQtcCrloWA5JxNJLcWIJpXj6Z1GK
v2jJaJ5TjyuzL1q0NWKSlCETj5SQiSbl7XZugQtc4AKXEi4GlkOzsFzd8Rs5/EWLB0v2qb9TimeZaEg5rUDKC5S/CuIc3756+8dAnFI0Jqv4jWhugQtc4AKXbC42livHPob2j3J7KUlYGhUteXf+SVJGzXO2lLOVvwqSNL7Nbps3TN7Rde/05Ba4wAUucMnj4sHiP/vP
7p+v6/gGOqNoGUnJKFqSpGhD3EIp5/i+dXZK8ewQQym/6c8tcIELXOCSyiUJS8mBS0b/XPG0Ja95rnLUUkvKkEkLKQaT3+q6387ILXCBC1zg4uRSgqXKzX9J/1xdSpXmubWUkMkEUt5VnlvgAhe4wEXj0g5LRSmTYZmjlCQm2VJ+p3VugQtc4HJ55jILLEhpNL51Mnl3
171nRrkFLnCBy+y4XM6xIMUp5b3kFrjABS7tuEyMZV9JaVG0LFXK7+5JboELXOByOeFSC8t+K1r2W/O836QkMXlf172/bm6BC1zgApchlwwsU/bPkxUtUzbPk0mpUq5spHwgO7fABS5wgUuUix9Li1Fui6KlRfPcYojbQkr1tvl9ayYf7LrfS80tcIELXODi5xLFUmWU
W6t/rlK0VGmeqywTq0ipNb7VypWNlN935ha4wAUucMngYmAp2SqW9M97VbTsyTKxRErJGtHZNvdSPhTNLXCBC1zgks1Fw5Jx4JI3ys3onzOKlozmOW+Im3HUkiEl45wlY3z7wS2TP+i6i+3cAhe4wAUuJVxELEkHLqmj3KT+uWnRktQ8Jw1xk44rm0pJGt+K5cpGyoeN
3AIXuMAFLoVcQiz+W0v/VrF6/+wvWvz7RGfz7B/i+o8rq0vxrxHttrmX8hEtt8AFLnCBSzmXPCzOraJnlFtxpegpWpz7xIpD3KiUc6tKqbVG/NCAyUe77g9Lcgtc4AIXuNhcRliiZ/9H1tgqevrn6EqxStESbZ49Q9zoMtGW8uJKUjznLEnj26GUPxJzC1zgAhe4VOGS
hCV64GKPcgv7Z7touWvxL4Sym+foENdeJhpSNkVLUynRNaLWNm+kfKzrPp6RW+ACF7jAxclliOUgE0vJgYsxyrX7Z3ulmF202PtEu3k2hrj2MtE+8s++rCw5q7THt5tyZSPlE2FugQtc4AKXWlycWIxbS2OraIxyjf45e6WYV7Tk3bUYQ1xjmWgc+VeXYpyz2GvEYdvc
S/njpNwCF7jABS5JXDxYMm4tM0a5Rv+srRQzipaMU/+MO39jmagdV2pSLqwqxb9G7KWsmFzSdZ/05xa4wAUucEnl0mM5UMGSemuZOsrV+mdtpZhatGgnlto+UWueU4e42jJRlHJ+PSmpZ5XaGrEvVzZSPjXKLXCBC1zgUpFLHhbtwCVplJt03aKtFMuLFm2fKDbP2n1l
0jJRO64Mpbw2cZOYJMVeI46kfLokt8AFLnCBi83FxpJ09i9uFf2jXP/Bv3hlmTTH9e8T/feVSctE8bgylPK6YiniWaW4RvxoML7dSPmTtZRLPbkFLnCBC1zyuKRi8R+4+Ee5zv5ZXCmGRctJ7qJF3Cf671qcQ1z/cWUo5fWTSBHXiJtypZfymbzcAhe4wAUuHi4GlsN8
WMQDl3Cr6Dy0dB78hytFZ9EinliG+0TnXYt4X+lZJorHlR4pFxVIEc8qQymXSFL+NJpb4AIXuMAlm0sSFs+tZbhVdI5yPf1zuFKsWLSE+0RP8+wc4nqOWl4TfGzWVIpxztJLWTH57FrK5zJyC1zgAhe4OLlssFzR8edEPLeWnq2i59By1D+HK8XwyjKvaPHsE6PNs2eI
6zlquTA48h9JeZPvsnIkJTzv/3Ag5ROBlEt3pVw2zC1wgQtc4FKXSzYWz4FLdJSb0T9HryyjRcvDHSeWGc1zdIg7WiaGx5Xhx2Z7IuXTgZTPd90XCnMLXOACF7gYXJxYjoid/Ue3itFRrt0/R1eKJwVXlnbREp5YRk/9U5vn6DIxeuQ/lPLmBlK0c5ZeymVbKV9Myi1w
gQtc4JLERcRyaCIWe6sYHeUm9c/RlWJS0RKeWD7RPPW3m+foENc+arGlvCX2G6BsKRcnSvncrpQvGbkFLnCBC1wKuXiwXMX8Au0a5i/lsEe5o0NLu3+2V4olRYu9T7Sb5zN3m2d7iGsftbxh96ilnZTReX94zjKU8mdrKV/25xa4wAUucEnlkorFvrW0t4rGKDepf7ZX
itlFi71PNJrn0X1l0hDXOK68aPfIfyjlHeYXzy2kfCUvt8AFLnCBi4dLiOUQ87cVGreWxlbRHuXm9c/2lWVe0WLvE/3NszHENZaJbzQ/NnNKeX+ulM/uSvnirpS/0HILXOACF7iUc0nCcpSOZXTgcpz++ZlxaOnsn42V4v13ryydRcvj9a+fn67/NiijeTaGuMYy0Tjy
H0p5Zw0pn9SlfGFXyp+vpXw1I7fABS5wgYuTi43lcB2L88BltFXURrmjQ0utfzZWilrR8tCsosXYJzqbZ+cQ13lc+fbdj816Ke82vzQrlPKVgZSveXILXOACF7jkcfFjuaoPi7ZVdI5yM/rn+ygfnj1E/wBaK1pO04uWM5TfBvVC333lBcp3z8Yy8a3KR8+alA80k/KX
XfdXqbkFLnCBC1z8XPKwaLeW2lZRG+Uah5ae/lm7svQULcZXZ559oqd51oa4zmXi25Qj/3cpfzExVcpngs/MDClfL8ktcIELXOBiczlg+0cWN1iupPziXO3sXztw0baK2ig3tX/WVorDK8uSosWzT0xtnj1DXO2oZXhc2VTKlwdSvjaQ8jd9boELXOACl+pcWmDRtoqe
Ue6PSr+3/c7Kwb/nyvJk6XdCaV+dPUX5+lnbJ4rN83nKr4LyDHH9Ut6r/6Wqj0hfmhVK+dt2uQUucIELXFKxaGf/x0hYtM/PxFFuUv/sWSnmFS1J+8Sk5lkb4orLRO248t2Doxa/lEtypfz1Vso38nILXOACF7h4uHiwHBHDEj1wGW4VxVGueGgZ7Z+jK0WxaHl0StEi
7hOjzbN2XykOccVlYvS48v2Dj80+JP2FEFHKpTEpX1Wk/L0/t8AFLnCBSyoXDcthEpajY2f/4oGLuFUUR7li/3ynWP8srhSHH54VFi3iPvFs6ZMzsXmODnHFZaJ41PIe6aNnUcrH6kn5u7WUf7BzC1zgAhe4lHApx2IfuIhbRXGUKx5a+vtn+8Mzf9EinliK+8RzpN8G
Zd9XikNccZkoHrWIR/7TSPlmrdwCF7jABS4hlyiWq0hY7FtL8cDFOcq9zWCU6+yfxZViWLQ80l20iCeWZ5qn/uJdi31fGS4T3+Y+avng4Kjl4u1RSyjlk5Wk/GPX/ZMzt8AFLnCBSwaXIZaDTSziF2jOA5dwlHtTaZQrHlqG/bN48G9fWaYWLeKJZbhPPFf65MxunsMh
7lukIa591BJK+aj0l3tDKZflSvnnMLfABS5wgUstLhlYnLeW4VbxhtJWMRzlOvtn50oxu2gJ94lnSftE511L6hA3PGoRjys9Uj5TQ8q/ZOcWuMAFLnCJchGxXNn8bYUhlmOCAxfnVjEc5Wb3z8aVZVi0PMFXtKTuE43mORziXmQOcY2jFvG48mPbo5ZLgr/cW0XKvxq5
BS5wgQtcCrk4sVw1+ALNvrUMsYRbRWOU6+mfU1eKjwn+ckhS0RLuEys2z+EQN1wmhkcteVK+ZF74a1L+LSm3wAUucIFLEpeKWIwDl3CraIxybx98Bu3pn42V4qOCvy9fWLQYp/5JzbNniOs5avl48NHzpcFf7i2U8u/Vcwtc4AIXuPRcCrEYBy7GVjFplBvtn8OV4mRF
S17znDfEDZeJU0r5jyq5BS5wgQtcRC4eLEcGH0MbZ/8jLFVGuUn9s7ZSLClaPPvEC4LfBjVqnqsMcS/Wjys/Ffzyjct2/3JviZT/9OcWuMAFLnBJ5WJgOdyNxX/g4h/lZvTP/itLf9Fyln5iOSpa/M1zxhDXf9SiSfly8JvZ/VL+q+v+O5pb4AIXuMAlm0uI5dAYlujZ
f3SrGB3lRvvn+8X651P1K0tn0RI9sTT2ic7mOTrEjS4Tw+PKz+5+bKZJ+XqilP/Rcgtc4AIXuJRz8WM5WsFyTOzARdsqaqPcOwaHls7+WVsphh+eFRYt2j4xu3nWhrjaMjF61PL57VHLl7bHlaKUb7il/G9qboELXOACFz+XHstBCpYjFCza2b924DLaKmqj3Dsoh5Za
/6wd/I9WiqOi5fTcokU7sRztE1ObZ22I61wmaseVIylfU6R8U5/g9lL+b5Rb4AIXuMClIhewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBew
gIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVg
IbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxz
wQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF
3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3
wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8EC
F7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwC
F7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AF
LnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4
wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4
wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5w
WSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAF
LjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCF
pwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWRyX/wecUPKfgDFJaQAAAABJRU5ErkJggg==』
//画像初期化用：常に不可視
初期化画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,558,372』
圧縮画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,558,372』
作業画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
//彩度強度パネル用：常に不可視
赤画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
黄画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
緑画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
空画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
青画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
紫画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
//上の初期化
もし『color_cc.png』が存在ならば
初期化画像の0,0へ『color_cc.png』を画像描画
初期化画像の0,0,186,186を赤画像の0,0へ画像部分コピー
初期化画像の186,0,186,186を黄画像の0,0へ画像部分コピー
初期化画像の372,0,186,186を緑画像の0,0へ画像部分コピー
初期化画像の0,186,186,186を空画像の0,0へ画像部分コピー
初期化画像の186,186,186,186を青画像の0,0へ画像部分コピー
初期化画像の372,186,186,186を紫画像の0,0へ画像部分コピー
違えば
文字化画像は文字化画像の「{～}」を『』に置換
文字化画像は文字化画像をBASE64デコード
文字化画像を『tmp_cc.png』に保存
圧縮画像の0,0へ『tmp_cc.png』を画像描画
『tmp_cc.png』をファイル削除
//
圧縮画像の0,186,186,186を赤画像の0,0へ画像部分コピー
圧縮画像の186,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を赤画像の0,0へ画像ORコピー
圧縮画像の372,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を赤画像の0,0へ画像ORコピー
//
圧縮画像の0,186,186,186を黄画像の0,0へ画像部分コピー
圧縮画像の186,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を黄画像の0,0へ画像ORコピー
圧縮画像の372,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を黄画像の0,0へ画像ORコピー
//
圧縮画像の0,0,186,186を緑画像の0,0へ画像部分コピー
圧縮画像の186,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を緑画像の0,0へ画像ORコピー
圧縮画像の372,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を緑画像の0,0へ画像ORコピー
//
圧縮画像の0,0,186,186を空画像の0,0へ画像部分コピー
圧縮画像の186,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を空画像の0,0へ画像ORコピー
圧縮画像の372,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を空画像の0,0へ画像ORコピー
//
圧縮画像の0,0,186,186を青画像の0,0へ画像部分コピー
圧縮画像の186,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を青画像の0,0へ画像ORコピー
圧縮画像の372,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を青画像の0,0へ画像ORコピー
//
圧縮画像の0,186,186,186を紫画像の0,0へ画像部分コピー
圧縮画像の186,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を紫画像の0,0へ画像ORコピー
圧縮画像の372,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を紫画像の0,0へ画像ORコピー
//
赤画像を初期化画像の0,0へ画像コピー
黄画像を初期化画像の186,0へ画像コピー
緑画像を初期化画像の372,0へ画像コピー
空画像を初期化画像の0,186へ画像コピー
青画像を初期化画像の186,186へ画像コピー
紫画像を初期化画像の372,186へ画像コピー
初期化画像を『color_cc.png』に画像保存
//組込データ２
文字化画像は『iVBORw0KGgoAAAANSUhEUgAAALoAAAAYCAIAAADCuHBDAAAAB3RJTUUH1QgYDgcSnZzZCAAAABd0RVh0U29mdHdhcmUAR0xEUE5HIHZlciAzLjRxhaThAAAACHRwTkdHTEQzAAAAAEqAKR8AAAAEZ0FNQQAAsY8L/GEFAAAA+UlEQVR4nO3SobIBABQG4Y2iKoqiKoqi
qIqiqIqiqIqiKKqiKKqiuHfuQ5g5Z+Z/g52dD8EBDnGEY5zgFGc4xwUucYVr3OAWd7jHAx7xhGe84BVveMcHPvGFb/zgF+UrH3nLS57ykLvc5CoXOctJjnKQvexkKxtZy0qWspC5zGQqExnLSIYy+O9unP7L7h+mt37eOD1cwiVcSj9vnB4u4RIupZ83Tg+XcAmX0s8b
p4dLuIRL6eeN08MlXMKl9PPG6eESLuFS+nnj9HAJl3Ap/bxxeriES7iUft44PVzCJVxKP2+cHi7hEi6lnzdOD5dwCZfSzxunN+XyB+9fD19TgeJTAAAAAElFTkSuQmCC』
//色相選択用
虹画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,24』
もし『rainbow_cc.png』が存在ならば
虹画像の0,0へ『rainbow_cc.png』を画像描画
違えば
文字化画像は文字化画像をBASE64デコード
文字化画像を『rainbow_cc.png』に保存
虹画像の0,0へ『rainbow_cc.png』を画像描画
//カーソル用
//大きめに作って縮小し、アンチエイリアスをかける
上カーソルとはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,27,27』
線スタイルは『透明』
塗り色は$909090
上カーソルに『13,0,0,27,27,27』で多角形
上カーソルを9,9で画像リサイズ
左カーソルとはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,27,27』
線スタイルは『透明』
塗り色は$909090
左カーソルに『0,13,27,0,27,27』で多角形
左カーソルを9,9で画像リサイズ
//色選択フォームの部品
//彩度と強度の選択用
彩度強度パネルとはイメージ
その親部品は色選択フォーム
そのサイズは『0,0,226,222』
//色相の選択用
色相パネルとはイメージ
その親部品は色選択フォーム
そのサイズは『0,222,226,268』
虹画像を色相パネルの16,0へ画像コピー
//カーソルの下の色の拡大表示用
//兼、新規作成時パレット追加用
現在色パネルとはイメージ
その親部品は色選択フォーム
そのサイズは『230,222,262,254』
//色表示部品
元色とはイメージ
その親部品は色選択フォーム
そのサイズは『230,16,262,48』
//
文字サイズは16
文字色は$909090
色選択フォームの265,21へ『→』を文字描画
文字色は$000000
//
新色とはイメージ
その親部品は色選択フォーム
そのサイズは『290,16,322,48』
//
文字色は$909090
色選択フォームの230,95へ『Ｈ』を文字表示
文字色は$000000
//
Ｈエディタとはスピンエディタ
その親部品は色選択フォーム
そのサイズは『260,90,322,122』
//
文字色は$909090
色選択フォームの230,135へ『Ｓ』を文字表示
文字色は$000000
//
Ｓエディタとはスピンエディタ
その親部品は色選択フォーム
そのサイズは『260,130,322,162』
//
文字色は$909090
色選択フォームの230,175へ『Ｖ』を文字表示
文字色は$000000
//
Ｖエディタとはスピンエディタ
その親部品は色選択フォーム
そのサイズは『260,170,322,202』
//
色反映ボタンとはボタン
その親部品は色選択フォーム
そのサイズは『270,222,322,254』
そのテキストは『ＯＫ』
//状態記録用のグローバル変数
選択X座標とは整数
選択Y座標とは整数
色相X座標とは整数
変更前色とは整数
透明色対応とは整数
元色モードとは整数
新色モードとは整数
変更イベントとは整数
//
色選択キャンセルとは文字列
現在新色とは整数
//グローバル変数の初期化
選択X座標は201
選択Y座標は16
色相X座標は16
変更前色は0
透明色対応は必要
元色モードは『定義』
新色モードは『定義』
変更イベントはオン
//範囲チェック
●色収得可能(X座標,Y座標)
もしX座標が16未満ならば
それは0
戻る
もしX座標が202以上ならば
それは0
戻る
もしY座標が16未満ならば
それは0
戻る
もしY座標が202以上ならば
それは0
戻る
それは1
戻る
//現在色の表示
●現在色パネル表示(色名で)
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は色名
現在色パネルの0,0から32,32へ四角
//現在色をしらべて表示する
●現在色反映
//念のため：選択X座標、選択Y座標のチェック
選択色とは整数
もし色収得可能(選択X座標,選択Y座標)でなければ
戻る
選択色は彩度強度パネルの選択X座標,選択Y座標を画像色取得
選択色で現在色パネル表示
//彩度強度カーソルの表示
●彩度強度カーソル表示
//念のため：選択X座標、選択Y座標のチェック
もし色収得可能(選択X座標,選択Y座標)でなければ
戻る
//古いカーソルを白色で塗りつぶす
線太さは1
線スタイルは『実線』
線色は白色
塗り色は白色
彩度強度パネルの0,202から222,226へ四角
彩度強度パネルの202,0から222,226へ四角
＃カーソル画像コピー
上カーソルを彩度強度パネルの(選択X座標-4),202へ画像コピー
左カーソルを彩度強度パネルの202,(選択Y座標-4)へ画像ANDコピー
//色相カーソルの表示
●色相カーソル表示
//念のため：色相X座標のチェック
もし色相X座標が16未満ならば
戻る
もし色相X座標が202以上ならば
戻る
//古いカーソルを白色で塗りつぶす
線太さは1
線スタイルは『実線』
線色は白色
塗り色は白色
色相パネルの0,24から226,42へ四角
//カーソル画像コピー
上カーソルを色相パネルの(色相X座標-4),24へ画像コピー
//現在の状態をみて、元色を設定する
●元色更新
選択色とは整数
もし透明色対応が必要ならば
もし元色モードが『透明』ならば
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は白色
元色の0,0から32,32へ四角
線スタイルは『点線』
元色の8,8から24,24へ四角
線スタイルは『実線』
戻る
もし元色モードが『未定義』ならば
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は白色
元色の0,0から32,32へ四角
元色の0,0から31,31へ線
元色の0,31から31,0へ線
戻る
//選択X座標、選択Y座標が彩度強度に使用できる場所なのか確認
もし色収得可能(選択X座標,選択Y座標)でなければ
戻る
//目的の色を取得する
選択色は彩度強度パネルの選択X座標,選択Y座標を画像色取得
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は選択色
元色の0,0から32,32へ四角
//現在の状態をみて、新色を設定する
●新色更新
選択色とは整数
もし透明色対応が必要ならば
もし新色モードが『透明』ならば
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は白色
新色の0,0から32,32へ四角
線スタイルは『点線』
新色の8,8から24,24へ四角
線スタイルは『実線』
戻る
もし新色モードが『未定義』ならば
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は白色
新色の0,0から32,32へ四角
新色の0,0から31,31へ線
新色の0,31から31,0へ線
戻る
//選択X座標、選択Y座標が彩度強度に使用できる場所なのか確認
もし色収得可能(選択X座標,選択Y座標)でなければ
戻る
//目的の色を取得する
選択色は彩度強度パネルの選択X座標,選択Y座標を画像色取得
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は選択色
現在新色は選択色//
新色の0,0から32,32へ四角
//色角度に対応した画像を作成して、彩度強度パネルにコピーする
●彩度強度パネル表示(色角度で)
透明度とは整数
もし色角度が60以下ならば
赤画像を作業画像の0,0へ画像コピー
透明度は色角度*100/60
黄画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が120以下ならば
黄画像を作業画像の0,0へ画像コピー
透明度は(色角度-60)*100/60
緑画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が180以下ならば
緑画像を作業画像の0,0へ画像コピー
透明度は(色角度-120)*100/60
空画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が240以下ならば
空画像を作業画像の0,0へ画像コピー
透明度は(色角度-180)*100/60
青画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が300以下ならば
青画像を作業画像の0,0へ画像コピー
透明度は(色角度-240)*100/60
紫画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が360以下ならば
紫画像を作業画像の0,0へ画像コピー
透明度は(色角度-300)*100/60
赤画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
//現在の状態をみて、彩度強度パネルをセットする
●彩度強度パネル更新
色相とは整数
色相は(色相X座標-16)*360/186
色相で彩度強度パネル表示
//以下の関数は３つで１セット
//選択されているパレットの色から、状態を変更する
●部分色角度(最大値,中間値,最小値)
もし最大値が最小値ならば
それは0
戻る
それは60*(最大値-中間値)/(最大値-最小値)
●彩度(最大値,最小値)
もし最大値が最小値ならば
それは0
戻る
それは最小値/最大値
●ＨＳＶ分解(色整数を)
Ｒとは整数
Ｇとは整数
Ｂとは整数
Ｈとは整数
Ｓとは整数
Ｖとは整数
色タイプとは整数
//ＲＧＢに分解
ＲはFLOOR(色整数/65536)
ＧはFLOOR((色整数%65536)/256)
ＢはFLOOR(色整数%256)
//６タイプに分ける
色タイプは0
もし、INT(Ｒ)がINT(Ｇ)以上ならば
色タイプは色タイプ+1
もしINT(Ｇ)がINT(Ｂ)以上ならば
色タイプは色タイプ+2
もしINT(Ｂ)がINT(Ｒ)以上ならば
色タイプは色タイプ+4
//ＨＳＶを計算
色タイプで条件分岐
1ならば
Ｈは300+部分色角度(Ｒ,Ｂ,Ｇ)
Ｓは彩度(Ｒ,Ｇ)
ＶはＲ
2ならば
Ｈは60+部分色角度(Ｇ,Ｒ,Ｂ)
Ｓは彩度(Ｇ,Ｂ)
ＶはＧ
3ならば
Ｈは60-部分色角度(Ｒ,Ｇ,Ｂ)
Ｓは彩度(Ｒ,Ｂ)
ＶはＲ
4ならば
Ｈは180+部分色角度(Ｂ,Ｇ,Ｒ)
Ｓは彩度(Ｂ,Ｒ)
ＶはＢ
5ならば
Ｈは300-部分色角度(Ｂ,Ｒ,Ｇ)
Ｓは彩度(Ｂ,Ｇ)
ＶはＢ
6ならば
Ｈは180-部分色角度(Ｇ,Ｂ,Ｒ)
Ｓは彩度(Ｇ,Ｒ)
ＶはＧ
7ならば
Ｈは0
Ｓは1
ＶはＲ
もしＨが360以上ならば
Ｈは0
(Ｈ&『,』&Ｓ&『,』&Ｖ)で戻る
//初期化関数
●元色設定(色整数を)
Ｈとは整数
Ｓとは整数
Ｖとは整数
//バックアップ
変更前色は色整数
もし色整数が空ならば
色整数は赤色
元色モードは『未定義』
新色モードは『未定義』
もし透明色対応が必要ならば
もし色整数が『transparent』ならば
色整数は赤色
元色モードは『透明』
新色モードは『透明』
//計算したＨＳＶから状態をセット
色整数をＨＳＶ分解して『,』で区切る
Ｈはそれ[0]
Ｓはそれ[1]
Ｖはそれ[2]
選択X座標は16+ROUND(Ｖ*185/255)
選択Y座標は16+ROUND(Ｓ*185)
色相X座標は16+FLOOR(Ｈ*186/360)
//すべて表示
彩度強度カーソル表示
色相カーソル表示
彩度強度パネル更新
元色更新
新色更新
ＨＳＶ表示
現在色反映
//ＨＳＶの数値表示
●ＨＳＶ表示
変更イベントはオフ
ＨエディタのテキストはFLOOR((色相X座標-16)*360/186)
ＳエディタのテキストはROUND((選択Y座標-16)*255/185)
ＶエディタのテキストはROUND((選択X座標-16)*255/185)
変更イベントはオン
//彩度強度パネルのイベント
彩度強度パネルのマウス押した時は～
クリックX座標とは整数
クリックY座標とは整数
クリックX座標は彩度強度パネルのマウスX
クリックY座標は彩度強度パネルのマウスY
もしクリックX座標が12未満ならば
戻る
//彩度カーソルだけを移動する場合
もしクリックX座標が205以上ならば
もしクリックX座標が215以上ならば
戻る
もしクリックY座標が12未満ならば
戻る
もしクリックY座標が205以上ならば
戻る
もしクリックY座標が16未満ならば
クリックY座標は16
もしクリックY座標が202以上ならば
クリックY座標は201
選択Y座標はクリックY座標
彩度強度カーソル表示
現在色反映
新色更新
ＨＳＶ表示
描画処理反映
戻る
もしクリックY座標が12未満ならば
戻る
//強度カーソルだけを移動する場合
もしクリックY座標が205以上ならば
もしクリックY座標が215以上ならば
戻る
もしクリックX座標が12未満ならば
戻る
もしクリックX座標が205以上ならば
戻る
もしクリックX座標が16未満ならば
クリックX座標は16
もしクリックX座標が202以上ならば
クリックX座標は201
選択X座標はクリックX座標
彩度強度カーソル表示
現在色反映
新色更新
ＨＳＶ表示
描画処理反映
戻る
//選択用の画像のそばをクリックした場合
//近くの画像内に移動
もしクリックX座標が16未満ならば
クリックX座標は16
もしクリックX座標が202以上ならば
クリックX座標は201
もしクリックY座標が16未満ならば
クリックY座標は16
もしクリックY座標が202以上ならば
クリックY座標は201
//彩度強度カーソル両方移動
選択X座標はクリックX座標
選択Y座標はクリックY座標
彩度強度カーソル表示
現在色反映
新色モードは『定義』
新色更新
ＨＳＶ表示
描画処理反映
//
彩度強度パネルのマウス移動した時は～
選択色とは整数
もし色収得可能(彩度強度パネルのマウスX,彩度強度パネルのマウスY)ならば
選択色は彩度強度パネルの(彩度強度パネルのマウスX),(彩度強度パネルのマウスY)を画像色取得
選択色で現在色パネル表示
違えば
現在色反映
//色相パネルのイベント
色相パネルのマウス押した時は～
クリックX座標とは整数
クリックY座標とは整数
色相とは整数
クリックX座標は色相パネルのマウスX
クリックY座標は色相パネルのマウスY
もしクリックX座標が12未満ならば
戻る
もしクリックX座標が206以上ならば
戻る
もしクリックY座標が36以上ならば
戻る
色相X座標はクリックX座標
もし色相X座標が16未満ならば
色相X座標は16
もし色相X座標が202以上ならば
色相X座標は201
彩度強度パネル更新
色相カーソル表示
現在色反映
新色モードは『定義』
新色更新
ＨＳＶ表示
描画処理反映
//
色相パネルのマウス移動した時は～
現在色反映
//元色のイベント
元色のクリックした時は～
変更前色を元色設定
//元色のイベント
新色のクリックした時は～
もし新色モードが『未定義』ならば
新色モードは『定義』
新色更新
戻る
もし透明色対応が必要ならば
もし新色モードが『定義』ならば
新色モードは『透明』
新色更新
戻る
もし新色モードが『透明』ならば
新色モードは『未定義』
新色更新
戻る
もし新色モードが『定義』ならば
新色モードは『未定義』
新色更新
戻る
//ＨＳＶエディタのイベント
Ｈエディタの変更した時は～
Ｈ値とは整数
もし変更イベントがオンでなければ
戻る
変更イベントはオフ
Ｈ値はINT(Ｈエディタのテキスト)
もしＨ値が0未満ならば
Ｈ値は空
もしＨ値が360以上ならば
Ｈ値は359
もしＨエディタのテキストが空でなければ
ＨエディタのテキストはＨ値
色相X座標は16+FLOOR(Ｈ値*186/360)
彩度強度パネル更新
色相カーソル表示
現在色反映
新色更新
変更イベントはオン
Ｓエディタの変更した時は～
Ｓ値とは整数
もし変更イベントがオンでなければ
戻る
変更イベントはオフ
Ｓ値はINT(Ｓエディタのテキスト)
もしＳ値が0未満ならば
Ｓ値は空
もしＳ値が255超ならば
Ｓ値は255
もしＳエディタのテキストが空でなければ
ＳエディタのテキストはＳ値
選択Y座標は16+ROUND(Ｓ値*185/255)
彩度強度カーソル表示
現在色反映
新色更新
変更イベントはオン
Ｖエディタの変更した時は～
Ｖ値とは整数
もし変更イベントがオンでなければ
戻る
変更イベントはオフ
Ｖ値はINT(Ｖエディタのテキスト)
もしＶ値が0未満ならば
Ｖ値は空
もしＶ値が255超ならば
Ｖ値は255
もしＶエディタのテキストが空でなければ
ＶエディタのテキストはＶ値
選択X座標は16+ROUND(Ｖ値*185/255)
彩度強度カーソル表示
現在色反映
新色更新
変更イベントはオン
//インターフェース
//色選択ＯＫボタン
色反映ボタンのクリックした時は～
色選択キャンセルは、いいえ
色選択フォームを閉じる
//色選択フォームのイベント
色選択フォームの表示した時は～
色選択キャンセルは、はい
色選択フォームを中央移動
//ＨＳＶ色選択
●ＨＳＶ色選択(現在色から透明色対応有無で)
色選択キャンセルははい
もし透明色対応有無が『透明色未対応』ならば
透明色対応は不要
もし現在色が『transparent』ならば
現在色は空
現在色を元色設定
色選択フォームをモーダル表示
戻る
もし透明色対応有無が『透明色対応』ならば
透明色対応は必要
現在色を元色設定
色選択フォームをモーダル表示
戻る
//選択色収得
●選択色収得
もし色選択キャンセルならば
新色モードは元色モード
現在新色は変更前色
もし新色モードが『未定義』ならば
空で戻る
もし新色モードが『透明』ならば
『transparent』で戻る
現在新色で戻る
*//サンプルプログラム
//テスト
テスト色とは整数
テスト色は緑色
//『透明色対応』or『透明色未対応』
//ダイアログ右上の四角クリックで、色、未定義色、透明色の切り替え
テスト色から『透明色対応』でＨＳＶ色選択
//ＯＫを押さなければ元の色番号がそのまま戻る
//未定義色は空、透明色は『transparent』が戻る
テスト色は選択色収得
(『選択された色は"』&テスト色&『"です』)と言う
//母艦の可視をオフにしているので忘れず閉じる
終わり
----
#comment()
----
*情報
作者名：はっぱ
引用元：[[なでしこプログラム掲示板「はっぱのサンプル集５７」>http://www.himanavi.net/cgi/nade-bbs/cbbs.cgi?mode=al2&namber=734&rev=&no=0]]
*概要
色選択フォームユニット。
color_cc.png、rainbow_cc.pngを初回起動時に生成。
#image(無題.PNG)
*解説
***引数
現在色：初期状態の色
透明色対応有無：『透明色対応』or『透明色未対応』
***返り値
選択した色
*本体
色選択フォームとはフォーム
そのサイズは『350,250,702,552』
そのスタイルは『ダイアログスタイル』
そのタイトルは『色の選択』
//組込データ
//サイズ縮小のため、ＲＧＢごとに分解してある
文字化画像とは文字列
文字化画像は『iVBORw0KGgoAAAANSUhEUgAAAi4AAAF0CAIAAACL1SWEAAAAB3RJTUUH1QgYDh8GBV2VLAAAABd0RVh0U29mdHdhcmUAR0xEUE5HIHZlciAzLjRxhaThAAAACHRwTkdHTEQzAAAAAEqAKR8AAAAEZ0FNQQAAsY8L/GEFAAArzElEQVR4nO3dibd+ZVXA8UMKCBIJgg1q
UUGo5DxlZs6Ks5iaY6KQ8wSaU2iKKJGoKEqaOGQDTmVamZpDGWqpoYkmamppWVlZrWo1rupd77ves857nr33s5/p3HsO39/af8HvftZ+9nTu7Tr+8Y9//OMf//hX698BRONY1L89/99cfCzq357/by4++DGmxLcsJa6QFXCBC1zgsn+57PnPcP/8JPN+CNXjim0CLnCB
C1z2C5fF/ORn/XMbxoGTxEH7OZPABS5wuZxw2f8c9vkPucVPr24cHAu4wAUucNkzLvvBxT75+e+TH3L0pxqNK2UFXOACF7jsAZfpdeyJhel/7BP/kFdxSEEcug24wAUucJmaywRGphExjYIJfuwlP2d/XFkPuMAFLnCZlEs7I+1oNOLQjkC7H7vxAw/jMHfABS5wgct0
XKozqU5jr0RUh1D9h+/8sX+rOw4fBFzgAhe4TMelFpNaQCrSqCViYgi1fv6HO+Lb9IALXOACl4m4lDOpYqScxjQoyi2UKygksImrxOKIvMQCF7jABS4ZXEqkFBppqqMpiqYcmio4wowjdwMucIELXKbgki2lkZFsHSU0WqBoxCEbwpFmXFUJuMAFLnCZgkt1KdWN5AHJ
oFEdRXUOeRY0CKs4So+j1wEXuMAFLlNwSZWSwSTDSEUdGTVJRRcZKCpysCGIcbXdgAtc4AKX5lxqSUllUstIEpBaNFJd1EJRhcPVlPh2JeACF7jApTmXJCxJUpKYlANJqkySdCTRSHJRXoEkidA4fIcU37kNuMAFLnBpzqVQip/JlEb8QPw6/DQKXfhRVBQxjO/aDbjA
BS5wac7FiaVESiGTukCq6yihUeKirohVXF2Ka+TlFrjABS5wSeJSUYqzXGltJBtIto66NLJdeESIKK4hxTW3ARe4wAUuzbnkYckrVzxMmhrxAMnT0ZRGngsPimsG8d1BwAUucIFLWy6TSanFJGpkMiAeHVVoTObie4I4Zh1wgQtc4NKWSxRLhpRouZLBpIWRKJCM4iSq
I6MmidKIughLEc1FH987CLjABS5wacslFUuqlGi5ksok2ienliipQKLFSWFZUp1GkotVfF8QcIELXODSlkth0ZIkpS6TpkaSipNoV5ykoy6NVBffvxvHrgMucIELXNpyKSlaKkppx8QwUhFIOx3taIgu+jhuEHCBC1zg0paLgaWWlFpM9puRWkCyddSicdxu/MBuHO/M
LXCBC1zgks0lr2ipIqUFkypG/CWKH4hRnLTQUUKjj2ttAy5wgQtc2nJxYjGKlnIpeUyMQsWY1OYZMUqUciB5OoyyxGiGPTQ2ce1BwAUucIFLWy4Z/XOGFKNtdk5tM5gYhUqGEaNEaQfEWZk4dRyv6xjSuM5unODJLXCBC1zgUsLFg8XZPHukGG1zIyYVjWRMZzUgxkKw
kQ6NxrUDGn384DbgAhe4wKUtlxIsJVL2CZMSI43qEw+QEh1RGqu47m7ABS5wgUtDLnOUksRkPxhpCqSFjusN4vrrgAtc4AKXhlyqYKkipQqTKoVKFSNVgFQpTvJ0bOIG24ALXOACl4ZckrBEi5YkKUnlSl0mSYVK1EhSiZJUn0SBJBUnSTpuOIgb5eUWuMAFLnBxcoli
EYuWaPOcJyVaruQ1zOWFSl6VEi1R8trjKJBoceLR0ceN1wEXuMAFLg25iFj8RUu0eS6UIpYrrZmIhUqhEX+HHG2P/UDE4uQGEpBQxypuMgi4wAUucGnIJQOLv3nOkOIvV8Se2WYidsv+QmUaI02BiMXJjSUgNx3EzUpyC1zgAhe4RLnYWOz+2W6ebSni+NaWYpcr9tTW
ZmIXKuKw1p7U2kbEGa1zOVgdyE0kIDfbxs23ARe4wAUuDbk4R7l2/2wPcVOl2G2zs2euy8QuVOoasUuUukBuagL5oW3cIswtcIELXOBSkUt2/+xsnrOlpJYrzqltdrfsbJXLjdjnKRWB3CwGZBM/vA64wAUucGnIpbx/TpJiT3CTyhVnz+xhYi8NPYVK6qTW0yTb5ynG
crAWkFXcchtwgQtc4NKQiwdLnhS7aKklpRYTe2SbV6gUGkkC4jSSBORHtnGrpNwCF7jABS6pXNphmYuUWRtpCmQTP7oOuMAFLnBpyCUDy2RSJitXpmcymZESIKu49TbgAhe4wKUhFw1LSdFSIqWkXMnrmcuZlBQqJUZKShQPkNts47bR3AIXuMAFLiVcRlj8/bO/aGkh
xV+u+O9X/Ez8hYq/Va5oxF+i2EA2cbt1wAUucIFLQy6pWLKLlnIp0ba5fHCrMYl2y9FCJdoqtzMSLVE0IKu4/TrukJ1b4AIXuMDFw8WJReuftaJFa56rS0ktVyZjohUqWqucaiS7SdZKlBGQjZFV3HEdcIELXODSkIs4yr1Cbv/sbJ6dm0RtfKu1zc5yRRvcOhvm1G7Z
Wahou0JnlZLaJBslytDInbYBF7jABS4NuSRhyStatOa5ipS8ckUb3FZh4pzXjgoV7VqlihGtSRZLlN7InbdxYl5ugQtc4AIXJxcRi90/5xUtJVKc49ukciWJidYw20ySChVnq2z3ybYRZ4kyNLKKu6wDLnCBC1wacinHklS0iEPcJCl225xUrtiD24mZ7BMjJ+4aues2
4AIXuMClIRcDS1L/LBYtHilH7ko5qlhKeblSziSpW85olcVdYbmRu+wauds27u7JLXCBC1zgks3lAP3ARcTiKVo8zXMtKZ622VOu2IPbukw881pPoSLuCj1GxCZ5ZOTu27jHOuACF7jApSGXKBZP/+wvWsQhbl0pYtssliuenlk8ovQzye6WxUJFbJXFXWF2lTIycs91
3MufW+ACF7jAJYNLHpbUosU/xBUvWgwp4vhWbJv95YrYM7djInbLRqEitsritUq5kVXcex1wgQtc4NKQS4hF3CqKo9xo0eJvnqtLEdtmY3Zr9MziJb+4Oowy8XfLeYWKeC9ZYmQVJ60DLnCBC1wacknCYvTP0aLFaJ7FoxanFGN8a7TNRrli9MziJX85E6NbNua10WGt
eK2SauQ+6/ixvNwCF7jABS5OLhoWY6sY7Z+jRUt0iFtLitE2O8sVo2eOrg6dTKLdcrRQMVrl8Folycgq7rsOuMAFLnBpyMXGEh3lDqWIWJKaZ+NLs2wp0bbZWa5EL/mzmRi3k855rbNVDo3cK2bkftuAC1zgApeGXDxYkvrnpKIletRiSzHOWTLa5uye2bk6LGTinNdq
RsRCRTPSM7n/On48KbfABS5wgUsql1QsSf2zR4rRPFeXknTIUji49TAx9oZ2t+yc13qMiIVKb2QVD1gHXOACF7g05FKCpXrRMrGU6uXKxEwqFiqakQeu40FVcgtc4AIXuGhc2mFpJ8U5wS2R0oJJdHVYi0ktIxsmq3jwBLkFLnCBy+WZyxyxzFHKvJj0RlbxkHXABS5w
gUsrLouXsngmrY08dB0/cTlJLHCBC1z2hMtkWCaTMnG5MhmTyQqVkZFVPGwdcIELXODSiksVLFWKlv0jpWK5sn+YZBQqPZOT1wEXuMAFLq24ZGCZpmiZUso05co0TCoWKhsjD1/HI7JzC1zgAhe4RLk4sST1z86ixdk8J01wnVKS2mZnueLsmZOmtk4mzm45qVDpjazi
lHXABS5wgUsrLlEstfrnaNESbZ7LpTjHt9G2OVquRHvmyZhEu2WjUNkwOXUdP+nMLXCBC1zgksHFwBId5Rr9s1G0lDTPhpToRUvJ+DavXIn2zMb9SgmTkm55WKj0TFbxyGhugQtc4AKXbC55WMT+Oa9oSW2ep5FitM155YrYM+cdUaYyMbplsVA5ZdfIKh61DrjABS5w
acVFxJK6VRT759SiRWyexSFuFSni+Da1bfaXK6nbQz8TY28oMhG7ZbFQ2TB59DoeY+QWuMAFLnAp5OLH4h/leooWf/MsDnGPlY5a6koR22Z/ueLvmcXBrf9+xcPE3y0PC5WeyWPXARe4wAUurbh4sHhGuZ4rS/8+0TPErSXFM771XPX7yxXP4HZKJmG3vDHSM3lc1z3e
n1vgAhe4wCWVywiL59Yyo3/OKFo8Q9zRUUu5lIy2OaNc8QxuT9rtmcuZeEa2j95l8rgtk1U8QcwtcIELXOBShYuNxR7lZvTPdtFiN897K8Vum+1yJaNnHg1u7SPKJCajka3YLY+YPHEdcIELXODSiktFLHlFS1LzbC8TeyknpEgZrRHt8a3dNpeUK3bPPD2TJwyYPKnr
nlw9t8AFLnCBS8/FiSVplFtYtNjNszbEnVKK3TZrs1v7ikXrmUcnLPYlfyGTx+8yedKWySpOS8otcIELXOCSxEXDoh242KNc50oxWrQ4m+fRMrGWFOf41tk2a+WKs2ceDW6jTE72MQn3hiKT09Zx+jrgAhe4wKUVlx7LFRQs2lYxtX/WihZtn6g1z9oQ94TdIW51Kdr4
VmubtUMWrVxJ7ZmrM3miwuQp63jqKLfABS5wgUtFLuVYov1zdtGiNc/RZWIv5fq5UrQ1oja+je4Qo+WKdsUSHdyGTE5JbJijTH5qHXCBC1zg0oqLH0t0lBv2z9pK0V+0+Ie4o6OWKlK0NaK/bfaXK/6eWdsetmPytK57empugQtc4AIXP5cQy4FuLBn9c1i0aCeWRvMc
HeLWlaKtEY22WdshGuVKRs8cMjlVueQvZLKKZ2i5BS5wgQtcyrkYWKIHLgaWsH82ihbtxNLTPHuk3Ei58E+SYrTNmpSwbfaUK9oVi9EzJzHRVocGk2euAy5wgQtcWnFJwmKMco3+2VO0aCeWRtFiDHH7ZeIEUjxtc1K54j+lNHrmfnv4uOCSP4PJs7rupzNyC1zgAhe4
OLnsOZa85nkxUowF4v5hsooz9klugQtc4LJILqlYWvTP7ZrnRlLatc0teuZyJs9eB1zgAhe4tOJiY0ndKmb3z9lFS9IysUSKZ404lJLdNqeWK57t4ZO3Uk7fSkli8pyu+xlPboELXOAClzwuIhbngYuzf/asFP1Fi90821JunijFec7ibJvtcuXBieWKs2cWmTx1y+Rp
PiareK6RW+ACF7jApZDLEIt99m+Pcu3+uaRosZtne4grSrlFDSn2+NZum+2rfrtcsXtme3ArMnmGg8nzuu7MMLfABS5wgUstLoVYxFGu3T/7i5aM5llcJopSbllbiji+tdtmcYcoliv2AlHsme3B7ZDJs2JMVvH8KrkFLnCBC1xELlEs4oGLf5Qr9s/hlWVS0eJvnofL
xEIp4jmLuEb037KIO0R/ueLvmcXB7ZDJGRKT522ZnLUOuMAFLnBpxUXD4j9wGY5y/f1zXtESbZ6jy8ShlFu5N4l5UsTxbXSHGJ3d+q9Yhj2zuD0cMnmOzuQFXfdCO7fABS5wgUsJl2ws0VHusH+OXlkOi5boPjHaPEeXiXWlDNeI0fFttG2OHrIMyxXximXYM0cHtxqT
5w+YrOLswtwCF7jABS4GFw+W4YFLdKuo9c9a0XJMrGhJap61Ia541HLrwW8irC5lOL6N3rIM2+boIYtWriT1zMPB7XMHg1uRyc+uAy5wgQtcWnEpwaKNcrX+uXrRojXP2hC3REr0vN8jRbtl0XaInnJFXCBqp5Ta4PbMQc/8gq2Unsk5Xfdz5bkFLnCBC1w0Lgfs/pHF
A5Uv0LStojbK1fpn7coytWjxNM/aEHe4TLztYJl4B+WL51HFop1VamtEbXyrtc3DHWJJuZLaMw8Ht2dvpWyYrOJFfW6BC1zgApfqXOpiSe2fhyvF0WmLZ5/obJ73pxRP2/xY5ap/NLvVFogZPbPI5Nyue3GL3AIXuMAFLhsufiyereIIi7N/dhYtGc2zZ5nYVIpzfOts
mzPKFWfPPBzcnrOVsmGykfKS1NwCF7jABS5+LjYW54GLMco1+ufyosVono0h7kjK7X1S7uGTop2z2ONbZ9tsHLIY5YrRM2uD2xcNypUVk5euAy5wgQtcWnFJwmJsFY1R7qh/NlaK/qLFaJ6NIa6xTLzTYJlYS4qxRjTGt6O2WdshJpUreT3zS7ZSzuu6l2XkFrjABS5w
cXIJsRzkxuIf5Y7659FKcVS0HK8XLaN9or95Hg1xbSl3cUsxzvtHUkZrRGN8a7fNxiGLXa6cqZcro575xYNyZcNkFS/Xcgtc4AIXuJRziWIZ3VqOtoqjUW52/3zcbv+cVLTYzfNoiDtaJo6OK/dEymh8a7fNox1iUrkyumIZ9czn7vbM522lrJicvw64wAUucGnFpRzL
aJSb1D+PVoolRUvYPNtD3NEy8cTdI/+77/4mwtGFf9g5j8777XOW0RpxNL4d3bLYbXNquTJaINo988u3Ul7Rda+slVvgAhe4wCXk4sEyurW0t4oZ/XNq0TLaJ0ab59EQ114mTiAlaXwb3SGOrvrLy5WXDcqVDZNVXODPLXCBC1zgkspFxHJwDIu9VQwPLcOD/3ClGC1a
RieW4T4x2jxHl4l32z2uvNfubyLMk/KImJTo+DbaNo+u+sNDlrBcEa9Yzttl8ootk5/vulcZuQUucIELXAq5OLEcFmAJt4r2KFfsn48Nriwzipbwk7OweY4Oce8aHPl7pDwgXUq4RoyObz1t8+iqPzxkCcuVcIE46pk3TDZSXp2UW+ACF7jAJYnLAdLf+z1Y+gItPHAJ
t4rhKDfsn8OV4ujK0lm0hPtET/McDnHDZeI9d5eJ9wl+A1RTKeH4NrxlEXeIeeXKeUG58srdcmXF5BfWARe4wAUurbgUYvGMcsPrFnGleK1dLFrR4tknis1zOMQNl4nhUUuJlFMCKeE5S7hGFMe3nrY53CGWlCuvGkh5TdddWCW3wAUucIGLyCUJi3jg4hzliv1zuFK8
zi4Wo2gJ94nhJ2di8ywOccNl4knBX6q6v/SbNwqliGvEcHz7zECK2DafJV31h4cs/nLlNVspr83ILXCBC1zg4uRiYDlEwhIeuBwl/XIo8dBS65/DlWJS0RLuE7XmWRzihsvEe0tH/uVSwrNKbY0ojm/FWxaxbT47aJu1cuV8qVx59W65smLyuq57fTS3wAUucIFLNhcb
S3j2Lx64iFvF1P45XCmmFi3iPlFrnsUhrnhceb/gL4Q8SPnSrJYU//hW2yGeE0jRDlk2TMJy5cJdKW/w5Ba4wAUucMnjkodFPHDRRrlJ/fMJwV8OiRYt4j5Ra57vLDXP2jLxvsFHz3WliOcsT5Nu+89QPjAz2mZxh2jMbrVy5Q3r+MWS3AIXuMAFLjaXAwa3liIW8exf
O3AxRrlG/yyuFK8nfQBtn1jeSvptUHbzrA1xxePKXsqDFSnhRUs/vhWliOcs2hrRGN8abfNLpLbZmN2G5cqKyRu77pdGuQUucIELXCpy8WARz/6NraIxyjX6Z+3KMlq0aPvE20lFy4n6nb+xTOylPGgSKdoa0RjfGm3zedInzv5yZSPll/25BS5wgQtcUrk4sWi3lsZW
sZcSYjlWP/jvpYRYPEWLtk807ivtIW4v5YG6lIdnSTldl/IsXYoxvrXb5vOlT5w95cqKya+sAy5wgQtcWnE5YPdjaAOLdmt5tP752bBoEbFEV4o3VD6Adu4T7ebZHuIaRy29lJNNKdoENyrFXiMa49to23zB7ifOnnJlxeRXu+6iMLfABS5wgUstLklYtFtL5yg32j8b
V5bOosXYJ0bvKz3LxF7Kw8qkPCUm5dmmFHt862mbR1f9RrmykfKmjNwCF7jABS5OLqlYtFtL/yjX0z/3UkQsSUWLfdfiHOLaR/6nOr40S5VinLM4x7eetrlnIkrpmby5696Sl1vgAhe4wMXDZYTlIAcW+8DFP8o9PvYNdF7Rcjv91D+UYjTPnqOWkZRH1ZNin7OMyhVD
ypCJ0TYPmYhS3irmFrjABS5wqcIlxHKwD4t94CIWLQYW/5VlKCVatCQ1z70UY4gbSnlkbSnPjZ2zJI1vk3aIIyYbKW/Tcgtc4AIXuJRzEbFcyY3FuVXM659HUjQseftE/52/IUU8aqkl5Uy3lJc6PjDTyhVbyobJr3Xdrxu5BS5wgQtcCrloWA5JxNJLcWIJpXj6Z1GK
v2jJaJ5TjyuzL1q0NWKSlCETj5SQiSbl7XZugQtc4AKXEi4GlkOzsFzd8Rs5/EWLB0v2qb9TimeZaEg5rUDKC5S/CuIc3756+8dAnFI0Jqv4jWhugQtc4AKXbC42livHPob2j3J7KUlYGhUteXf+SVJGzXO2lLOVvwqSNL7Nbps3TN7Rde/05Ba4wAUucMnj4sHiP/vP
7p+v6/gGOqNoGUnJKFqSpGhD3EIp5/i+dXZK8ewQQym/6c8tcIELXOCSyiUJS8mBS0b/XPG0Ja95rnLUUkvKkEkLKQaT3+q6387ILXCBC1zg4uRSgqXKzX9J/1xdSpXmubWUkMkEUt5VnlvgAhe4wEXj0g5LRSmTYZmjlCQm2VJ+p3VugQtc4HJ55jILLEhpNL51Mnl3
171nRrkFLnCBy+y4XM6xIMUp5b3kFrjABS7tuEyMZV9JaVG0LFXK7+5JboELXOByOeFSC8t+K1r2W/O836QkMXlf172/bm6BC1zgApchlwwsU/bPkxUtUzbPk0mpUq5spHwgO7fABS5wgUuUix9Li1Fui6KlRfPcYojbQkr1tvl9ayYf7LrfS80tcIELXODi5xLFUmWU
W6t/rlK0VGmeqywTq0ipNb7VypWNlN935ha4wAUucMngYmAp2SqW9M97VbTsyTKxRErJGtHZNvdSPhTNLXCBC1zgks1Fw5Jx4JI3ys3onzOKlozmOW+Im3HUkiEl45wlY3z7wS2TP+i6i+3cAhe4wAUuJVxELEkHLqmj3KT+uWnRktQ8Jw1xk44rm0pJGt+K5cpGyoeN
3AIXuMAFLoVcQiz+W0v/VrF6/+wvWvz7RGfz7B/i+o8rq0vxrxHttrmX8hEtt8AFLnCBSzmXPCzOraJnlFtxpegpWpz7xIpD3KiUc6tKqbVG/NCAyUe77g9Lcgtc4AIXuNhcRliiZ/9H1tgqevrn6EqxStESbZ49Q9zoMtGW8uJKUjznLEnj26GUPxJzC1zgAhe4VOGS
hCV64GKPcgv7Z7touWvxL4Sym+foENdeJhpSNkVLUynRNaLWNm+kfKzrPp6RW+ACF7jAxclliOUgE0vJgYsxyrX7Z3ulmF202PtEu3k2hrj2MtE+8s++rCw5q7THt5tyZSPlE2FugQtc4AKXWlycWIxbS2OraIxyjf45e6WYV7Tk3bUYQ1xjmWgc+VeXYpyz2GvEYdvc
S/njpNwCF7jABS5JXDxYMm4tM0a5Rv+srRQzipaMU/+MO39jmagdV2pSLqwqxb9G7KWsmFzSdZ/05xa4wAUucEnl0mM5UMGSemuZOsrV+mdtpZhatGgnlto+UWueU4e42jJRlHJ+PSmpZ5XaGrEvVzZSPjXKLXCBC1zgUpFLHhbtwCVplJt03aKtFMuLFm2fKDbP2n1l
0jJRO64Mpbw2cZOYJMVeI46kfLokt8AFLnCBi83FxpJ09i9uFf2jXP/Bv3hlmTTH9e8T/feVSctE8bgylPK6YiniWaW4RvxoML7dSPmTtZRLPbkFLnCBC1zyuKRi8R+4+Ee5zv5ZXCmGRctJ7qJF3Cf671qcQ1z/cWUo5fWTSBHXiJtypZfymbzcAhe4wAUuHi4GlsN8
WMQDl3Cr6Dy0dB78hytFZ9EinliG+0TnXYt4X+lZJorHlR4pFxVIEc8qQymXSFL+NJpb4AIXuMAlm0sSFs+tZbhVdI5yPf1zuFKsWLSE+0RP8+wc4nqOWl4TfGzWVIpxztJLWTH57FrK5zJyC1zgAhe4OLlssFzR8edEPLeWnq2i59By1D+HK8XwyjKvaPHsE6PNs2eI
6zlquTA48h9JeZPvsnIkJTzv/3Ag5ROBlEt3pVw2zC1wgQtc4FKXSzYWz4FLdJSb0T9HryyjRcvDHSeWGc1zdIg7WiaGx5Xhx2Z7IuXTgZTPd90XCnMLXOACF7gYXJxYjoid/Ue3itFRrt0/R1eKJwVXlnbREp5YRk/9U5vn6DIxeuQ/lPLmBlK0c5ZeymVbKV9Myi1w
gQtc4JLERcRyaCIWe6sYHeUm9c/RlWJS0RKeWD7RPPW3m+foENc+arGlvCX2G6BsKRcnSvncrpQvGbkFLnCBC1wKuXiwXMX8Au0a5i/lsEe5o0NLu3+2V4olRYu9T7Sb5zN3m2d7iGsftbxh96ilnZTReX94zjKU8mdrKV/25xa4wAUucEnlkorFvrW0t4rGKDepf7ZX
itlFi71PNJrn0X1l0hDXOK68aPfIfyjlHeYXzy2kfCUvt8AFLnCBi4dLiOUQ87cVGreWxlbRHuXm9c/2lWVe0WLvE/3NszHENZaJbzQ/NnNKeX+ulM/uSvnirpS/0HILXOACF7iUc0nCcpSOZXTgcpz++ZlxaOnsn42V4v13ryydRcvj9a+fn67/NiijeTaGuMYy0Tjy
H0p5Zw0pn9SlfGFXyp+vpXw1I7fABS5wgYuTi43lcB2L88BltFXURrmjQ0utfzZWilrR8tCsosXYJzqbZ+cQ13lc+fbdj816Ke82vzQrlPKVgZSveXILXOACF7jkcfFjuaoPi7ZVdI5yM/rn+ygfnj1E/wBaK1pO04uWM5TfBvVC333lBcp3z8Yy8a3KR8+alA80k/KX
XfdXqbkFLnCBC1z8XPKwaLeW2lZRG+Uah5ae/lm7svQULcZXZ559oqd51oa4zmXi25Qj/3cpfzExVcpngs/MDClfL8ktcIELXOBiczlg+0cWN1iupPziXO3sXztw0baK2ig3tX/WVorDK8uSosWzT0xtnj1DXO2oZXhc2VTKlwdSvjaQ8jd9boELXOACl+pcWmDRtoqe
Ue6PSr+3/c7Kwb/nyvJk6XdCaV+dPUX5+lnbJ4rN83nKr4LyDHH9Ut6r/6Wqj0hfmhVK+dt2uQUucIELXFKxaGf/x0hYtM/PxFFuUv/sWSnmFS1J+8Sk5lkb4orLRO248t2Doxa/lEtypfz1Vso38nILXOACF7h4uHiwHBHDEj1wGW4VxVGueGgZ7Z+jK0WxaHl0StEi
7hOjzbN2XykOccVlYvS48v2Dj80+JP2FEFHKpTEpX1Wk/L0/t8AFLnCBSyoXDcthEpajY2f/4oGLuFUUR7li/3ynWP8srhSHH54VFi3iPvFs6ZMzsXmODnHFZaJ41PIe6aNnUcrH6kn5u7WUf7BzC1zgAhe4lHApx2IfuIhbRXGUKx5a+vtn+8Mzf9EinliK+8RzpN8G
Zd9XikNccZkoHrWIR/7TSPlmrdwCF7jABS4hlyiWq0hY7FtL8cDFOcq9zWCU6+yfxZViWLQ80l20iCeWZ5qn/uJdi31fGS4T3+Y+avng4Kjl4u1RSyjlk5Wk/GPX/ZMzt8AFLnCBSwaXIZaDTSziF2jOA5dwlHtTaZQrHlqG/bN48G9fWaYWLeKJZbhPPFf65MxunsMh
7lukIa591BJK+aj0l3tDKZflSvnnMLfABS5wgUstLhlYnLeW4VbxhtJWMRzlOvtn50oxu2gJ94lnSftE511L6hA3PGoRjys9Uj5TQ8q/ZOcWuMAFLnCJchGxXNn8bYUhlmOCAxfnVjEc5Wb3z8aVZVi0PMFXtKTuE43mORziXmQOcY2jFvG48mPbo5ZLgr/cW0XKvxq5
BS5wgQtcCrk4sVw1+ALNvrUMsYRbRWOU6+mfU1eKjwn+ckhS0RLuEys2z+EQN1wmhkcteVK+ZF74a1L+LSm3wAUucIFLEpeKWIwDl3CraIxybx98Bu3pn42V4qOCvy9fWLQYp/5JzbNniOs5avl48NHzpcFf7i2U8u/Vcwtc4AIXuPRcCrEYBy7GVjFplBvtn8OV4mRF
S17znDfEDZeJU0r5jyq5BS5wgQtcRC4eLEcGH0MbZ/8jLFVGuUn9s7ZSLClaPPvEC4LfBjVqnqsMcS/Wjys/Ffzyjct2/3JviZT/9OcWuMAFLnBJ5WJgOdyNxX/g4h/lZvTP/itLf9Fyln5iOSpa/M1zxhDXf9SiSfly8JvZ/VL+q+v+O5pb4AIXuMAlm0uI5dAYlujZ
f3SrGB3lRvvn+8X651P1K0tn0RI9sTT2ic7mOTrEjS4Tw+PKz+5+bKZJ+XqilP/Rcgtc4AIXuJRz8WM5WsFyTOzARdsqaqPcOwaHls7+WVsphh+eFRYt2j4xu3nWhrjaMjF61PL57VHLl7bHlaKUb7il/G9qboELXOACFz+XHstBCpYjFCza2b924DLaKmqj3Dsoh5Za
/6wd/I9WiqOi5fTcokU7sRztE1ObZ22I61wmaseVIylfU6R8U5/g9lL+b5Rb4AIXuMClIhewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBew
gIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVg
IbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxz
wQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF
3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3
wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8EC
F7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwC
F7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AF
LnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4
wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4
wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5w
WSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAF
LjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCF
pwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWRyX/wecUPKfgDFJaQAAAABJRU5ErkJggg==』
//画像初期化用：常に不可視
初期化画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,558,372』
圧縮画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,558,372』
作業画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
//彩度強度パネル用：常に不可視
赤画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
黄画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
緑画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
空画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
青画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
紫画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
//上の初期化
もし『color_cc.png』が存在ならば
初期化画像の0,0へ『color_cc.png』を画像描画
初期化画像の0,0,186,186を赤画像の0,0へ画像部分コピー
初期化画像の186,0,186,186を黄画像の0,0へ画像部分コピー
初期化画像の372,0,186,186を緑画像の0,0へ画像部分コピー
初期化画像の0,186,186,186を空画像の0,0へ画像部分コピー
初期化画像の186,186,186,186を青画像の0,0へ画像部分コピー
初期化画像の372,186,186,186を紫画像の0,0へ画像部分コピー
違えば
文字化画像は文字化画像の「{～}」を『』に置換
文字化画像は文字化画像をBASE64デコード
文字化画像を『tmp_cc.png』に保存
圧縮画像の0,0へ『tmp_cc.png』を画像描画
『tmp_cc.png』をファイル削除
//
圧縮画像の0,186,186,186を赤画像の0,0へ画像部分コピー
圧縮画像の186,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を赤画像の0,0へ画像ORコピー
圧縮画像の372,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を赤画像の0,0へ画像ORコピー
//
圧縮画像の0,186,186,186を黄画像の0,0へ画像部分コピー
圧縮画像の186,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を黄画像の0,0へ画像ORコピー
圧縮画像の372,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を黄画像の0,0へ画像ORコピー
//
圧縮画像の0,0,186,186を緑画像の0,0へ画像部分コピー
圧縮画像の186,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を緑画像の0,0へ画像ORコピー
圧縮画像の372,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を緑画像の0,0へ画像ORコピー
//
圧縮画像の0,0,186,186を空画像の0,0へ画像部分コピー
圧縮画像の186,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を空画像の0,0へ画像ORコピー
圧縮画像の372,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を空画像の0,0へ画像ORコピー
//
圧縮画像の0,0,186,186を青画像の0,0へ画像部分コピー
圧縮画像の186,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を青画像の0,0へ画像ORコピー
圧縮画像の372,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を青画像の0,0へ画像ORコピー
//
圧縮画像の0,186,186,186を紫画像の0,0へ画像部分コピー
圧縮画像の186,0,186,186を作業画像の0,0へ画像部分コピー
作業画像を紫画像の0,0へ画像ORコピー
圧縮画像の372,186,186,186を作業画像の0,0へ画像部分コピー
作業画像を紫画像の0,0へ画像ORコピー
//
赤画像を初期化画像の0,0へ画像コピー
黄画像を初期化画像の186,0へ画像コピー
緑画像を初期化画像の372,0へ画像コピー
空画像を初期化画像の0,186へ画像コピー
青画像を初期化画像の186,186へ画像コピー
紫画像を初期化画像の372,186へ画像コピー
初期化画像を『color_cc.png』に画像保存
//組込データ２
文字化画像は『iVBORw0KGgoAAAANSUhEUgAAALoAAAAYCAIAAADCuHBDAAAAB3RJTUUH1QgYDgcSnZzZCAAAABd0RVh0U29mdHdhcmUAR0xEUE5HIHZlciAzLjRxhaThAAAACHRwTkdHTEQzAAAAAEqAKR8AAAAEZ0FNQQAAsY8L/GEFAAAA+UlEQVR4nO3SobIBABQG4Y2iKoqiKoqi
qIqiqIqiqIqiKKqiKKqiuHfuQ5g5Z+Z/g52dD8EBDnGEY5zgFGc4xwUucYVr3OAWd7jHAx7xhGe84BVveMcHPvGFb/zgF+UrH3nLS57ykLvc5CoXOctJjnKQvexkKxtZy0qWspC5zGQqExnLSIYy+O9unP7L7h+mt37eOD1cwiVcSj9vnB4u4RIupZ83Tg+XcAmX0s8b
p4dLuIRL6eeN08MlXMKl9PPG6eESLuFS+nnj9HAJl3Ap/bxxeriES7iUft44PVzCJVxKP2+cHi7hEi6lnzdOD5dwCZfSzxunN+XyB+9fD19TgeJTAAAAAElFTkSuQmCC』
//色相選択用
虹画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,24』
もし『rainbow_cc.png』が存在ならば
虹画像の0,0へ『rainbow_cc.png』を画像描画
違えば
文字化画像は文字化画像をBASE64デコード
文字化画像を『rainbow_cc.png』に保存
虹画像の0,0へ『rainbow_cc.png』を画像描画
//カーソル用
//大きめに作って縮小し、アンチエイリアスをかける
上カーソルとはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,27,27』
線スタイルは『透明』
塗り色は$909090
上カーソルに『13,0,0,27,27,27』で多角形
上カーソルを9,9で画像リサイズ
左カーソルとはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,27,27』
線スタイルは『透明』
塗り色は$909090
左カーソルに『0,13,27,0,27,27』で多角形
左カーソルを9,9で画像リサイズ
//色選択フォームの部品
//彩度と強度の選択用
彩度強度パネルとはイメージ
その親部品は色選択フォーム
そのサイズは『0,0,226,222』
//色相の選択用
色相パネルとはイメージ
その親部品は色選択フォーム
そのサイズは『0,222,226,268』
虹画像を色相パネルの16,0へ画像コピー
//カーソルの下の色の拡大表示用
//兼、新規作成時パレット追加用
現在色パネルとはイメージ
その親部品は色選択フォーム
そのサイズは『230,222,262,254』
//色表示部品
元色とはイメージ
その親部品は色選択フォーム
そのサイズは『230,16,262,48』
//
文字サイズは16
文字色は$909090
色選択フォームの265,21へ『→』を文字描画
文字色は$000000
//
新色とはイメージ
その親部品は色選択フォーム
そのサイズは『290,16,322,48』
//
文字色は$909090
色選択フォームの230,95へ『Ｈ』を文字表示
文字色は$000000
//
Ｈエディタとはスピンエディタ
その親部品は色選択フォーム
そのサイズは『260,90,322,122』
//
文字色は$909090
色選択フォームの230,135へ『Ｓ』を文字表示
文字色は$000000
//
Ｓエディタとはスピンエディタ
その親部品は色選択フォーム
そのサイズは『260,130,322,162』
//
文字色は$909090
色選択フォームの230,175へ『Ｖ』を文字表示
文字色は$000000
//
Ｖエディタとはスピンエディタ
その親部品は色選択フォーム
そのサイズは『260,170,322,202』
//
色反映ボタンとはボタン
その親部品は色選択フォーム
そのサイズは『270,222,322,254』
そのテキストは『ＯＫ』
//状態記録用のグローバル変数
選択X座標とは整数
選択Y座標とは整数
色相X座標とは整数
変更前色とは整数
透明色対応とは整数
元色モードとは整数
新色モードとは整数
変更イベントとは整数
//
色選択キャンセルとは文字列
現在新色とは整数
//グローバル変数の初期化
選択X座標は201
選択Y座標は16
色相X座標は16
変更前色は0
透明色対応は必要
元色モードは『定義』
新色モードは『定義』
変更イベントはオン
//範囲チェック
●色収得可能(X座標,Y座標)
もしX座標が16未満ならば
それは0
戻る
もしX座標が202以上ならば
それは0
戻る
もしY座標が16未満ならば
それは0
戻る
もしY座標が202以上ならば
それは0
戻る
それは1
戻る
//現在色の表示
●現在色パネル表示(色名で)
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は色名
現在色パネルの0,0から32,32へ四角
//現在色をしらべて表示する
●現在色反映
//念のため：選択X座標、選択Y座標のチェック
選択色とは整数
もし色収得可能(選択X座標,選択Y座標)でなければ
戻る
選択色は彩度強度パネルの選択X座標,選択Y座標を画像色取得
選択色で現在色パネル表示
//彩度強度カーソルの表示
●彩度強度カーソル表示
//念のため：選択X座標、選択Y座標のチェック
もし色収得可能(選択X座標,選択Y座標)でなければ
戻る
//古いカーソルを白色で塗りつぶす
線太さは1
線スタイルは『実線』
線色は白色
塗り色は白色
彩度強度パネルの0,202から222,226へ四角
彩度強度パネルの202,0から222,226へ四角
＃カーソル画像コピー
上カーソルを彩度強度パネルの(選択X座標-4),202へ画像コピー
左カーソルを彩度強度パネルの202,(選択Y座標-4)へ画像ANDコピー
//色相カーソルの表示
●色相カーソル表示
//念のため：色相X座標のチェック
もし色相X座標が16未満ならば
戻る
もし色相X座標が202以上ならば
戻る
//古いカーソルを白色で塗りつぶす
線太さは1
線スタイルは『実線』
線色は白色
塗り色は白色
色相パネルの0,24から226,42へ四角
//カーソル画像コピー
上カーソルを色相パネルの(色相X座標-4),24へ画像コピー
//現在の状態をみて、元色を設定する
●元色更新
選択色とは整数
もし透明色対応が必要ならば
もし元色モードが『透明』ならば
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は白色
元色の0,0から32,32へ四角
線スタイルは『点線』
元色の8,8から24,24へ四角
線スタイルは『実線』
戻る
もし元色モードが『未定義』ならば
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は白色
元色の0,0から32,32へ四角
元色の0,0から31,31へ線
元色の0,31から31,0へ線
戻る
//選択X座標、選択Y座標が彩度強度に使用できる場所なのか確認
もし色収得可能(選択X座標,選択Y座標)でなければ
戻る
//目的の色を取得する
選択色は彩度強度パネルの選択X座標,選択Y座標を画像色取得
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は選択色
元色の0,0から32,32へ四角
//現在の状態をみて、新色を設定する
●新色更新
選択色とは整数
もし透明色対応が必要ならば
もし新色モードが『透明』ならば
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は白色
新色の0,0から32,32へ四角
線スタイルは『点線』
新色の8,8から24,24へ四角
線スタイルは『実線』
戻る
もし新色モードが『未定義』ならば
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は白色
新色の0,0から32,32へ四角
新色の0,0から31,31へ線
新色の0,31から31,0へ線
戻る
//選択X座標、選択Y座標が彩度強度に使用できる場所なのか確認
もし色収得可能(選択X座標,選択Y座標)でなければ
戻る
//目的の色を取得する
選択色は彩度強度パネルの選択X座標,選択Y座標を画像色取得
線太さは1
線スタイルは『実線』
線色は$909090
塗り色は選択色
現在新色は選択色//
新色の0,0から32,32へ四角
//色角度に対応した画像を作成して、彩度強度パネルにコピーする
●彩度強度パネル表示(色角度で)
透明度とは整数
もし色角度が60以下ならば
赤画像を作業画像の0,0へ画像コピー
透明度は色角度*100/60
黄画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が120以下ならば
黄画像を作業画像の0,0へ画像コピー
透明度は(色角度-60)*100/60
緑画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が180以下ならば
緑画像を作業画像の0,0へ画像コピー
透明度は(色角度-120)*100/60
空画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が240以下ならば
空画像を作業画像の0,0へ画像コピー
透明度は(色角度-180)*100/60
青画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が300以下ならば
青画像を作業画像の0,0へ画像コピー
透明度は(色角度-240)*100/60
紫画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
もし色角度が360以下ならば
紫画像を作業画像の0,0へ画像コピー
透明度は(色角度-300)*100/60
赤画像を作業画像の0,0へ透明度で画像半透明コピー
作業画像を彩度強度パネルの16,16へ画像コピー
戻る
//現在の状態をみて、彩度強度パネルをセットする
●彩度強度パネル更新
色相とは整数
色相は(色相X座標-16)*360/186
色相で彩度強度パネル表示
//以下の関数は３つで１セット
//選択されているパレットの色から、状態を変更する
●部分色角度(最大値,中間値,最小値)
もし最大値が最小値ならば
それは0
戻る
それは60*(最大値-中間値)/(最大値-最小値)
●彩度(最大値,最小値)
もし最大値が最小値ならば
それは0
戻る
それは最小値/最大値
●ＨＳＶ分解(色整数を)
Ｒとは整数
Ｇとは整数
Ｂとは整数
Ｈとは整数
Ｓとは整数
Ｖとは整数
色タイプとは整数
//ＲＧＢに分解
ＲはFLOOR(色整数/65536)
ＧはFLOOR((色整数%65536)/256)
ＢはFLOOR(色整数%256)
//６タイプに分ける
色タイプは0
もし、INT(Ｒ)がINT(Ｇ)以上ならば
色タイプは色タイプ+1
もしINT(Ｇ)がINT(Ｂ)以上ならば
色タイプは色タイプ+2
もしINT(Ｂ)がINT(Ｒ)以上ならば
色タイプは色タイプ+4
//ＨＳＶを計算
色タイプで条件分岐
1ならば
Ｈは300+部分色角度(Ｒ,Ｂ,Ｇ)
Ｓは彩度(Ｒ,Ｇ)
ＶはＲ
2ならば
Ｈは60+部分色角度(Ｇ,Ｒ,Ｂ)
Ｓは彩度(Ｇ,Ｂ)
ＶはＧ
3ならば
Ｈは60-部分色角度(Ｒ,Ｇ,Ｂ)
Ｓは彩度(Ｒ,Ｂ)
ＶはＲ
4ならば
Ｈは180+部分色角度(Ｂ,Ｇ,Ｒ)
Ｓは彩度(Ｂ,Ｒ)
ＶはＢ
5ならば
Ｈは300-部分色角度(Ｂ,Ｒ,Ｇ)
Ｓは彩度(Ｂ,Ｇ)
ＶはＢ
6ならば
Ｈは180-部分色角度(Ｇ,Ｂ,Ｒ)
Ｓは彩度(Ｇ,Ｒ)
ＶはＧ
7ならば
Ｈは0
Ｓは1
ＶはＲ
もしＨが360以上ならば
Ｈは0
(Ｈ&『,』&Ｓ&『,』&Ｖ)で戻る
//初期化関数
●元色設定(色整数を)
Ｈとは整数
Ｓとは整数
Ｖとは整数
//バックアップ
変更前色は色整数
もし色整数が空ならば
色整数は赤色
元色モードは『未定義』
新色モードは『未定義』
もし透明色対応が必要ならば
もし色整数が『transparent』ならば
色整数は赤色
元色モードは『透明』
新色モードは『透明』
//計算したＨＳＶから状態をセット
色整数をＨＳＶ分解して『,』で区切る
Ｈはそれ[0]
Ｓはそれ[1]
Ｖはそれ[2]
選択X座標は16+ROUND(Ｖ*185/255)
選択Y座標は16+ROUND(Ｓ*185)
色相X座標は16+FLOOR(Ｈ*186/360)
//すべて表示
彩度強度カーソル表示
色相カーソル表示
彩度強度パネル更新
元色更新
新色更新
ＨＳＶ表示
現在色反映
//ＨＳＶの数値表示
●ＨＳＶ表示
変更イベントはオフ
ＨエディタのテキストはFLOOR((色相X座標-16)*360/186)
ＳエディタのテキストはROUND((選択Y座標-16)*255/185)
ＶエディタのテキストはROUND((選択X座標-16)*255/185)
変更イベントはオン
//彩度強度パネルのイベント
彩度強度パネルのマウス押した時は～
クリックX座標とは整数
クリックY座標とは整数
クリックX座標は彩度強度パネルのマウスX
クリックY座標は彩度強度パネルのマウスY
もしクリックX座標が12未満ならば
戻る
//彩度カーソルだけを移動する場合
もしクリックX座標が205以上ならば
もしクリックX座標が215以上ならば
戻る
もしクリックY座標が12未満ならば
戻る
もしクリックY座標が205以上ならば
戻る
もしクリックY座標が16未満ならば
クリックY座標は16
もしクリックY座標が202以上ならば
クリックY座標は201
選択Y座標はクリックY座標
彩度強度カーソル表示
現在色反映
新色更新
ＨＳＶ表示
描画処理反映
戻る
もしクリックY座標が12未満ならば
戻る
//強度カーソルだけを移動する場合
もしクリックY座標が205以上ならば
もしクリックY座標が215以上ならば
戻る
もしクリックX座標が12未満ならば
戻る
もしクリックX座標が205以上ならば
戻る
もしクリックX座標が16未満ならば
クリックX座標は16
もしクリックX座標が202以上ならば
クリックX座標は201
選択X座標はクリックX座標
彩度強度カーソル表示
現在色反映
新色更新
ＨＳＶ表示
描画処理反映
戻る
//選択用の画像のそばをクリックした場合
//近くの画像内に移動
もしクリックX座標が16未満ならば
クリックX座標は16
もしクリックX座標が202以上ならば
クリックX座標は201
もしクリックY座標が16未満ならば
クリックY座標は16
もしクリックY座標が202以上ならば
クリックY座標は201
//彩度強度カーソル両方移動
選択X座標はクリックX座標
選択Y座標はクリックY座標
彩度強度カーソル表示
現在色反映
新色モードは『定義』
新色更新
ＨＳＶ表示
描画処理反映
//
彩度強度パネルのマウス移動した時は～
選択色とは整数
もし色収得可能(彩度強度パネルのマウスX,彩度強度パネルのマウスY)ならば
選択色は彩度強度パネルの(彩度強度パネルのマウスX),(彩度強度パネルのマウスY)を画像色取得
選択色で現在色パネル表示
違えば
現在色反映
//色相パネルのイベント
色相パネルのマウス押した時は～
クリックX座標とは整数
クリックY座標とは整数
色相とは整数
クリックX座標は色相パネルのマウスX
クリックY座標は色相パネルのマウスY
もしクリックX座標が12未満ならば
戻る
もしクリックX座標が206以上ならば
戻る
もしクリックY座標が36以上ならば
戻る
色相X座標はクリックX座標
もし色相X座標が16未満ならば
色相X座標は16
もし色相X座標が202以上ならば
色相X座標は201
彩度強度パネル更新
色相カーソル表示
現在色反映
新色モードは『定義』
新色更新
ＨＳＶ表示
描画処理反映
//
色相パネルのマウス移動した時は～
現在色反映
//元色のイベント
元色のクリックした時は～
変更前色を元色設定
//元色のイベント
新色のクリックした時は～
もし新色モードが『未定義』ならば
新色モードは『定義』
新色更新
戻る
もし透明色対応が必要ならば
もし新色モードが『定義』ならば
新色モードは『透明』
新色更新
戻る
もし新色モードが『透明』ならば
新色モードは『未定義』
新色更新
戻る
もし新色モードが『定義』ならば
新色モードは『未定義』
新色更新
戻る
//ＨＳＶエディタのイベント
Ｈエディタの変更した時は～
Ｈ値とは整数
もし変更イベントがオンでなければ
戻る
変更イベントはオフ
Ｈ値はINT(Ｈエディタのテキスト)
もしＨ値が0未満ならば
Ｈ値は空
もしＨ値が360以上ならば
Ｈ値は359
もしＨエディタのテキストが空でなければ
ＨエディタのテキストはＨ値
色相X座標は16+FLOOR(Ｈ値*186/360)
彩度強度パネル更新
色相カーソル表示
現在色反映
新色更新
変更イベントはオン
Ｓエディタの変更した時は～
Ｓ値とは整数
もし変更イベントがオンでなければ
戻る
変更イベントはオフ
Ｓ値はINT(Ｓエディタのテキスト)
もしＳ値が0未満ならば
Ｓ値は空
もしＳ値が255超ならば
Ｓ値は255
もしＳエディタのテキストが空でなければ
ＳエディタのテキストはＳ値
選択Y座標は16+ROUND(Ｓ値*185/255)
彩度強度カーソル表示
現在色反映
新色更新
変更イベントはオン
Ｖエディタの変更した時は～
Ｖ値とは整数
もし変更イベントがオンでなければ
戻る
変更イベントはオフ
Ｖ値はINT(Ｖエディタのテキスト)
もしＶ値が0未満ならば
Ｖ値は空
もしＶ値が255超ならば
Ｖ値は255
もしＶエディタのテキストが空でなければ
ＶエディタのテキストはＶ値
選択X座標は16+ROUND(Ｖ値*185/255)
彩度強度カーソル表示
現在色反映
新色更新
変更イベントはオン
//インターフェース
//色選択ＯＫボタン
色反映ボタンのクリックした時は～
色選択キャンセルは、いいえ
色選択フォームを閉じる
//色選択フォームのイベント
色選択フォームの表示した時は～
色選択キャンセルは、はい
色選択フォームを中央移動
//ＨＳＶ色選択
●ＨＳＶ色選択(現在色から透明色対応有無で)
色選択キャンセルははい
もし透明色対応有無が『透明色未対応』ならば
透明色対応は不要
もし現在色が『transparent』ならば
現在色は空
現在色を元色設定
色選択フォームをモーダル表示
戻る
もし透明色対応有無が『透明色対応』ならば
透明色対応は必要
現在色を元色設定
色選択フォームをモーダル表示
戻る
//選択色収得
●選択色収得
もし色選択キャンセルならば
新色モードは元色モード
現在新色は変更前色
もし新色モードが『未定義』ならば
空で戻る
もし新色モードが『透明』ならば
『transparent』で戻る
現在新色で戻る
*//サンプルプログラム
//テスト
テスト色とは整数
テスト色は緑色
//『透明色対応』or『透明色未対応』
//ダイアログ右上の四角クリックで、色、未定義色、透明色の切り替え
テスト色から『透明色対応』でＨＳＶ色選択
//ＯＫを押さなければ元の色番号がそのまま戻る
//未定義色は空、透明色は『transparent』が戻る
テスト色は選択色収得
(『選択された色は"』&テスト色&『"です』)と言う
//母艦の可視をオフにしているので忘れず閉じる
終わり
----
#comment()
----
