e-Gadget の壁

iron2様、
最適化の効果、出てますね！
プラ子も頑張れば出来る子ですね。(^^)

＞draw_shidaCG1_PI_J1
もし、よろしければぜひ公開を。(^^)

こんばんわ、iron2です。

ﾌﾟﾗ子の液晶は320X243が正しいサイズです。
公表情報より大きいのはステータスメニュー
バーがあるためです。

で、もう少し手を加えた現状の最高速版です。
20秒は切れませんでしたが、オリジナルと比べると
見ててたのしいのであまり遅く感じません。
実数版の良いところは枝葉の重なりぐわいとか枝葉の
枝がくっきりわかりたのしめます。
高速化ネタはしょぼいのではずかしいかぎりですが
sentaro様のﾌﾟﾗ子でお試しください。ｺﾋﾟﾍﾟでいける
はずです。
電卓の(-),E-3の表示が化けるので手直ししてます。
転送後、手直しが必要かもです。

よろしくお願いします。

// title : draw_shidaCG_PI_J1.ppl
// 2017-10-03 15:18:44
// Create by akatuki(sama)
// Modify by iron2
// date 2017/12/02

// main
EXPORT draw_shidaCG_PI_J1()
BEGIN
// Clean the (G0):
RECT(G0);
PRINT();
LOCAL i,cnt,r,tmp;
LOCAL x,y,xmax,xmin,ymax,ymin;
LOCAL width,height,ww,hh,ww2,hh2;
LOCAL col,col1,col2,col3,col4;
LOCAL xp,yp;

// initial ooord
x := 0;
y := 0;

width := 320;
height := 240;

// loop counte
cnt := 30000;
// working
tmp := -3000;
xmin := -3000;
xmax := 5000;
ymin := 0;
ymax := 8000;

ww := width*100000/(xmax-xmin);
hh := height*100000/(ymax-ymin);

ww2 := ww*0.00001;
hh2 := hh*0.00001;

col1 := RGB(0,0,0);
col2 := RGB(255,0,0);
col3 := RGB(0,225,0);
col4 := RGB(0,0,255);

LOCAL T1,T2;

T1 := TICKS();
FOR i FROM 1 TO cnt STEP 1 DO
r := RANDOM(999.0);
CASE
IF(r <10) THEN
tmp :=0;
y :=(160*y)*0.001;
col := col1;
END;
IF(r<70) THEN
tmp :=((200*x)-(260*y))*0.001;
y :=(((230*x)+(220*y))*0.001)+1600;
col := col2;
END;
IF(r<150) THEN
tmp :=((-150*x)+(280*y))*0.001;
y :=(((260*x)+(240*y))*0.001)+440;
col := col3;
END;
DEFAULT
tmp :=((850*x)+(40*y))*0.001;
y :=(((-40*x)+(850*y))*0.001)+1600;
col := col4;
END;
x:=tmp;
xp:=(x-xmin)*ww2;
yp:=(y-ymin)*hh2;

PIXON_P(yp,xp,col);

END;
T2 := TICKS();

TEXTOUT_P((T2-T1)*1E-3+"(SEC)",5,5,0,RGB(0,0,255));
TEXTOUT_P("draw_shidaCG1_PI_J1(color)",80,5,0,RGB(255,0,127));
TEXTOUT_P("ESC->EXIT",240,25,0,RGB(0,200,0));

// key wait loop
REPEAT UNTIL GETKEY() == 4;
FREEZE;
//WAIT();
END;

ツル様

人の心の働きは説明しきれないものだと私も思います。

どこでこだわり、どこで諦めるか？？
日常ではこれの繰り返しですね。それを決めるには様々な状況判断と個性が入り込みます。

そういう心の揺れがうまく表現されているように感じました。そしてその表現が全てを説明しているわけでもないから、人はおもしろく不思議なんだと思います。

私も、セミナーや講師をやる経験が多く、日常的にも営業的なことや技術的なことで人と話すことが多いのですが、人は自分が気持ちよいことをやりたがることがよく分かります。

気持ちよいことは、それぞれ千差万別で、承認欲求であったり好奇心を満たすことであったり、褒められたい気持ちであったり．．．一見苦しいことでも気持ち良いことのために頑張るものでもあります。

人が気持ち良いことと、自分が気持ち良いことがオーバーラップすることが見つかれば、もっと楽しくなります。

なので、e-Gadgetは、"気持ち良い"のオーバーラップが目指すところです。管理人の私自身も当然"気持ち良い"ことを求めています。

管理人様

レスありがとうございます。
さすが、核心を突くような素晴らしいコメントですね。

＞人は自分が気持ちよいことをやりたがる･･･
＞承認欲求であったり･･･
＞褒められたい･･･

そうですね。個人差は多少あっても、人は他人に認められ、褒められたいという気持ちが根本にあると思っています。

ツルがe-Gadgetでのこれまでから思うところ、管理人様は向上心の塊に見えます。だから、知らなかったことの発見が何より気持ち良いことで、できれば発見の連続で毎日を送りたいのではないでしょうか？
その発見には繋がらない単純作業が何より苦痛に感じる。のかなと。
歯向かうのではないのですが、ツルは単純作業は嫌いではありません。
日々のルーチンワークは言ってみれば単純作業です。
しかし、その慣れた作業にはだからこそ危険が潜んでいるし、もっともっと効率化を考えるチャンスだと考えるからです。
単純作業は好きです。体はきついが、頭を休められるから。

管理人様

ツルです。
ツルは関数電卓が大好きです。主にCASIOの関数電卓が多いですが、CANONのもあります。目の前には10台重ねて積んであります。
当然fx-JP900も購入を検討しました。net上での評価に多く見られる視認性の悪さが気になり、販売店で実物を手にしました。
そして決心しました。買うのはやめよう･･･と。
あまりにもキー周りの印刷が見えにくいからです。その流れで、実は同じ雰囲気のCG50に対して何となく敬遠の気持ちが残るのです。そんなことでCG20が好きだという発言が出たのです。

ツルの場合は老眼というよりも高血圧による視力の低下が酷いです。
CG50の1ﾄﾞｯﾄ表示がくっきり見えません。もう少し若いころはルーペのような自分の目が自慢でした。0.5mmシャープペンの芯の側面に文字を書き入れて作品を作っていたのもペンギン作成の頃です。今はルーペ無しでは無理です。

どうぞ、目を休めてあげてください。ツルは頭を休めます･･･（笑）

昼休みに残りの単純作業が終わったよ～！

集中して入力するのは30分が限度みたい、その後しばらく目をつぶって回復しました。

出力を2カ所に増やしただけの RGB2b できました(^^;

添付画像を見てください。

自然の流れでこうなったけど、こういうのは私は好きだな！

[ALPHA]キーで出力部分の切替できます。

RGB2b.g3m のダウンロードは、投稿の URL をクリック！


PS: 掲示板はこんな感じでプログラムの発表ができそう。

管理人様、
＞キーの回りに小さく印刷してある文字を一所懸命に見て、それで疲れる．．．

たしかに、それはかなりありそうです。
PCに比較するとたしかに疲れますね。
オンCALCプログラミングはぽちぽちと打ち込むくらいがちょうどいいかもしれません。(^^；


＞RGB2b
内緒の[ALPHA]楽しみです。(^^)



ツル様、
＞あまりにもキー周りの印刷が見えにくいからです。その流れで、実は同じ雰囲気のCG50に対して何となく敬遠の気持ちが残るのです。そんなことでCG20が好きだという発言が出たのです。

CG50はデザイン的には非常にいいと思うんですが、印刷はまだ要改善かもしれませんね。
CG20はCG50よりは見やすいとはいえ、印刷の反射率が低めなのであまり変わらないかもしれません。
CG50は表面処理に負けないようにと反射率が高めなので角度によればCG20よりも見やすいときもあります。
光線の影響なくまんべんなく見えるのはCG20ですが、CG50は反射の角度で見えにくくなるときがある以外はCG20よりは見やすいような感じはします。
CG20の印字の見え方はポケコンのE650（私も持ってます！）と大差ないと思いますが、CG20/50はアルファベットの印字が赤なのが特に見えにくい感じがしますね。(^^；

sentaro様

ツルはCG20は写真でしか見たことがないのですが、グッドデザインアワード受賞商品でしたか･･･。CG50のようなLCD表面に光沢があるのは、発色はいいのですが、反射がつらい時がありますね。電卓位の小さな画面ならまだしも、PCサイズになってくると、映り込む自分側の明るさに悩ませられることが多いです。

ところで、CG20について、以前からどなたかにお聞きしたいことがありました。あのテンキーを含む多くのキーが全体に湾曲しておりますが、あれは直線状配置のキーと比べて如何なものなのですか？
同じ湾曲でも凹凸方向は逆のほうが打ちやすいのでは？などと考えておりました。
全く同じに打てる。多少違和感はある。すぐに慣れる。改善を要する。
果たして実情はどうなのでしょうか？

ツル様、
＞CG50のようなLCD表面に光沢があるのは、

fx-9860GIIの液晶表面は非光沢コーティングされてますけど、CGシリーズの液晶は色純度があまり高くないので非光沢処理をしてさらに発色を濁らせるのを嫌ったのでしょう。
光沢液晶は反射があるとかなり見にくくなりますね。


＞ところで、CG20について、以前からどなたかにお聞きしたいことがありました。あのテンキーを含む多くのキーが全体に湾曲しておりますが、あれは直線状配置のキーと比べて如何なものなのですか？

最初に見た時はその形状に若干の違和感ありましたけど、慣れの問題でしょうかね。
TI-84シリーズも角の取れた丸いデザインになってましたし、そういう流行だったのかなと思います。
CG20は下側が幅が狭いので手に持った時のフィット感は悪くはないかもしれませんし、湾曲しているキー配置も人間工学的には指が届きやすく良さげな感じはします。

CG50のデザインはスッキリしててなかなかよいのですが、テンキーの無反応問題とかありますし、
CG20にはそういう不具合問題はありませんが、個人的にはfx-9860GIIの電卓形状がいちばんしっくりくる感じがします。
結局は慣れの問題かもしれません。(^^；

sentaro様に要望して実現した PopUpWin オプションで画面待避と復帰を RGB2b に使ってみたよ～

これ便利ですね。ヘルプ画面表示の前に PopUpWin(0)、メイン画面に戻る前に PopUpWin(9)で画面復帰。

おかげで、300KBほどファイルが小さくなりました。

メイン画面復帰を記述するだけで 300KB も無駄使いしていた．．．ん？

興味のある方は、このコメントにある URL をクリックしてダウンロードできます。

さて、次は背景色表示の追加だ．．．

管理人様、
RGB2b。いい感じで出来つつ有りますね。(^^)

＞メイン画面復帰を記述するだけで 300KB も無駄使いしていた．．．ん？

あり？画面バッファサイズは384ｘ192ｘ2バイトなので147456バイトなので、2倍ですね。(^^；

ワードサイズの行列Zを確保して、
｛384，192｝-＞Dim Z.W
ReadGraph(1,1,383,191)->Mat Z
で画面データ退避、

復帰は
WriteGraph 1,1,383,191,Mat Z
PutDispDD
で出来ますが、
CG20では150KBの行列が確保できないので、CG全シリーズ互換の意味でもPopUpWinで画面退避復帰ができるようになったのはよかったです。
実使用に基づく的確な要望＆アドバイスに感謝です。(^^)


あと、毎度ですが、(^^；
キー入力待ちのループが全速で回るのはエコではないので、GetKey1かGetKey2に変更すると良いですね。
CG20だとオーバークロックしていることもあってキー待ちで70ｍAほど消費してしまうので、ちょっとでも節約しないとです。(^^；

sentaro様

無駄遣いの約300KBはファイルサイズでした。

ところで、
0->K
Do:Getkey->K
LpWhile=0

を例えば

0->K
Getkey1->K

に置き換える件ですが、fx-CG20のことは考えて居らず、いきなり長押ししたときの動き出しの迅速さと長押し時の速度を考えて、より速い Do ループで実装していました。

ただ、fx-CG20を含めた汎用性を優先させるのなら、ウェイト機能のある Getkey1->K が良いですね。

次からは Getkey1 で進めてみますね。

ツル様

フォームで保護すれば完璧ですね。百聞一見に如かずです。これなら安心クラッシャブルケースですね?

ツル様、
特別パッケージ仕様の新製品みたいな感じですね。
とても手作りとは思えないくらいの出来がさすがです。
私も一つ、いや二つ、欲しくなりました。(^^)

管理人様が、
＞単純労働、大嫌いっ！
＞考えながらポチポチ入力するのはＯＫ、でも集中して単純作業するとダメ

と言っておられました。ツルもこの手の製作では頭は使わないので、苦痛ではないですが、時間がもったいないとは感じます。でも、最初の1回だけですからね。ちゃんと作ると後々までずっと働いてくれますから。
ん？Prog作りと同じか･･･
でも、お二人のご評価が良くてよかった。
やっぱり、見るのが一番ですね。（ここの掲示板は役立ちますね♥）

ツル様、
こんなマネキンあったら、二度見、いや三度見してしまいますね。(^^；
管理人様もおっしゃってますけど、私も絵に関してはからっきしなので、お絵かきが出来る人はすごいと尊敬するばかりです。(^^)

このマネキンハンガーは、管理人様がNERVのマグをご愛用とのことで、掲示板の活気祝いと思っての投稿です。やたら低画質の写真で恐縮ですが、実物は丁寧に彩色されています。友人が気に入っちゃって数体作って譲りました。塗料が乗りにくい素材なので、こんな物でも下地処理は大変なのです。

ツル様

あ、そうだったんですね。ありがとうございます。

ちなみに例のマグはこんな感じです。

管理人様

あ、黒だったんですか。白地に赤プリントのをイメージしていました。
何気なくそばに･･･　どんだけー！

ツル様、壁デビュー、おめでとうございます！(^^)

電卓で天然色が出せるなんて昔では考えられなかったですけど、今では当たり前のことになりました。

色が付くと表現力が爆発的に増えますが、増えた分だけ、労力が増します。
そのためにモノクロ液晶fx-9860GIIが扱いやすいと思うことも多々あります。
でも、今はCGです。やっぱりカラーは良いですね。その上、高精細なので無限の可能性を感じてしまいます。ちょっと大げさですね。すみません。(^^；

おくればせながら、ツル様デビューおめでとうございます。

昔壁ではないんですが、ガラスの回転ドアに気づかず、おもいっきり
ぶつかりました・・・よそ見はだめだったです(笑）

ちなみに会社での電卓は、気恥ずかしいので
fx-jp-900かfx-5800pです。
どちらもソルバーやカルクが使えるのが便利で、fx-5800pは特に
消えないのが良い。難しい計算させずとも手打ちで長い式とか
プログラムしとくと自前のソルバーですしね。

おっと雑談部屋でした。

ではまた。

ん～～･･･
sentaro様は華麗にスルー。

右上のはツルの作品なんですよ。
くだらなさ過ぎたかな？

え？あ？んんん？
右上のペンギンさんは写真ではなく？ツル様が？
って二度見してまたびっくり！！！

てっきり写真とばかり思ってました。(^^；

私もビックリぽんです。

こんな画像を作れるなんて、私からみると紙、じゃなくて髪、でもなくて"神"です。

凄い．．．(･д･)

ところで、JASRACにご用心．．．

管理人様

＞ところで、JASRACにご用心．．．.

あ、ブログへの歌詞の引用、JASRACのHPに記載されていました。
危ない行為でした。申し訳ありません。
管理人様がグレーと感じられたら問答無しに削除してください。
それ以前に今後は十分気を付けますので。

ツル様

きちんとご確認頂いたのですね。ありがとうございます。

まぁ、こんな辺鄙なところまでチェックは入らないでしょうが、編集機能を使って歌詞の部分だけ削除するなり加工するなりして、オリジナルでないようにしてくだされば完璧です。

[追記]
今、管理機能で編集できました。歌詞の部分だけ削除しました。初めて管理機能を使ってみました。

ツル様、やっと認識できました！
ありがとうございます。(^^)
足のどこがどう絵になっているのかちょっと分かってなかったです。(^^；
それにしても親指がペンギンさんになるのはにわかには信じられないです。
ツル様、すごすぎますね！

ツル様は、やっぱり"神"です。

絵心皆無の私からみれば、天上人以上です！
それに、5mmのシャーペンの芯に絵を描くなど、信じられません。

Windowsプログラムを作っていて一番苦痛なのが、アイコンとかチョットしたお絵かきが必要な時なんです。以前シェアウェアを公開していた時はグラフィックデザイナーの友人に作ってもらったりしてました。

iron2様

投稿ありがとうございます。

こちらの話題ですよね。
http://egadget.blog.fc2.com/blog-entry-621.html

私は HP Prime を持ってないのですが、HP の根強いファンの方は興味をお持ちになるかも知れませんね。