e-Gadget の壁

ツル様、sentaro様

ツル様とsentaro様のご意見の最小公倍数的な実装です。

・２つの出力領域が上下に隣接、隣同士の背景色の比較や調和を確認できます。
・但し Ｒ，Ｇ，Ｂの値が同じ場合は(グレースケース時)、補色でなくて反対色表示
・背景直とテキスト色を変更して、見やすさを確認できます。
・テキスト？背景 と テキストのみの切替表示可能

ヘルプは RGB2b のまま（未完成）
　
取り敢えずこんな感じで、途上のものですが、どうでしょう？

_Circle の代わりに _FillCircle を使って、茶色付近で色を揺らせてみたら、クロワッサン？

ああ、腹減った．．．

幼稚園児のお絵かきとツル様に怒られそう(/_;)

やっぱ絵心ないです

https://egadget2.web.fc2.com/archives/fx-CG50/Samples/Circle/Circles.html

クロワッサンも電卓の画面を見る角度によって、色の深みがかなり変わってしまいます。

キー側(下の方)から斜めで見ると、色に深みが付いて、カリッと美味しそうに見えますが、真正面から見ると色の変化が足りないような、生焼けのクロワッサンに見えますね。

このあたりは、色のチョイスでなんとかなるかも知れませんが、このあたりのやり方は結構奥深そうです。

管理人様

>電卓の画面を見る角度によって、色の深みがかなり変わってしまいます。

あのヤシマ作戦以来、このCG50のLCDを見る角度による色合い変化がやたらと大きいことを強く意識するようになり、比較で考えると、携帯やタブレット、PCなどのLCDがいかに優れているのかを改めて実感するところです。CG50の場合、LCD正面で見ることを意識しないとならないのは、やはり弱点と言えますね。（少々、煩わしく感じるときもあります）
（クロワッサンも、見る角度を一歩間違えたら大変なことになります。）

ツル様、
これはまた不思議な動きが…(^^；
もしかして合成とかでしょうか？

sentaro様

このGIFは純粋に動画の一部でして、ほぼ どの猫もする一般的な動きですよ。
このGIFの猫以外の猫でも同様のGIFが複数ありますから。
これについてはツルは無加工です（笑）

ツル様、
こっちを見つめる顔がほぼ動かずというのは初めて見ました。(^^；
なるほど、猫にとっては普通のことだったんですね。
了解です。(^^)

sentaro様

＞こっちを見つめる顔がほぼ動かず･･･

鳥もほとんどがそうです。

生きた鶏を持つ機会があれば是非やってみてください（笑）
面白いほど安定装置（笑）が作動しますので。

陸自の10式戦車マッツャオですね。凄い安定装置です！

こういうネタ、御法度かなぁ？

雑談にしては重いし、電卓プログラミングは関係ないし．．．

チョット様子を見てみて、消しちゃうかも．．．

管理人様

雑談の場である掲示板には御法度はないだろうと思います。
Progから1歩離れた憩いの場かと。
酒を飲まないツルが言うのも変ですが、酒の席での話では政治系宗教系は原則ご法度ですよね。ここは酒の席でもないし、何でもありでは？
ツルは中道です。（笑）

＞新聞やテレビでよく見聞きする言葉使い･･･
恐れず本音を言うと、今の日本の新聞テレビの多くは、無くなれ！と。
彼らの言葉には関心がありません。まともじゃないから。
ね、本音で語り始めると危ない雰囲気に･･･　やめます。

ツル様

自制頂きありがとうございます。
誰かが暴走するまで、このままにしておきます。

e-Gadgetは(精神的)大人が集うので、ありがたいです。

管理人様

この投稿はややまずいのです。ツルに火を点けることになるからです。
しかしツルはまともな大人だと自覚しており、自制も自重もします。
こういった話題は、よくakatuki様のところでされておられましたね。
よく気ごころを知り合った仲間とでなくては議論ができません。
こちらの掲示板でこういった話題で盛り上がろうという気はありません。
ただ1点、管理人様の投稿文のなかに、テーマ（着目点）からして出なかった言葉が気になっております。マスコミと愚民というキーワードです。
もしや管理人様はマスコミ関係？などの恐れを感じつつも先の返信をした訳ですが、世の大衆の用いる言葉は所詮マスコミがその思惑の中で流行らせるものです。国家という枠の中で生活する大衆はいつまでも愚民だと思っています。真実を知り愚民から抜け出して改革に走る人間は生きていられないからとツルは思うのです。日本では多くの自殺者が出ているように伝えられておりますが、不都合な人間は自殺に仕立てられているだけだと思っています。映画監督の伊丹十三さんの死のように、裏ではツルを遥かに超えるいやらしく薄汚い力が蔓延っている。だから右でも左でもいいのです。
面と向かって首相の悪口を言えている日本は安泰で平和です。

ツル様

あちらでの話とこちらでの話は、敢えて混同しないておきたいと思います。
それぞれに時期が異なり、違った文脈があり、それぞれの場の空気があるからです。
そしてあちらでの話とココでの話には、時間差があり、その間に私の頭の中も変化します。当然変わらないものもありますが、それは私自身のみが知ることで、それを表明するかどうかは私が決めることです。

その上で、ココでは敢えて書かなかったことが、当然ながらあります。あちらでの話をここに持ち出す気はありません。

ツル様が引っ張り出されたテーマ "マスコミと愚民"ですが、私はココでは"愚民"とは一言も言っておりませんので、そこはハッキリ申し上げます。

=====

前提を申し上げたところで...

いわゆる政治学での用語としての"愚民"が本来だと思います。そこでココでは"一般民衆"や"国民"と言い換えます。我々一般民衆は毎日の生活送るので忙しくて、政治について調べたり考える時間は殆どありません。議会制民主主義は、そのような一般民衆が政治の専門家を選挙で選び、政治を託すシステムです。そして、マスコミは一般民衆に情報を与えるのが役割であり、政治の監視も役割なので、第四の権力と言われています。そのような機能を正しく果たすマスコミは民主主義には必要不可欠です。

ツル様が触れたいとお考えなのは、その本来の役割をマスコミが果たしていないという点ではないかと思います。真実を伝えないばかりか、事実を曲げて伝えているのが問題であり、さらに問題なのは公平公正に報道していると言いながら、実はそうでないことです。

さらに、嘘を平気で報道できる日本は、言論の自由が守られている民主主義国家であることにも言及されています。

一般民衆は今のマスメディアの異常をしっかり感じています。正しい情報に飢えています。
特に年代の低い人たちです。新聞とテレビに長時間接している６０台以上の世代は今のマスメディアに毒されている率が高いことが調査の結果明らかになっていますが、この世代の人口は先に減ってゆきます。

その結果、今のマスメディアは遅かれ早かれ滅びると思います。新たに生まれ変わるか、インターネット上のメディアが本当の意味で台頭する筈です。

ちなみに我が家は５年前から新聞購読を止めています。皆で新聞購読を止めれば曲がった新聞社は確実に倒産です。一緒に暮らしている家族は私の考えの影響を受け、それぞれ自分なりに考え、たまに疑問を私に振ってきます。私の知らないことや調べたことのないことが提示されることもあります。そして互いに情報交換ができて、さらに我々の頭で考える．．．といった好循環が生まれています。考えを押しつけるのでなくて、自分で考えるというのが最強ですね。

たかだか家庭の中の話ですが、これが広がりさえすれば良いという確信を得ています。

インターネットという外部記憶そして通信機能を得た一般民衆は、古い政治学で使われる"愚民"にカテゴライズできなくなっています。一人一人は"愚民"かも知れませんが、結束すれば"賢民"になることはもはや事実として認めるべきです。それに気付く"愚民"が一人でも増えれば良いと思います。

敢えて未来にしか言及しませんが、言論の自由が担保されている民主主義が続く限り、日本は安泰だと私も思います。

管理人様

久しぶりに良い文に出会ったという印象です。
他人の偏りは非難する癖に自分の偏りを自覚しない偏屈者は困ったものですが、少なくても自分だけはバランス感覚は整えておこうと意識しています。我が家ではテレビ視聴禁止にしています。偏りというよりも、家族個々の人生の時間を大切にしてあげたいからです。
その代わり映画を家族とよく見ます。
スクリーンを出して、120インチ位にプロジェクターで投影して楽しんでいます。

無事OKですね！

右上のサムネがバグってますね（笑）

画像が添付されていません。
システムではねられたかも．．．

「投稿できる添付画像は500KBまでの gif/jpg/png ファイルです。」と説明があるので、サイズが大きすぎたのでしょう。

一番上に表示されている ABOUT をクリックすると説明が盛られます。

ツル様

かなり昔まだ３０台前半のころ、研究テーマの１部として、ニューラルネットワークス(ＮＮ)の応用研究をやっていたことがあります。自分でコードを書いていました。当時はまだ NEC98シリーズ全盛で、DOS/V (IBM/AT) が出始めたころで、演算能力は今のスマホにも及ばない時代です。

これは今でいうDeep Learningです。理屈は何も変わっておらず、現実的に画像処理に用いられる程度に高速演算が可能になったことから、産業界での適用が進んできています。

Deep LearningからＡＩへ一足飛びに繋がるものではなく、現状は人間にしかうまく判断できない事柄をコンピュータでなんとか対応できないか、というレベルです。ＡＩはニュースソースとして面白いから最近は見聞きすることが多いですが、記事の殆どは記者の勉強不足がありありと見え、媒体の売りあげを揚げたいからの粗製濫造に近い記事が氾濫しています。

最近の雑誌ニュートンで取り上げられていますが、これはとても良い記事だと思います。

アイザック・アシモフのロボット三原則がありますが、今これが重要になるべきと思っています。１：人間に危害を加えない、２：命令には絶対服従する、３：自分に危害が加えられる時は自分で自分を守る．．．
この順序が大切ですね。

ＡＩ開発においては、この３原則が絶対だと思います。ＡＩが進展すると、自分よりも優秀なＡＩを作り出すようになる、Sigularity (特異点)と言われる事態に遅かれ早かれ到達するのでしょう。これは避けられません。ここでアシモフの三原則が重要になります。

つまり、ＡＩの判断基準を与えるのは人間だということを、今から強く認識しておく必要があります。最初にボタンを掛け違えれば、取り返しが付かないことになりかねません。

さて、誰がどうやって最も重要な判断基準を与えるのか、それは今の世界の政治経済をうごかしているものに思いを巡らすだけの柔軟な発想が必要ではないかと、私は痛切に感じています。

人のクローン作製に倫理基準が必要なように、ＡＩ開発にも倫理基準が必要だというのが私の主張です。

人間の世界には、歴史が語るように "揺らぎ"があります。左に振れたら今度は右．．．と行きつ戻りつしながら、一見大きな無駄を繰り返しながら、少しづつましな方向へ進んでいる．．．そのような感じがするし、そのように思いたいです。それが民主主義であり、意思決定に時間がかかります。全体主義では指導者が迅速に物事が決められます。

ＡＩの進展には、民主主義か全体主義かで、その速度が大きく変わるでしょう。速いほうが良いとは限らないのです。取り返しがつくうちに、多くの失敗を繰り返し、多くの人々がそれを共有し、ゆっくりと進めるべきなのがＡＩ開発だと、これはとても強く思っています。

政治経済の世界に目を向けますと、昔の共産主義、そして今のグローバル主義、実はこれらには共有点が見えます。どちらも全体主義と非常に馴染み、一握りのお金持ち（大富豪）が必ず裏にある共通点です。ロシア革命もユダヤ系大資本が裏で支えていたことは今や歴史的事実です。資本主義者が共産主義を支える構図は一見不思議かも知れません。共産主義の対立概念は民主主義であり、資本主義ではありません。共産主義と資本主義は対立しないのです。自分だけ、自分たちだけが儲かりたい資本主義者が共産主義を利用できるのです。これが歴史が教えてくれている事実だろうと、私なりに勉強し考えた今のところの結果です。これが現実なんです。

なので、グローバル主義によりＡＩ開発が効率よく加速化すると、政治もＡＩが担当する世界になりかねません。ロボット三原則のような正しいと思われる判断基準が組み込まれず、一部の大富豪の富の最適化が判断基準の根底に据えられると、世界が独裁される。一番怖いのは、多くの人々が気付かないうちにそうなることでしょうね。

技術的にはＡＩはとても面白いのですが、それを開発し使う人間達への危惧がどんどん大きくなっている．．．そんな管理人の憂鬱を聞いて貰いました。

管理人様

＞それを開発し使う人間達への危惧がどんどん大きくなっている．．．

はい、誰もがかんじている危険性だと思います。
だからそれがテーマになって多くの映画が作られていると思います。
あ、大丈夫です。ツルが管理人様の立場を脅かすことは絶対にありませんから。
１：管理人に危害を加えない、２：管理人の命令には絶対服従する、３：自分に危害が加えられる時はじっと耐える．．．
（笑）

ツルボット、今からsentaroかあちゃんのとこへ行って、私の命令を伝えてきなさい
sentattoかあちゃんから冷たくされても、じっと我慢のツルボットでした．．．

うはは、絵が浮かんでお腹が痛い．．．

それ関係の映画、Amazon Prime Videoでちょっと見てみようと思います。面白そう．．．
ここのところ、アメリカやイギリスのＴＶ番組ばかり見ているので、映画はご無沙汰です。

ツル様

実は、私も２０台のころハイラックスサーフで４駆ライフを満喫していたことがあります。ヒルクライム、渡河、林道(当時は未舗装で立ち入り禁止が殆どなかった)や富士の演習場などで、不整地走行を楽しんでいました。そして雪が降るとワンコのように４駆で走り回っていました。不整地や砂浜大雪時の他車の救難もよくやりました。一度は雪道の側溝にハマって動けなくなったパトカーを救出したこともあって、敵に塩を送ってやったととても爽快だったこともあります。

今でも４駆遊びへの興味は尽きないのですが、仕事や家族の事情で一中断しています。中断している中、イギリスで不整地走行の機会があったので遊んだ時の写真が等ブログの私のアイコンになっています。

上級救命．．．聞いたこともありませんでした。なんだか志の高さというかそういうことに時間をお金をかけるのって、素敵ですね。

＞なんだか志の高さというかそういうことに時間をお金をかけるのって、素敵ですね。

いえ、国家がツルに随分と投資してくれたから、今はそれへの恩返しのつもりでおります。
数年前の秋葉原の殺傷事件の現場にツルが居れば･･･と今でも悔やみます。
ツルは、相手が銃器なら別ですが、刃物なら全く臆しません。
（何か棒状のものは必要ですが･･･足は悪くないのに杖を持ち歩くのはそのためです。（みんなに内緒です））
ツルはお酒は好きです。しかし、酒を飲んでは運転は出来ないし、人を背負って歩くことも危なくなります。まして、誰かを守るために闘うことが出来なくなります。　だから飲まないのです。

上級救命の講習を受けたきっかけは、娘の誕生でした。
娘がまだ小さい頃一度、誤飲がありました。すぐに逆様にして背中を叩いて、異物を取り出して病院へ行きました。自分でも驚くほど迅速に行動できました。知っているか知らないかでは天地の差がありますね。（Progも）

管理人様
＞富士の演習場などで、不整地走行を楽しんでいました

この部分を読むと背筋が凍ります。窪みや草陰には、訓練中または一休みしている自衛隊員がいるでしょうから。
その区域とは離れているのでしょうけれども･･･

ツル様

若気の至りでした(２０台のころです)。
現地に詳しい人と常に同行していたのですが、真の危険性に気付いてからは、一度も足を踏み入れていません。

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;