自主制作アニメの話とか…
http://w.atwiki.jp/devulman/
自主制作アニメの話とか…
ja
2019-11-15T23:55:54+09:00
1573829754
-
List
https://w.atwiki.jp/devulman/pages/7.html
&ref(https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/1/22/bunner.gif)
*自主制作アニメ
-[[アニメの作り方]]
*Delphi関連
-[[プログラムの配布]]
-[[Delphi(Pascal)講座>http://www13.atwiki.jp/devulman/pages/22.html]]
*私のYouTube
-[[虫に関する動画>https://w.atwiki.jp/devulman/pages/57.html]]
*その他
-[[MS-Excellで描く>https://w.atwiki.jp/devulman/pages/58.html]]
-[[タンポポの葉っぱ>https://w.atwiki.jp/devulman/pages/24.html]]
-[[仕事の書庫>https://w.atwiki.jp/devulman/pages/74.html]]
-[[お知り合い>http://www13.atwiki.jp/devulman/pages/9.html]]
-[[書庫>http://www13.atwiki.jp/devulman/pages/34.html]]
-[[私的書庫>http://www13.atwiki.jp/devulman/pages/73.html]]
*更新履歴
#recent(5)
2019-11-15T23:55:54+09:00
1573829754
-
Top, トップページ
https://w.atwiki.jp/devulman/pages/1.html
-Visitor No.&counter():&counter(yesterday):&counter(today)
*森沢工房の自主制作アニメの話 since May 2006 &html(<title>自主制作アニメについて</title><meta name="keywords" content="自主制作,自主製作,アニメ,アニメーション,パンチラ,セーラー服,妖怪,巨人の星,作り方,パロディ,Delphi,Pascal,森沢,工房,森沢工房,森澤,健,morisawa,kobo,koubou,anime,animation,parody,panchira,cartoon">)
-マンガの登録いくつかあります。111
--[[コミコ>https://www.comico.jp/user/710331056/article/]]
--[[Pixiv>http://www.pixiv.net/member.php?id=14654781]]
--[[マンガボックス1>https://www-indies.mangabox.me/episode/59237/]]
--[[マンガボックス2>https://www-indies.mangabox.me/episode/59407/]]
--[[漫画ハック>http://mangahack.com/user/show/10187]]
-[[テキストアート>https://www13.atwiki.jp/devulman/pages/15.html]]のプログラム
-開Web13年
-[[2015SWに久しぶりのプログラム。一筆書きしました。2015/9/21>http://www13.atwiki.jp/devulman/pages/71.html]]
&youtube(https://www.youtube.com/watch?v=9L0wMXlwsSE){280,185}&youtube(https://www.youtube.com/watch?v=uVeeVV5wIIU){280,185}
&favorite(このページをお気に入りに追加!){森沢工房}
と入力すると
----
-&html(<a href="http://www.amazon.co.jp/gp/product/B000WM4S1I?ie=UTF8&tag=www13atwikijp-22&linkCode=as2&camp=247&creative=1211&creativeASIN=B000WM4S1I">Ulead VideoStudio 11Plus 通常版-</a><img src="http://www.assoc-amazon.jp/e/ir?t=www13atwikijp-22&l=as2&o=9&a=B000WM4S1I" width="1" height="1" border="0" alt="" style="border:none !important; margin:0px !important;" />)(アニメ作るには、Virsion9以降がよいでしょう)
-&html(<a href="http://www.amazon.co.jp/gp/product/4766114221?ie=UTF8&tag=www13atwikijp-22&linkCode=as2&camp=247&creative=1211&creativeASIN=4766114221">アニメーターズ・サバイバルキット</a><img src="http://www.assoc-amazon.jp/e/ir?t=www13atwikijp-22&l=as2&o=9&a=4766114221" width="1" height="1" border="0" alt="" style="border:none !important; margin:0px !important;" />)(アニメ作りの参考書)
*&html(<font color=#ff88ff>新着情報</font>)&ref(alert.gif)
-2019-08 白地図作ってポイントを書き込むプログラムを書きました。仕事で必要だったので仕事中に、当然転用して夜な夜な集めたデータの集大成がこれ。[[ロケ地アニメ舞台マップ>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/34/1005/A_Map_2019_11_09.pdf]]
-[[一筆書き(2015/9/21)>http://www13.atwiki.jp/devulman/pages/71.html]]
-[[折り紙>http://www13.atwiki.jp/devulman/pages/69.html]]の頁を始めました。(2010/10/31)
-[[ギターでアニソンを弾こう>http://www13.atwiki.jp/devulman/pages/40.html]]のページ(2007/2/17)
-スピログラフの[[プログラム配布(18)番>http://www13.atwiki.jp/devulman/pages/10.html]]はじめました。高画質印刷機能と画像保存機能をつけました。Normal Type更新、外回り可能(2010/1/11)色の周期変更機能付加(2010/1/12)歯車3個版更新sample表示機能付加(2010/1/20)
--&ref(https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/10/572/Spiro2.png)
-[[Ascii Art または、Text Art>http://www13.atwiki.jp/devulman/pages/15.html]] : ま、それなりに完成に近づきました。(2009/12/23)
--Ascii Art または、Text Art : プログラムし始めて1ヶ月、印刷、色修正などの機能が付きました。(2009/12/20)
--&ref(https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/15/554/20091224.png)
--偶然というか矢印のあたりがうまく出た。
-Excelの折れ線グラフで絵を描く時のデータ作成補助プログラム[[配布>http://www13.atwiki.jp/devulman/pages/58.html]](2009/11/14)
-[[ウィルス対策ソフト体験版使用具合記>http://www13.atwiki.jp/devulman/pages/67.html]]
-[[4半世紀前のPC88用「ロッキード疑獄ADVげーむ」Win32版(ほぼ当時の雰囲気のまま再現)>http://www13.atwiki.jp/devulman/pages/44.html]]
-[[チョコレートな15パズルV2>http://www13.atwiki.jp/devulman/pages/38.html]]配布始めました。まずはデザインから見てください。以下の解答4つに対応しています。(2008/8/2)。
--&ref(https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/10/313/15PUZZLE.gif)
-[[シネカリみたいな楔形の線を引くソフトの試作版(2006/8/13)かなり変更(2006/8/25)>http://www13.atwiki.jp/devulman/pages/30.html]]
-[[10穴ハーモニカ楽譜生成プログラムにおまけファイル追加(2006/6/14)>http://www13.atwiki.jp/devulman/pages/10.html]]
&html(<iframe src="http://rcm-jp.amazon.co.jp/e/cm?t=www13atwikijp-22&o=9&p=27&l=qs1&f=ifr" width="180" height="150" frameborder="0" scrolling="no"></iframe>)
----
-[[Top>http://www13.atwiki.jp/devulman/pages/1.html]]
-今日&counter(today) : 昨日&counter(yesterday)
----
2019-11-10T07:13:04+09:00
1573337584
-
my_job
https://w.atwiki.jp/devulman/pages/74.html
*仕事の資料
-ここは私が仕事で使っている資料の書庫です。
-発達障害の子ども等、学習ややる気に困っている子どもの支援に使う目的でご利用ください。
*以下が資料
-両親とも外国人の時に親が子どもの九九の読みが正しいかチェックする時に使う[[ローマ字表記の九九の表>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/74/1018/rome_ji_99.pdf]]
-400字原稿用紙くらい何とかなる![[作文必勝法>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/74/1019/sakubun_%20V2.pdf]]
-[[左利きの書字について>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/74/1015/Lefty091125.pdf]]
-叱ること・叱らないことを話し合って分類する表-[[問題行動整理表>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/74/1017/mondai_seiri.pdf]]
-[[トークンエコノミーのサンプル>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/74/1016/maru_tsuke.pdf]]
-[[リコーダーの苦手な子>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/74/1020/recorder.pdf]]
-[[リコーダー専用楽譜の例>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/74/1022/score_sample.pdf]]
-[[研修会の資料用漫画1>https://img.atwikiimg.com/www13.atwiki.jp/devulman/pub/manga1.pdf]]
-[[研修会の資料用漫画2>https://img.atwikiimg.com/www13.atwiki.jp/devulman/pub/manga2.pdf]]
-[[研修会の資料用漫画3>https://img.atwikiimg.com/www13.atwiki.jp/devulman/pub/manga3.pdf]]
-[[研修会の資料用漫画4>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/74/1006/manga4.pdf]]
-2019-08 白地図作ってポイントを書き込むプログラムを書きました。仕事で必要だったので仕事中に、当然転用して夜な夜な集めたデータの集大成がこれ。[[ロケ地アニメ舞台マップ>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/34/1005/A_Map_2019_11_09.pdf]]
2019-11-10T06:44:56+09:00
1573335896
-
Restore
https://w.atwiki.jp/devulman/pages/34.html
Visitor No.&counter():&counter(yesterday):&counter(today)
*過去のページやその他資料をPDF化した書庫です。
*過去ページ
-[[YouTubeについて(2006年6月)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=about_youtube.pdf]]
-[[週刊『くるみ』の木 (2008年5月5日) (約2Mbyte)>http://devulman.wikidot.com/local--files/main/Walnut.pdf]]
-[[くだらないヨタ話>http://www13.atwiki.jp/devulman/pages/13.html]]
--[[その1 偉大なる予言の書>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Route5.pdf]]
--[[その3 宇宙貨物船ヤマト>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Episode03.pdf]]
--[[その9 迷路をあっという間に解くソフト>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Episode09.pdf]]
*絵なもの
-[[ロケ地アニメ舞台マップ>https://img.atwikiimg.com/www13.atwiki.jp/devulman/attach/34/1005/A_Map_2019_11_09.pdf]]
-Drawing with MS-Excel (ExcelによるイラストPDF File)(画像だと拡大に耐えないし、Excelのままよりきれいだし…)
--[[go to Excel>http://www13.atwiki.jp/devulman/pages/58.html]]
-Catalogue of Pokemon Shiny from Silver ver. (ポケモン銀版キラリン図鑑) (各約1Mbyte)
--[[2ページ版 2 pages sized(2009/10/3)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Pokemon_Shiny02.pdf]]
--[[4ページ版 4 pages sized(2009/10/3)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Pokemon_Shiny04.pdf]]
--[[13ページ版 13 pages sized(2009/10/3)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Pokemon_Shiny13.pdf]]
-[[ポケモンよもやま通信(2009/10/21)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=pkmnbuletin.pdf]]
-SpiroGraph(スピログラフ):[[プログラムの配布(18)番>http://www13.atwiki.jp/devulman/pages/10.html]]
--Normal type-[[Sample Picture>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=SpiroGraph.pdf]]
--With 3 Gears-[[Sample 1 >http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Spiro2_sample1.pdf]]|[[ 2 >http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Spiro2_sample2.pdf]]|[[ 3 >http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Spiro2_sample3.pdf]]|[[ 4 >http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Spiro2_sample4.pdf]]|[[ 5 >http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Restore&file=Spiro2_sample5.pdf]]|
*その他
2019-10-31T22:46:42+09:00
1572529602
-
プログラムの配布
https://w.atwiki.jp/devulman/pages/10.html
-アニメーション制作に関するものは、作り方解説ページにあります。
*自作プログラムの紹介 Visitor No.&counter():&counter(yesterday):&counter(today)
-Free ware Freeware フリーウェア フリーソフト
-プログラミング経験、8bit機のBasicで3年ほど、その後いわゆる8bitのDOSであるCP/M-80v2.0で、Turbo Pascalを使い始めて、20年超。今のDelphiは、Turbo Pascalの後継です。最近のお勧めは、ウソE-mailアドレス1000個発生機。役に立たないものもあります。余談ですが…8bit 4MHz時代からまったく同じ作業のプログラムを走らせるんです。川口洋一郎氏のデンデンムシみたいなCG([[Illustration]]参照)を線だけで構成されたもので描くだけなんですが、約24時間かかった作業が、i486-33MHzで25秒でした。今では1秒未満ですね…。画面最大に描いたら、1秒越えた。今後Virsion Upする可能性の或るものには★を付けました。
-品目(◎:人から少しは役立つという評価を受けたもの ○:自分では役立つと思っているもの △:役に立たない飾り □:ゲーム類)
|評価|番号|分類|名前|
|△|(1)|ゲーム?|終了することだけが目的の遊びプログラム|
|◎|(2)|音楽|Ten Holes(ブルースハープ)のひらがな楽譜生成|
|◎|(3)|事務用品|年齢計算とカレンダー|
|□|(4)|ゲーム|★15パズル(1980年Switch on BASICの時代)と(今風な高速版、時間測定可能)|
|◎|(5)|数学|ルートあるいは平方根の筆算をやってみよう!(100桁超算出します)|
|○|(6)|数学系|★数独を解かせてみよう!|
|◎|(7)|事務用品|銀行でお金をおろす時、必要な小銭の数を求める|
|◎|(8)|ゲーム関係|ポケモン金銀save file改造プログラム|
|◎||Font|UNKNOWN True Type Font with Official "!?"|
|○|(9)||ウソE-Mail発生機 DM業者にレジスタンス!|
|○|(10)|数学|電話番号を素因数分解するソフト。|
|△|(11)||「よくできました」(パソコン作業で疲れたときに自画自賛しましょう)|
|○|(12)|ゲーム|★ユニバーサルデザインを目指したオセロ盤|
|△|(13)|数学|★サイクロイド曲線|
|○|(14)|音楽|音楽コードずらし参照表|
|○|(15)|アニメ補助具|★おどろき盤製作補助ツール|
|○|(16)|アニメ補助具|シネカリもどき作画ツール|
|△|(17)|補助具|★エクセルのグラフで絵を描く|
|△|(18)|数学|★スピログラフ Spirograph, Spiro Graph|
|○|(19)|アニメ補助具|internet reversi faker|
|△|(20)|描画|★雪の結晶描画ツール Snoe Flake Generater|
|◎|(21)|学習|計算練習ソフト|
----
**(1)終了することだけが目的の遊びプログラム
-最初はWindows3.1の頃にDelphi1.0で製作。その後2.0以降でコンパイルしなおしています。何をするわけでもないので終了してください。Win98あたりまでは、マウスクリックで終了できましたが、WinMe以降は、無理でした。マウスクリックによる終了をあきらめる時は、[Alt]+[F4]で終了してください。
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&pageid=1&file=ASOBI2.zip">Down Load</A>)
**(2)Ten Holes(ブルースハープ)の楽譜生成(数字譜)
-10穴ハーモニカの練習にどうぞ......どうも...頭の中で「おたまじゃくし」と「そのシッポ」と「吹く吸う」を判断しながら練習するのはとても大変。以下のサンプルはStar Warsメインテーマの楽譜です----は伸ばす長さ、( )内は、何番目を吹くか吸うかの指示です。テキスト形式で出力しますので。MSワードか何かを利用して印刷してください。サンプルで、前述のものと、インディ=ジョーンズをZip Fileに梱包してあります。マイナーキーの10穴にも対応しています。
《これでも楽譜》
ド(4:ふ)---ソ(6:ふ)---ファ(5:す)ミ(5:ふ)レ(4:す)
ド(7:ふ)--ソ(6:ふ)-ファ(5:す)ミ(5:ふ)レ(4:す)
ド(7:ふ)--ソ(6:ふ)-ファ(5:す)ミ(5:ふ)ファ(5:す)レ(4:す)-----
-ハーモニカの穴になる部分などを1回クリックすると、それに対応した「ド(4:ふ)」などが1つ出力されます。そんなにややこしいものではないと思いますので適当に使って、慣れてください。また、ハーモニカのケツに貼り付ける数字のラベルを追加しました(2006/06/14)。
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&pageid=1&file=TenHoles.zip">Down Load</A>)
**(3)年齢計算とカレンダー(事務用品)
-医療や福祉や学校の現場では元号の変換やら年齢を知りたい。乳幼児を扱う現場では、才ヶ月表記だったりと面倒くさい計算をやってくれます。干支も学年もでます。私の職場では、アイコンから「馬場さんを使う」といってます。薬屋さんとかが、お医者さんのところへ、この手の早見表のついた下敷きや定規とか持ってきます。それのようなものです。
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&pageid=1&file=calendar.zip">Down Load</A>)
**(4)15パズル(25年くらい前の雰囲気のプログラム)
-その1:8bitのスイッチ-オン-Basicの時代を懐かしみたい人に最適のせこいプログラム。1-15を並び替えるんですが、Key入力のみの操作になります。画面スクロール機能がまだついていないので、カーソルが行方不明になりますが、終了は、off [Enter]です。
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&pageid=1&file=puzzle15.zip">Down Load</A>)
-その2:とりあえずマウスも使えて時間も表示される版です。必要最低限の機能で軽くしてあります。数字を識別しやすいように行ごとに色を変えてあります。お褒めの言葉も出ます。
-その3:もう1つの15パズルは、プログラム自体はその2と同じものですが、Skin(皮)が違う版です。久しぶりに、座標使って絵を描きました。明治製菓が森永製菓でこのプログラム買ってくれないでしょうかね......[[イラスト>http://www13.atwiki.jp/devulman/pages/38.html]]のページを参照してください。V2はどこが違うのか?って年中頻繁に使えば違いがわかります。最初の起動でも変化が現れることも1/20の確率であります。
-ついでに、私の15パズルは、列をまとめて2個3個移動できます。現物のパズルではそのように移動できるし、通常は、まとめて移動したりすると手っ取り早いので、そのようにプログラムしてあります。
-[[Windowsっぽい高速版 Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Puzzle15_0v2.zip]](4つの解答対応版)
-[[チョコレート版V2 Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=puzzle15_25c.zip]](4つの解答対応版)
-&ref(15PUZZLE.GIF)
-なお、プログラムしていませんが、可能な並べ方は他にもあります。不可能が証明されている14と15を入替えた場合、不可の配列にできます。
**(5)ルートあるいは平方根の筆算をやってみよう!
-というわけで、アイコンにも工夫を凝らしてルート5をデザインしてみました。これは、あるとき、Niftyの教えてくださいのコーナーにルートの筆算を教えて欲しいという書き込みがあって10日ほどがんばってつくってみた作品です。教えて欲しかった人に、芸術的という評価をいただきました。使ってくれるのは数学の先生くらいでしょうか? プログラムの中身は250桁のそろばんを4つ準備してひたすら筆算による開平法を実行させています。サンプルの1000桁は、2000桁のそろばんを設定して作業しているだけです。
--&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%AE%E9%85%8D%E5%B8%83&file=Rt2-2.gif">2の平方根の筆算の概観</A>)
--&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%AE%E9%85%8D%E5%B8%83&file=Rt2.gif">2の平方根の筆算の印刷用画像</A>)
--[[元のテキスト>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=R2.txt]]
--[[ちょっと変更すると1000桁でも求められます>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=R2-5-1000.txt]]
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&pageid=1&file=Route.zip">Down Load</A>)
**(6)数独を解かせてみよう!
-zipに梱包されているファイルにも書きましたが、これで、楽をして懸賞に応募して、あたる人がいるとくやしいので、回数制限を設定してあります。
-http://www.ri-center.tsukuba.ac.jp/~kurata/nplc/
-このサイトの問題が解けなかった。解法としては、私のプログラムの場合、無理が生じると、空白が出現する。それを使って、(1)問題の入力、(2)解1、解2、OK?ボタンで、進めるだけ進む。変化がなくなったら、(3)一旦保存。複数候補が残っているところで、順に、数字を入れて(2)に戻る。空白が生じるなら、(3)を呼び出して、その数字は、そこのコマから排除、(3)からやり直す。(2)の繰り返しで変化がない時には、(3)を呼び出して、次の数字で同じことを繰り返す。という手順でどれも解ける。まぁ....そのうちプログラムしましょう。時間がかかるのに、なぜ解ける様子を表示するのか?それも、ボタンを何度も押させて...と思う人もいるでしょう.....自分がたのしいからです。映画「マトリックス」の降ってくる文字みたいなものです。
-ソースファイルを見たい人がいるようなので公開します。基本的な解法はActionExecuteに記述しています。
-[[ソースファイル>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%AE%E9%85%8D%E5%B8%83&file=Unit1.txt]]
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Analysis999.zip">Down Load</A>)
**(7)銀行でお金をおろす時、必要な小銭の数を求める(事務用品)
-これは、銀行にお金を引き出しに行くときに支払い先ごとに、小銭をバラバラで用意しなければならない時に使うプログラムです。
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&pageid=1&file=Barasen.zip">Down Load</A>)
**(8)ポケモン金銀save file改造プログラム
-これは、金銀版のsave fileを改造するプログラムです。save fileは、ゲームユーザーの著作物です。メーカーの著作物ではありません。どう書き換えようが勝手です。これを使って、ミュウもセレビィもそれらの色違いもいっぱい配布しました。ボックス単位で改造するソフトも作り、無償で配布することを条件に一人に30匹づつ渡したりのイベントも開催しました。もうカセットも電池切れですね。使い方は、save fileがあるフォルダーに一緒に入れて起動してください。あとは、適当に使ってみてください。念のため、save fileのコピーをとっておいてください。エラー処理はしていませんので、保存などしっかり確認しながらソフトを使ってください。変異体とは、赤いギャラドスみたいなものです。ミュウなら青、セレビイならピンク、黄花フシキバナなど楽しめます。
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%AE%E9%85%8D%E5%B8%83&file=pokeGS.zip">Down Load</A>)
-&html(<object width="170" height="142"><param name="movie" value="http://www.youtube.com/v/QWtDaHnBRew&rel=1"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/QWtDaHnBRew&rel=1" type="application/x-shockwave-flash" wmode="transparent" width="170" height="142"></embed></object>)&html(<object width="170" height="142"><param name="movie" value="http://www.youtube.com/v/ORtMPHbJUBI&hl=en&fs=1&"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/ORtMPHbJUBI&hl=en&fs=1&" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="170" height="142"></embed></object>)
-これは、プログラムではないんですが、ポケモン金銀以降に出てくるアンノーン(安穏ではなくunknown)のTTフォントです。使い方については質問しないでください。全種類を画像として参照し、TT-Editorで作ったものです。
-&html(<object width="170" height="142"><param name="movie" value="http://www.youtube.com/v/zQV0ty8nGsU&rel=1"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/zQV0ty8nGsU&rel=1" type="application/x-shockwave-flash" wmode="transparent" width="170" height="142"></embed></object>)-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=List&file=UnKnown.zip">Unknown TTF Down Load</A>)
-&ref(unknown2.PNG)[[Official"?!"version 2>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=UnKnown_v2.zip]]
**(9)ウソE-Mail発生機 DM業者にレジスタンス!
-E-mail アドレスを検索収集しているロボットにウソのアドレスを拾わせるためのプログラム。あなたのWebsiteにも1ページをさいていただき1000のウソアドレスをupLoadしてください。この@wikiモード対応書式付のものと外国のお友達に紹介してもらって協力を得るためのHTML版のみのものと、2種類のプログラムを用意しました。
-[[Uso-mail]] サンプルページ。
-[[@wiki版付のDown Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=UsoMail.zip]]
-[[HTML版のみのDown Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=UsoMail.zip]]
--こっちのほうは外国のお友達などにも紹介してください。
**(10) 電話番号を素因数分解するソフト。
-電話番号は、据置き限定です。10桁といっても、0で始まるので実質9桁。プログラムの結果を保存します
-たとえば、ソフトの完成した日付8桁を実験すると、
2 ) 20080528
2 ) 10040264
2 ) 5020132
2 ) 2510066
13 ) 1255033
29 ) 96541
3329
20080528 = 2 × 2 × 2 × 2 × 13 × 29 × 3329
-このように出力されます。
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=soinsu.zip]]
**(11)「よくできました」
-これといって目的のないソフトです。これは、職場の不規則勤務の入力支援ソフトを作ったときに勤務表作成者の労をねぎらう目的で作った冗談です。pascal講座の三角関数で桜を描く元ネタのソフトです。桜に月桂冠に花丸....なんか変な花丸がでますが、そこは、単なる冗談のソフトですから......
-こんな感じです。[[桜>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%AE%E9%85%8D%E5%B8%83&file=Image1.jpg]] [[花丸>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%AE%E9%85%8D%E5%B8%83&file=Image2.jpg]] [[月桂冠>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%AE%E9%85%8D%E5%B8%83&file=Image3.jpg]]
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=sakura.zip]]
**(12)ユニバーサルデザインを目指したオセロ盤
-これは、コンピュータ対戦ではありません。タッチパネルパソコンで対人対戦するものです。もちろんタッチパネルでなくても使えますが...
-実際の使用の具合では、手が不自由な場合、画面上を自由に行き来するのは困難である。
--人差し指1本だけ立てることができない場合、他の指であちこち触ってしまう。
--この解決は、利き手側の画面の隅にコントロールを集中してしまう。候補を順に移動しながら、また、とめた部分でそれを確定するボタンをそれぞれ設定する。
--また、そのうち......これはこれとして、type Bを作りましょう。
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=UniOthello-A.zip]]
**(13) サイクロイド曲線
-8bit機の頃を懐かしんで作った三角関数の遊び。スピログラフなんかが好きな人には興味のあるものかもしれません。win3.1に移行して2つめに、Delphiで最初に作ったグラフィックのプログラム
-印刷や多重描きの機能を付加(2010/2/3)
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=CYCLE.zip]]
**(14)音楽コードずらし参照表
-表題のとおりです。ギター弾くのに、このKeyは難しいから、半音さげてとか言うときに楽譜に変調したキーコードを書きますね。その時の参照物です。
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Keychang.zip]]
**(15)おどろき盤製作補助ツール
-おどろき盤を製作するときに11コマ13コマ14コマなどの配分をする道具。結果を印刷して、下敷きにして動画を作ってください。
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Cobweb.zip]]
**(16)シネカリもどき作画ツール
-詳細は[[絶滅危惧種>http://www13.atwiki.jp/devulman/pages/30.html]]を参照してください。
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=%E7%B5%B6%E6%BB%85%E5%8D%B1%E6%83%A7%E7%A8%AE&file=Uso_CC.zip">Down Load</A>)
**(17)エクセルグラフで絵を作る道具 Drawing with MS-Excel Chart
-MS-Excelの折れ線グラフを使って絵を描くための補助道具。[[ここを参照>http://www13.atwiki.jp/devulman/pages/58.html]]
-This program will make you to draw a picture with MS-Excel chart.[[Cf: This Page>http://www13.atwiki.jp/devulman/pages/58.html]]
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=ExcelPix.zip]](With English Manual,日本語取説付、ソフトの日本語化も可能)
**(18)スピログラフ Spirograph, Spiro Graph
-サイクロイド曲線のところにスピログラフという言葉をかいたので、検索で探しにくる人がいます。そんな訳で作ってみました。騙し絵的に見えるものを...高画質印刷機能と画像保存機能をつけました。(2010/1/6) 歯車3個版も更新しました。G2<G3もはみ出さずに描ける様にしました。さらに更新。日本語説明付。
-[[解説のページ>http://www13.atwiki.jp/devulman/pages/31.html]]
-Both Nomal type & 3 Gears type with English Manual.(2010/1/9)
-&ref(Spiro.png)
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro.zip]]-Nomal type V1.3 日本語表示可
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro_19.zip]]-Nomal type V1.9 日本語表示不可
-&ref(Spiro2.png)
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro2M23.zip]]-with 3 gears type Manual(in English)(日本語版)
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro2.zip]]-with 3 gears type Program v2.3 日本語表示不可
-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/PZCPPbI3YME"></param><embed src="http://www.youtube.com/v/PZCPPbI3YME" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/m2nNWXY3Axk"></param><embed src="http://www.youtube.com/v/m2nNWXY3Axk" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/rtiKEFIjrow"></param><embed src="http://www.youtube.com/v/rtiKEFIjrow" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)
**(19)interNet Reversi Faker
-This is an animation tool.
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=NeRF.zip]]
-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/3bVddNfbHuk"></param><embed src="http://www.youtube.com/v/3bVddNfbHuk" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)
**(20)雪の結晶 Snow Flake Generator
|&ref(http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=snow.gif)|&html(<iframe title="YouTube video player" width="290" height="240" src="http://www.youtube.com/embed/9C4QNllJJbU" frameborder="0" allowfullscreen></iframe>)|
-雪の結晶をデザインするプログラム。基本形は私の好みで決めてますので似たような形のものしか出現しません。雪印のマークに似たものです。最大の問題点は、今の画面のデータが画像として保存される訳ではないことです。どのボタンもクリックする度に新しいものを作ってしまいます。私のプログラムは、一旦出来上がると余り改善しないでそのままになってしまう事が多いのですが、この点だけは何とかしたいと思います。一度つくるとそのままになってしまう最大の理由は、無計画で、試行錯誤を繰り返しつぎはぎだらけのプログラムを作ってしまうので自分自身が流れを理解できなくなってしまうためでしょう…多分。
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=SnowF.zip]]
**(21)計算練習
-計算練習の基本的な法則をおぼえるためのソフト、マウス入力、フルキーボード入力の切り替え、ネコ耳の女の子の絵で正解を教えてくれるとか、花丸の機能付き。
-誤答のデータ保存をするのでチェックできます。
-[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Keisan.zip]]
----
*何をダウンロードしましたか?(2014/4/7設置)
#vote(1_終了ゲーム[1],2_Ten Holesひらがな楽譜生成[0],3_年齢計算とカレンダー[0],4_15パズル[0],5_平方根筆算[0],6_数独を解かせる[0],7_小銭計算[0],10_素因数分解[3],18_スピログラフ[1],20_雪の結晶[1],21_計算練習[0])
*プログラムの感想などありましたらご記入ください。(2014/4/7再開)
#comment
----
Total:&counter() Yesterday:&counter(yesterday) today:&counter(today)
-[[Page Top>http://www13.atwiki.jp/devulman/pages/10.html]]
-[[Top Page>http://www13.atwiki.jp/devulman/]]
----
以下は広告
2018-12-07T08:53:27+09:00
1544140407
-
OneLine
https://w.atwiki.jp/devulman/pages/71.html
- Visitor No.&counter():&counter(yesterday):&counter(today)
*One Line Drawing (一筆書き)
-(This part is about Japanese-English translation trouble.)
-英訳サイトで調べたら、One Stroke sketch とでましたが、画像ぐぐってもほとんどでない。上記のがよく出る。
-困って、考えてみれば、線画は通常drawing(ドローイング)って呼ぶし、ま、そんなこんなで脳みそ絞ってみたら、出ました。結果、strokeに問題があったようで、One Lineなら、Sketchでもたくさん出ることが判った。一気に描くものもは、strokeに多かった。(Aug.2015)
*1st I found a stamps in Aug 2015.(8月に発見)
-&ref(oneline1.JPG)
-[[Original Size>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&pageid=71&file=Danmark.jpg]]
-This is it. It was a stamp of Danmark designed by Boye Willumsen. Then I traced it, and found it's one line drawing.
-これ! デンマークの切手で、Boye Willumsenのデザインしたもの。その後なぞってみて、一筆書きであることを確認。
----
-Next I tried two of my drawing with pencil, scanning, tracing on MS-paint.
-次に、自分でやってみようと、鉛筆で下書き、スキャン、MS-Paintで線引きしてみた。
-&ref(oneline2.png)
-[[Original Size>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&pageid=71&file=20110815.PNG]]
-&ref(oneline3.png)
-[[Original Size>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&pageid=71&file=0001.PNG]]
-[[PDF File>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&pageid=71&file=Butterfly.pdf]]
----
-But hard to change color or width of line after finished them.
-So, I programmed in delphi 5j on WinXP(US). Using Bezier^2 curve, save not pix but coodinary data. And when print, reading printer's dpi info and re-write to printer's buffer memory.
-Then I finished up the 3rd on 21 Sept. 2015.
-しかし、書いた後で、色を変えるとか線の太さを変更するのは、とても、困難。
-そんな訳で、winXP(US版)のDelphi5jでプログラムすることに。2次ベジエ曲線を使って、画像ではなく、座標で保存。印刷時にはプリンタの密度に応じて再描画した画像をバッファに送信する方法。
-それで、3つ目が2015.9.21に完成。
-&ref(oneline4.PNG)
-[[Original Size>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&pageid=71&file=pixy1.PNG]]
-[[Mono Color & Simple Line PNG file>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&pageid=71&file=pixy3.PNG]]
-[[Full Color PDF file>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&pageid=71&file=Pixy1.pdf]]
-[[Mono Color & Variation lines PDF file>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&pageid=71&file=Pixy2.pdf]]
-[[Mono Color & Simple Lines PDF file>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&pageid=71&file=Pixy3.pdf]]
----
-This program is not finished-up.
-プログラムは未完成。
----
2015-09-24T22:40:39+09:00
1443102039
-
scrap
https://w.atwiki.jp/devulman/pages/73.html
2015-04-29T22:07:48+09:00
1430312868
-
spirograph
https://w.atwiki.jp/devulman/pages/31.html
-Visitor No.&counter():&counter(yesterday):&counter(today)
-keyword: スピログラフ 数式 サイクロイド 三角関数 サイン コサイン
*Spirograph
-このページはYouTubeからのリンク用です。日本語は下のほう。
-Nomal type & 3 Gears type
--with About-English Manual and Japanese Manual.
--Print out with High-dpi.
--Can save on Bitmap file. It's big size and U'd better re-save PNG file with MS-Paint.
--Nomal type has 10 samples to draw.
--3 Gears type has 30 samples to draw.
-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/PZCPPbI3YME"></param><embed src="http://www.youtube.com/v/PZCPPbI3YME" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/m2nNWXY3Axk"></param><embed src="http://www.youtube.com/v/m2nNWXY3Axk" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/rtiKEFIjrow"></param><embed src="http://www.youtube.com/v/rtiKEFIjrow" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)
-These youtube sample are 3 gears types.
----
-Normal Type Spirograph
--[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro.zip]]-Nomal type V1.3 日本語表示可
--[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro_19.zip]]-Nomal type V1.9 日本語表示不可
-3 Gears Type Spirograph (but it's slipping)
--[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro2M23.zip]]-with 3 gears type Manual(in English)(日本語版)
--[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro2.zip]]-with 3 gears type Program v2.3 日本語表示不可
----
-[[My Plan>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&page=spirograph&file=Cycloid.pdf]]
-At 1st I mistake the programming. I'd forgotten to program the rotation of Gear with pen holes. It's like the moon stand still from us on the Earth. But it rotate 1 round / a day.
-So the rings has no gears and slipping each other.
-Normal Type = with 2 Gears has 2 way to draw both slipping type and real gear type.
-3 gears type has only slipping, because slipping type is not so different from real type and I cannot understand how many rounds to draw-up a 3 gears spirograph. Only case I found was G(ear)1>G2>G3, and G2 is inside of G1, and G3 is inside og G2.
--How to calculate the rounds to draw-up a Spirograph.
--Make simplizing ratio G1:G2 and G1:G3 and G2:G3.
--These are G1a:G2a and G1b:G3b and G2c:G3c.
--Next lowest common multiple of G2a and G3b and G3c.
--It's the answer of the rounds to draw-up a Spirograph. But it's not always true.
-And I found real 3 Gears and slipping type are not so different to draw-up design. So I programmed only slipping type.
-How many rounds drawing-up a spirograph needs?
--Make simplizing ratio G1:G2 and G1:G3.
--These are G1a:G2a and G1b:G3b.
--Next searching is the lowest common multiple of G2a and G3b.
--It's the answer of the rounds to draw-up a Spirograph.
-&ref(Image1.png)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Illustration&file=Spirograph1.PNG"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Illustration&file=Spirograph1t.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Illustration&file=Spirograph2.PNG"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Illustration&file=Spirograph2t.png" BORDER=0 ></a>)
*Type 1 (360/1) These are PDF Samples.
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S070036080_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S070036080_10000.PNG" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080032020_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080032020_10000.PNG" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100042015_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100042015_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100048015_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100048015_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100080050_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100080050_10000.png" BORDER=0 ></a>)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100138050_10011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100138050_10011.PNG" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S102080040_10001.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S102080040_10001.PNG" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120027080_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120027080_10000.PNG" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140036021_10111.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140036021_10111.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140075021_10001.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140075021_10001.png" BORDER=0 ></a>)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144020075_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144020075_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144030080_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144030080_10100.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144039078_10001.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144039078_10001.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144080030_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144080030_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S060144080_10010.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S060144080_10010.png" BORDER=0 ></a>)
*Type 2 (360/2)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S050023050_10111.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S050023050_10111.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100022060_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100022060_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100036060_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100036060_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100060022_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100060022_10100.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S130025060_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S130025060_10100.png" BORDER=0 ></a>)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S130060025_08000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S130060025_08000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144035084_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144035084_10100.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144048080_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144048080_10100.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144080048_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144080048_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144048074_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144048074_10100.png" BORDER=0 ></a>)
*Type 3 (360/3)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S010034085_10101.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S010034085_10101.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080020064_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080020064_10100.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080033020_10011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080033020_10011.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S110026052_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S110026052_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S112040080_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S112040080_10100.png" BORDER=0 ></a>)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120060011_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120060011_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140036030_10111.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140036030_10111.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080064020_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080064020_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140028050_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140028050_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S023100050_10011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S023100050_10011.png" BORDER=0 ></a>)
* Type 4 (360/4)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100072020_06000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S100072020_06000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S110024045_10111.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S110024045_10111.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S110045024_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S110045024_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S110045024_10011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S110045024_10011.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S118045015_09000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S118045015_09000.png" BORDER=0 ></a>)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S126054010_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S126054010_10100.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140028086_09100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140028086_09100.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140036012_10111.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140036012_10111.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140066028_08011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140066028_08011.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144048080_09000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144048080_09000.png" BORDER=0 ></a>)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144048080_09011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144048080_09011.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144080048_09111.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144080048_09111.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S069040120_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S069040120_10100.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120040029_10011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120040029_10011.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S132044031_10001.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S132044031_10001.png" BORDER=0 ></a>)
*Type 5 (360/5)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S010040085_10010.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S010040085_10010.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S010040115_10001.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S010040115_10001.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S010040118_10001.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S010040118_10001.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080020030_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080020030_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080020030_10011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080020030_10011.png" BORDER=0 ></a>)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080030020_10111.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S080030020_10111.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S108072022_06000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S108072022_06000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120030082_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120030082_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120037020_10011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120037020_10011.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120051020_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120051020_10000.png" BORDER=0 ></a>)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120052020_04000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120052020_04000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120080027_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S120080027_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144020064_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144020064_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144036039_10011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144036039_10011.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144079024_10011.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S144079024_10011.png" BORDER=0 ></a>)
*Type 6 (360/6)
&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S112080016_03000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S112080016_03000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S135027096_10000.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S135027096_10000.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140020038_10100.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140020038_10100.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140043028_10010.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140043028_10010.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140094028_10111.pdf"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=spirograph&file=S140094028_10111.png" BORDER=0 ></a>)
----
-Visitor No.&counter():&counter(yesterday):&counter(today)
*スピログラフ
-普通型 と 歯車3個型のスピログラフ
--適当な英語版及び直訳な日本語マニュアル付
--高画質印刷可能
--Bitmap保存可能。サイズがでかいのでMS-PaintでPNGに保存しなおすと良い。
--普通のものは10個のサンプル付
--歯車3個のものは30個のサンプル付
-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/PZCPPbI3YME"></param><embed src="http://www.youtube.com/v/PZCPPbI3YME" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/m2nNWXY3Axk"></param><embed src="http://www.youtube.com/v/m2nNWXY3Axk" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)-&html(<object width="204" height="168"><param name="movie" value="http://www.youtube.com/v/rtiKEFIjrow"></param><embed src="http://www.youtube.com/v/rtiKEFIjrow" type="application/x-shockwave-flash" width="204" height="168"></embed></object>)
-このYouTubeサンプルは、歯車3個のもの。
----
-普通型スピログラフ
--[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro.zip]]-普通型 V1.3 日本語表示可
--[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro_19.zip]]-普通型 V1.9 日本語表示不可
-歯車3個型スピログラフ (歯車が滑ってます)
--[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro2M23.zip]]-歯車3個型マニュアル(in English)(日本語版)
--[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=dataup&file=Spiro2.zip]]-歯車3個型プログラム v2.3 日本語表示不可
----
-[[私の計画>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&page=spirograph&file=Cycloid.pdf]]
-最初プログラムの記述を間違えた。ペンの穴ある歯車の自転分を忘れていた。それは、私たちが地球から月を見ると止まっているかのようだが、1日に1回転しているようなもの。
-それで、輪っかには歯がなく滑っていた。
-普通型 = 2個の歯車があるもので、滑りながら回ってる状態と、歯車がかみ合っている状態の2つの描き方をプログラムした。
-歯車3個型は、滑っている状態のみになっている。なぜなら、正しくかみ合っているのものも数値を変えれば大差ない結果になるからである。そして、何回転したら完結するのか私には理解できい。唯一G(ear)1>G2>G3 且つ G2はG1の内側 且つ G3はG2の内側の場合のみ算出する方法を発見した。
--その何回転必要かの計算方法は、
--G1:G2 と G1:G3 と G2:G3 の比を簡単にする。
--結果を G1a:G2a と G1b:G3b と G2c:G3cとする。
--それからG2aとG3bとG3cの最小公倍数を求める。
--これがスピログラフを完結するに足る回転数となるが、常に正しくはない。
-そして、歯車3個型は、描きあがってみると、滑っているのと大差ないことがわかり、滑っているものだけのプログラムを記述した。
-滑っている場合の必要回転数は?
--G1:G2 と G1:G3の比を簡単にする。
--これを G1a:G2a と G1b:G3bとする。
--G2a と G3bの最小公倍数を求める。
--これが、スピログラフを完結するに必要な回転数となる。
-&ref(Image1.png)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Illustration&file=Spirograph1.PNG"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Illustration&file=Spirograph1t.png" BORDER=0 ></a>)&html(<a href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Illustration&file=Spirograph2.PNG"><img SRC="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Illustration&file=Spirograph2t.png" BORDER=0 ></a>)
*その他
-職場以外で私の作ったプログラムを使っている人を発見。Photo Shopでさらに加工しているそうです。ここのサイトの紹介もしてくれてます。いい加減な英語のマニュアルも通じたようで、ホっ…。慣れた人が加工すると出来がいいですね。スペインの方でした。
-&ref(Spiral1.jpg)
----
[[Go to Top Of Page>http://www13.atwiki.jp/devulman/pages/31.html]]
----
2013-12-18T10:52:27+09:00
1387331547
-
Text_art
https://w.atwiki.jp/devulman/pages/15.html
-Visitor No.&counter():&counter(yesterday):&counter(today)
-ここは、Delphi(Pascal)によるプログラム講座です。(2009/11/23開始)
-&ref(20091224.png)
-[[かなりアバウトな計画>http://cdn13.atwikiimg.com/devulman/?cmd=upload&act=open&page=Text_art&file=TextArt.pdf]]
--現在の出来具合。プログラムを使いたい人は、このページのドンケツまで進んでください。
-長辺250文字を使うと47段階表示で、[[こんなに>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=MJ1.JPG]][[きれい(Jpeg)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=MJ2.JPG]]です。
-[[このサンプルPDF>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Milla_Jovovich_300.pdf]]は、秀丸からDocuCom PDF Driverに出力しています。12/20の段階で、印刷機能をプログラムしました。位置は、自動で中央配置、縦長・横長の自動判定、文字も用紙に対して最大になるよう自動調整で印刷します。文字情報から印刷データを作成するので、画像保存とは比較にならないきれいさで印刷します。
-着手から1ヶ月、知らない人でも使えるインターフェイスまでできあがりました。(2009/12/23)
*絵を読み込んで、文字の画数を濃淡として表現
-一般にテキストアート(text art)・アスキーアート(ascii art)などと言われていますが、パソコンが、パーソナルではなかったころには、グラフィックプリンターなんてないので、ドット絵のようなものか、文字の画数を濃淡として表現するか、違う文字を2度打ちするなどので絵を印刷しました。
-これ自体は、いくつかのソフトと手作業の技で、できないものではありません。私の場合、半角で構成するなら、横幅は、200として
--MS-Paintで適当な絵を縦方向に半分に縮め、上下反転したものをBMPで保存。
--PSPで、グレースケール->16色に減色->24bitに増色->win16色を含む256色に原色->再度グレースケール-->保存。
--Binary Editor->先頭から色FFFFFF(白)まで削除->保存。
--秀丸で欧文字表記設定->200字ごとに改行する->濃淡にあわせて置換->csvで保存。
--Excelで、非プロポーショナルフォントを選択->うんとズームバック->行間を調整->印刷比率を調整。
-以上の手順で作ったサンプルです。文字で構成されているのを確認しやすいように、PDFにしてあります。これ以後もサンプルは、プログラムのチェックで作ったものをPDFでUploadしています。
--[[Che Guebara>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Guebara_Text.pdf]]
--[[東野英治郎(水戸黄門)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=TONO_EIJIRO.pdf]]
--[[Milla Jovovich>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=MILLA-JOVOVICH.pdf]]
--[[Leonard Nimoy(Spock)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Spok_Text.pdf]]
--[[藤田まこと(中村主水)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=FUJITA%20MAKOTO.pdf]]
-ただ、これは、絵の1ドットを1文字で置き換えているだけなので芸がないと言われれば、その通りと返すしかありません。
-前から作ろうと思っていたのですが、今回引き金になったのは、朝日新聞に載ってたこの記事です。
-&ref(Kiji.GIF)[[ここ>http://www.tenyo.co.jp/jigazo/index.html]]
-注意していただきたいのは、フローチャートも設計仕様もなく、思いつきで作っているので、仕様がコロコロ変ります。
*文字の濃淡を評価する
-文字は使う人が決めたいでしょう、多分。家族の名前や住所の漢字を織り込んでみたいというのが普通でしょう。「・」「/」「+」「-」は必須として.....
-複雑な形の面積を求めるのに升目を描いて数を数え、中途半端な全部の数÷2で求める小学校の時の方法。
--漢字1個の濃淡を占める面積に対する黒の比率で表す。48ポイント以上あれば、「麒麟」のような字もそこそこ妥当な数値を出すのではないでしょうか?
--&ref(kanji.GIF)
-まずは、こんなFormを用意しましょう
--Edit1:調べたい漢字入力、Edit2:結果出力、Image1:漢字記入用、Button1:作業用ボタン。
--&ref(T01.png)
-ところで、48ポイントの全角文字が占める縦横はどうして計るのか?(ここまで2009/11/23)
var x,y:integer;
begin
Image1.Canvas.Font.Name:='MS ゴシック';
Image1.Canvas.Font.Size:=60;
y:=Image1.Canvas.TextHeight('問');
x:=Image1.Canvas.TextWidth('問');
Edit2.Text:=IntToStr(x)+':'+IntToStr(y)
end;
-こんな風にButton1にでも記述してボタンをクリックすれば結果が表示されます。
--Font Sizeをいろいろ変更してみてください。
-このままButton1に入れておかないで、Form Create時に実行してグローバル変数に格納しましょう。
--var moji_haba:integer;を先頭の方に記述して、それにさっきの実験でx=yだったので、どっちか1つ確認すればOK。
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Font.Name:='MS ゴシック';
Image1.Canvas.Font.Size:=60;
moji_haba:=Image1.Canvas.TextWidth('問');
end;
-では、今度はButton1に文字の占める面積に対する黒の比率を求めてみましょう。
procedure TForm1.Button1Click(Sender: TObject);
var x,y,n:integer;
begin
Image1.Canvas.Font.Color:=clBlack;
Image1.Canvas.TextOut(0,0,Edit1.Text);
n:=0;
for y:=0 to moji_haba-1 do for x:=0 to moji_haba-1 do
if Image1.Canvas.Pixels[x,y]=clBlack then n:=n+1;
Edit2.Text:=IntToStr(round(n/moji_haba/moji_haba*100))+'%';
end;
-麒麟の字でもそれぞれ42%、44%.....半分未満です。(ここまで2009/11/24)
-1つ1つ濃淡を調べて並べ替えるのは面倒なので、まずButton1の内容を汎用関数化します。
private
{ Private 宣言 }
function noutan(kan:string):integer;
-functionの1行を宣言部分に書き加えて、中身はほとんどそのまま。
function TForm1.noutan(kan:string):integer;
var x,y,n:integer;
begin
Image1.Picture.Bitmap.PixelFormat:=pf1bit;
Image1.Canvas.Font.Color:=clBlack;
Image1.Canvas.TextOut(0,0,kan);
n:=0;
for y:=0 to moji_haba-1 do for x:=0 to moji_haba-1 do
if Image1.Canvas.Pixels[x,y]=clBlack then n:=n+1;
noutan:=round(n/moji_haba/moji_haba*100);
end;
-で、Button1は以下のように書けばOKです。
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=IntToStr(noutan(Edit1.Text))+'%';
end;
-ここまでやったら、また、同じように作動しているか確かめてみましょう。そしたら、次に進みましょう。
-これをグローバルの定数として追加し、連続して濃淡を算出してみましょう。(ここまで2009/11/27)
-って書いたんですが、
const data=' ・一卜了十乙公以中占五卒沢労安串咲欧詰森夷伽鉗蠻庵諭躡鬱籠蠢麟原';
Cmax=31;
var kanji:array[0..100] of string; BW:array[0..100] of integer;
moji_haba:integer;
-グローバルの定数・変数として上記のように設定します。moji_habaなんて、いきなり使っていて、説明をわすれてました。
-Cmaxは、0から31までの32段階表示です。kanjiは漢字を入れる配列、BWは、濃淡度を入れる配列です。
-起動時の設定で、整数の変数xを追加して、漢字データを配列に格納します。
for x:=0 to length(data) div 2-1 do kanji[x]:=copy(data,x*2+1,2);
-Memo1を追加しましょう。その上でButton1の内容は、
procedure TForm1.Button1Click(Sender: TObject);
var i,j,n,l:integer; k:string;
begin
l:=length(data) div 2-1;
for i:=0 to l do
begin
k:=kanji[i]; BW[i]:=noutan(k);
Memo1.Lines.Add(IntToStr(i+1)+' '+k+','+IntToStr(BW[i])+'%');
end;
end;
-これで、実行すれば、漢字と濃淡度が順番にでます。
-ついでに並べ替えてみましょう。良くある総当たり戦方式です。Button1に追加です。さらに、もう一度表示させて並べ替えを確認しましょう。
for i:=0 to l-1 do {この行から並べ替え}
begin
for j:=i to l do
if BW[i]>BW[j] then
begin
k:=kanji[i]; kanji[i]:=kanji[j]; kanji[j]:=k;
n:=BW[i]; BW[i]:=BW[j]; BW[j]:=n;
end;
end;
for i:=0 to l do {再度表示}
begin
k:=kanji[i]; BW[i]:=noutan(k);
Memo1.Lines.Add(IntToStr(i+1)+' '+k+','+IntToStr(BW[i])+'%');
end;
-漢字の濃淡度出して並べ替えたら、一度試してみたくなるのが人間の心理です。
-基本的にはRGBの平均値を求めるのですが、正確に言うと色の三原色は、それぞれの値が255でも同じ明るさにはなりません。B255が最も暗く、次にR255、次がG255ではなく、B255+R255つまりマゼンダがG255より暗いのです。気になる人は、PSPなどのグラフィックツールで先にBW画像に直しておきましょう。
-&ref(BW.GIF)
-右は明度、左は8bitの頃のカラー番号です。三原色の番号に注目してください。
--1+2=3、つまり、青+赤=マゼンダ
--1+4=5、つまり、青+緑=水色
--2+4=6、つまり、赤+緑=黄色
-うまくできています。
-Button1の内容は、起動時に実行するようにすればOKなんですが、ま、実験の繰り返しなので、Button2を用意して、test.bmpなる横幅120くらいの画像を用意しましょう。
procedure TForm1.Button2Click(Sender: TObject);
var x,y:integer; n,g:longint; dam:string;
begin Memo1.Lines.Clear;
Image1.Picture.LoadFromFile('test.bmp');
for y:=0 to Image1.Height-1 do
begin
dam:='';
for x:=0 to Image1.Width-1 do
begin
n:=Image1.Canvas.Pixels[x,y];
g:=n div $10000; n:=N mod $10000;
g:=((g+(n div $100)+(n mod $100)) div 3) div 8;
dam:=dam+kanji[Cmax-g];
end;
Memo1.Lines.Add(dam);
end;
Memo1.Lines.SaveToFile('test.csv');
end;
-中ほどの長い行ですが、8で割っているのは、濃淡32段階表示のため、256÷32の結果です。
-もちろん、ファイル名選択の部分を作ってもいいし、その辺はご自由にどうぞ。
--[[暴れん坊将軍>>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=abare.pdf]]
--[[桑畑三十郎(用心棒の劇中自称)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=yojimbo.pdf]]
--[[Milla Jovovichでサイズテスト>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Size_Test.pdf]]
-上記最後のサイズテストの実験で、長辺60文字位で作れれば、工夫の度合いが見れるかもしれません。否、失敗がわかるかもしれません。
-ここまでの状態で、横幅120前後の画像で遊んでみてください。(ここまで2009/11/29)
--Program[[Down load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=404.JPG]]は、更新のため下の方を探してください。
*さて、これから.....
-1画素1文字対応ならこれで終わりになりますが....前述のMilla=Jovovichのもので長辺121のものだと、目の星が見えるが91では、見えないが、歯が見えているのはまだ分かるが、61になると歯もよくわからない状態である。長辺61に設定して、漢字一文字を4区画に分けて、濃度の偏りを調べて適用すれば、長辺121並の画質ににはならないだろうか? 画数の多いものはそんな文字を探してセットにするのは簡単だが、画数の少ないものになると、記号なども使うことになるだろうし、それでも発見できるか分からない。
--国構え門構えは線のカクカクが目立つので使わない。濃度から言えば、40段階表示が限界かもしれない。
--&ref(katayori.GIF)
--こんな感じで分類して、kanjiの配列を2次元化しましょう。
--kanji:array[0..100] of string;.....となってたのを
kanji:array[0..400,0..8] of string;
-として、同じ濃度のそれぞれ番号順に配列に格納して下準備をしましょう。そのためには、これまで作った部分も大幅に変更が必要になりますね.....また、濃淡を算出しても、人間の目で見て国構えが濃く見えるように、文字が大きいと、必ずしも数値どおりには見えないこともあるので、ある程度自動処理して漢字セットを作るのは、自分で好きな漢字を入れて作りましょう。
-そんな訳で、Formの空いているところにStringGridを1個追加しましょう。(ここまで2009/11/30)と思ったんですが、やっぱりやめて.......また、別のことを思いつきました。
-同じ文字が整然と並んでいるところができてしまうので、これを乱数で選び出すようにしてはどうかと思い、Button3を一時的に追加し、Edit1か2を入力装置にしてMemo1に濃度別に出力、つまり、文字の濃淡を片っ端から調べようというわけです。
procedure TForm1.Button3Click(Sender: TObject);
var i,l,n:integer; dam,K_data:string;
const F_name='濃淡.txt';
begin
if FileExists(F_name)=false then
begin
Memo1.Lines.Clear;
for i:=0 to 60 do Memo1.Lines.Add(IntToStr(i)+',');
Memo1.Lines.SaveToFile(F_name);
end;
//-------------------------------
Edit2.SelectAll; Edit2.PasteFromClipboard;
Memo1.Lines.LoadFromFile(F_name);
K_data:=Edit2.Text;
l:=length(K_data) div 2;
for i:=0 to l do
begin
dam:=copy(K_data,i*2+1,2);
n:=noutan(dam);
Memo1.Lines[n]:=Memo1.Lines[n]+dam;
end;
Memo1.Lines.SaveToFile(F_name);
end;
-1bit Color表示の100ポイントで調べています。そして、調査の結果、スペースや記号を含む第1水準漢字で0-45%、部首を含む第2水準で、7-48%、双方とも47%なく、0-46段階の表示で、実験してみようかと思います。加えて、同じ濃淡の漢字を複数の候補から乱数で選び出す.....ちょっと時間がかかるかもしれません。つまり、初期設定から作り直すことにしましょう。
--&ref(noutan.png)
--こんな感じになります。(2009/12/2)
--明朝は別に調べましたが、40%未満になります。
-これを使って構成してみることになります。ただし、使う文字の種類が増えると、PDFのサイズも鰻登りになります。
function bunri(dat,c,f:string):string;
var p,l,cl:integer;
begin
l:=length(dat); p:=pos(c,dat); cl:=length(c)-1;
if f='-' then bunri:=copy(dat,1,p-1);
if f='+' then bunri:=copy(dat,p+1+cl,l-p-cl);
end;
-この関数は、特定の最初にあるc文字の前か後ろを取り出すものです。さらに、
var kanji:array[0..100,0..8] of string; BW:array[0..100] of integer;
moji_haba, Cmax:integer;
-グローバルの定数はなくして、変数に変えて、
function PixToKan(P_noutan,P_katayori:integer):string;
var l:integer; dam: string;
begin
l:=length(kanji[P_noutan,P_katayori]);
if l=2 then dam:=kanji[P_noutan,P_katayori]
else
begin
l:=Random(l div 2)*2+1;
dam:=copy(kanji[P_noutan,P_katayori],l,2);
end;
PixToKan:=dam;
end;
-P_katayoriは、今のところ0でしか使いませんが、こんな関数を作ります。濃度を与えられると、それにあわせた漢字を候補の中からランダムに選択して返します。
procedure TForm1.FormCreate(Sender: TObject);
var x:integer;
begin
Memo1.Lines.Clear;
Memo1.Lines.LoadFromFile('濃淡0.txt');
Cmax:=Memo1.Lines.Count-1;
for x:=0 to Cmax do kanji[x,0]:=bunri(Memo1.Lines[x],',','+');
Memo1.Lines.Clear;
Randomize;
end;
-初期設定もこんなに変ります。濃淡0.txtのファイルは、サンプルでつけてあります。
procedure TForm1.Button2Click(Sender: TObject);
var x,y:integer; n,g:longint; dam:string;
begin
Memo1.Lines.Clear;
Image1.Picture.LoadFromFile('test.bmp');
for y:=0 to Image1.Height-1 do
begin
dam:='';
for x:=0 to Image1.Width-1 do
begin
n:=Image1.Canvas.Pixels[x,y];
g:=n div $10000; n:=N mod $10000;
g:=round(((g+(n div $100)+(n mod $100)) div 3)/(256/cmax));
dam:=dam+PixToKan(Cmax-g,0);
end;
Memo1.Lines.Add(dam);
end;
Memo1.Lines.SaveToFile('test.csv');
end;
-ここは、あまり変りませんね。Pixelsの平均値出す部分は後で、関数にして独立させましょう。
--[[Milla Jovovichでサンプル>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=moji_test.pdf]]
--[[東野英治郎(水戸黄門)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Tohno47.pdf]]
--Program[[Down load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=404.JPG]]は、更新のため下の方を探してください。
--サンプル見ても分かるように、やっぱ、いろんな文字が混ざっているほうが滑らかに見えます。幅120前後の絵を使って遊んで見ましょう。(2009/12/3)
--1文字を4区画に分けて評価します。とりあえず、削除してしまいましたが、起動時設定に次の3行を復活してみます。
Image1.Canvas.Font.Name:='MS ゴシック';
Image1.Canvas.Font.Size:=100;
moji_haba:=Image1.Canvas.TextWidth('問');
-4つの区分で濃淡を評価する関数を作り、とりあえず、8桁数字で返すことにします。最終的には、偏り分類の番号で返す予定ですが....
function TForm1.noutan4(kan:string):integer;
function Q_noutan(x1,y1,hen:integer):integer;
var x,y,n:integer;
begin
n:=0;
for y:=y1 to y1+hen-1 do for x:=x1 to x1+hen-1 do
if Image1.Canvas.Pixels[x,y]=clBlack then n:=n+1;
Q_noutan:=round(n/hen/hen*100);
end;
var Han_Haba:integer;
begin
Image1.Picture.Bitmap.PixelFormat:=pf1bit;
Image1.Canvas.Font.Color:=clBlack;
Image1.Canvas.TextOut(0,0,kan);
Han_Haba:=Moji_haba div 2;
noutan4:=Q_noutan(0,0,Han_Haba)*1000000+Q_noutan(Han_Haba,0,Han_Haba)*10000
+Q_noutan(0,Han_Haba,Han_Haba)*100+ Q_noutan(Han_Haba,Han_Haba,Han_Haba);
end;
-関数の定義の中にもう1つ入っています。ローカル関数と呼びます。Qは、1/4からの頭文字。USS-1701発進の時のエンジン出力は通常の1/4です。
--ま、そんなこんなで、最初の実験のように、1文字入れては、結果を見るんですが、見た目ほど偏りがないことがわかりました。たとえば、私の姓の旧字体「澤」なんかも思ったほどではなく、左右で10%、上下の上下差は、順に6.5%、14%、上下とも全体では17%になっています。
--訐が極端に左上に濃いのですが、ほとんどは、微妙なところです。上のように画数が少なければ偏り指数も5%あればいいほうではないかとなります。
--そんなことで、偏り指数は、全体の濃度の関数で表すようにしてみます。最後は、人間の目で見て編集することは必要になると思います。また、カナ単位や括弧も有効な材料になってきます。
--偏りの判断は、後に画像の時にも使うことを想定して、4つの区画の数字を入力して、0-8のタイプを返すグローバル関数にします。
--&ref(katayori2.gif)
--偏りの判定基準も変更しました。
function Katayori(n1,n2,n3,n4,nt:integer):integer;
var nt_s,K_type,sa12,sa34:integer;
begin
nt_s:=round(nt*3*(1-nt/7/cmax)) div 2; { 偏り指数 }
K_type:=0;
sa12:=((n1+n3)-(n2+n4))*3; if abs(sa12)<nt_s then sa12:=0;
if sa12>0 then K_type:=1;
if sa12<0 then K_type:=2;
sa34:=((n1+n2)-(n3+n4))*3; if abs(sa34)<nt_s then sa34:=0;
if abs(sa12)<abs(sa34) then
begin
if sa34>0 then K_type:=3;
if sa34<0 then K_type:=4;
sa12:=sa34;
end;
sa34:=(n1*3-(n2+n3+n4))*2; if abs(sa34)<nt_s then sa34:=0;
if abs(sa12)<abs(sa34) then
begin
if sa34>0 then K_type:=5;
if sa34<0 then K_type:=8;
sa12:=sa34;
end;
sa34:=(n2*3-(n1+n3+n4))*2; if abs(sa34)<nt_s then sa34:=0;
if abs(sa12)<abs(sa34) then
begin
if sa34>0 then K_type:=6;
if sa34<0 then K_type:=7;
sa12:=sa34;
end;
sa34:=(n3*3-(n1+n2+n4))*2; if abs(sa34)<nt_s then sa34:=0;
if abs(sa12)<abs(sa34) then
begin
if sa34>0 then K_type:=7;
if sa34<0 then K_type:=6;
sa12:=sa34;
end;
sa34:=(n4*3-(n1+n2+n3))*2; if abs(sa34)<nt_s then sa34:=0;
if abs(sa12)<abs(sa34) then
begin
if sa34>0 then K_type:=8;
if sa34<0 then K_type:=5;
sa12:=sa34; {<=コンパイルしたら、この行は、いらないって...}
end;
Katayori:=K_type;
end;
-我ながら非合理的と感心dするできばえの悪さ.....{ 偏り指数 }の数値を調整しながら、分類の具合を確かめます。
noutan4:=Katayori(Q_noutan(0,0,Han_Haba)
,Q_noutan(Han_Haba,0,Han_Haba)
,Q_noutan(0,Han_Haba,Han_Haba)
,Q_noutan(Han_Haba,Han_Haba,Han_Haba),noutan(kan));
//-------------------以下はチェック用
Memo1.Lines.Add(IntToStr(Q_noutan(0,0,Han_Haba))+':'
+IntToStr(Q_noutan(Han_Haba,0,Han_Haba)));
Memo1.Lines.Add(IntToStr(Q_noutan(0,Han_Haba,Han_Haba))+':'
+IntToStr(Q_noutan(Han_Haba,Han_Haba,Han_Haba)));
-関数noutan4の戻り値を偏りの型番号に変えて、Memo1に具体的な数値を入れてチェックしてみます。
-いらないButtonにEdit1に入力された漢字を計算してEdit2に偏り型を表示します。最初の漢字の濃淡度と似たようなものなので自分でプログラムしてもらうことにして、2倍3倍は何かと思うでしょうが、偏りをより正確に出すため、1区画あたりの平均ではなく、いくつかの場合の最小公倍数で比較しているだけです。(2009/12/5)
-さて、昨日と打って変わってよい天気、元上司の3回忌で知人とお墓参りに行って来ました。昨日までのところで、漢字の偏りを算出して分類して、私の目で、多少修正して、元になる使用漢字リストを作成しました。どうしても該当がないところは、適当なもので代用するか、半角文字2個あわせて作るかになります。リストは修正しやすいようにCSVファイルにしました。使用漢字リストの形式を変更したので、起動時の設定も書き換えることになります。
Memo1.Lines.LoadFromFile('MSG.csv');
Cmax:=Memo1.Lines.Count-1;
for x:=0 to Cmax do
begin
dam:=bunri(Memo1.Lines[x],',','+');
for y:=0 to 7 do
begin
kanji[x,y]:=bunri(dam,',','-');
dam:=bunri(dam,',','+');
end;
kanji[x,8]:=dam;
end;
-MSゴシックようの1,2水準の漢字の濃度と型分類表もExcelファイルで準備。では、まず、RGB平均値算出を独立関数にします。
function Gray(n:longint):integer; var g:integer;
begin
g:=n div $10000; n:=N mod $10000;
g:=(g+(n div $100)+(n mod $100)) div 3;
Gray:=g;
end;
-ま、これは、そんなでもないんですが、とりあえず、Button5を追加して、まず、4画素を1漢字で表現するプログラムを作りましょう。基本的な部分は、Button2の記述と一緒なので....
procedure TForm1.Button5Click(Sender: TObject);
var x,y,xx,yy,ImgX,ImgY, Gr1,Gr2,Gr3,Gr4,GrT:integer; g:longint; dam:string;
begin Memo1.Lines.Clear;
Image1.Picture.LoadFromFile('test2.bmp');
ImgX:=Image1.Width div 2;
ImgY:=Image1.Height div 2;
for yy:=0 to ImgY-1 do
begin
dam:='';
for xx:=0 to ImgX-1 do
begin
x:=xx*2; y:=yy*2;
Gr1:=Gray(Image1.Canvas.Pixels[x,y]);
Gr2:=Gray(Image1.Canvas.Pixels[x+1,y]);
Gr3:=Gray(Image1.Canvas.Pixels[x,y+1]);
Gr4:=Gray(Image1.Canvas.Pixels[x+1,y+1]);
GrT:=Katayori(Gr1,Gr2,Gr3,Gr4,(Gr1+Gr2+Gr3+Gr4) div 4);
g:=round((Gr1+Gr2+Gr3+Gr4)*Cmax/256/4);
dam:=dam+PixToKan(Cmax-g,GrT);
end;
Memo1.Lines.Add(dam);
end;
Memo1.Lines.SaveToFile('Test2.txt');
end;
-って感じですが、全くだめ、そんなはずはないと拡大してみると、偏りが逆になっています。黒の度合いで文字を分類した時の偏り計算なので、暗いほど数字が大きくなりますが、色は、暗いほど数字が小さくなるので、
GrT:=Katayori(256-Gr1,256-Gr2,256-Gr3,256-Gr4,256-((Gr1+Gr2+Gr3+Gr4) div 4));
-と直して再度実験。実験にはラムちゃんを使ってみました。
--最初に、2x2=4倍の画素のもの。これが元の絵。
--MS-Paintでサイズを半分にしたもの、MS-Paintでは、Full Colorで縮めると隣り合わせの色との平均を取ったりします。
--元のサイズの画像で、1つ飛ばしで漢字に置き換えたもの。これは、問題外。
--2x2=4画素の平均値で漢字に置き換えたもの。
--偏り判定をしたものということで、数の赤い線のあたりを比較してみると、偏り判定の効果が出ています。
--&ref(katayori3.JPG)[[PDF file>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Lum.pdf]]
-&ref(http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Top%2C%20%E3%83%88%E3%83%83%E3%83%97%E3%83%9A%E3%83%BC%E3%82%B8&file=20091206.JPG)
-再び[[Milla Jovovich(PDF)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=MJ3.pdf]]で、長辺60文字でテスト、目の星は無理だったが歯が見える!
-これで、色の偏り判定部分ができた。歯だけではなく目の周りや頬のラインなどなめらかになっている。ま、うまくできた方ではないかと思います。(2009/12/6)
--どっちのファイルもAdobe Readerの「表示(V)」の「ページレイアウト(L)」の「単一ページ(S)」にしてページを進めたり戻したりすると、出来栄えの具合が比較しやすくなります。
--Program[[Down load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=404.JPG]]は、更新のため下の方を探してください。
--多少のインターフェイスをくっつけて、今この辺の作業状況。使えるのは、ファイルの選択と概観を見る部分だけです。(2009/12/7)
-たくさん実験してみて理想的な文字数を探ってみました。プログラムも一部変更して、右下文字数と署名を入れてみました。
--この辺が文字も見えるし、細かさもそこそこ、実際には、何を置き換えるかによって密度を変える必要があるのですが.....
--[[Lum(フランスのコスプレだったかな)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Lum2.pdf]]
--[[Natalie Portman>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=natalie_portman.pdf]]
--[[Natalie Portman>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Padme-086.pdf]]
--[[Audrey Hepburn>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Audrey_Hepburn.pdf]]
*大きな画像への対応
-さてこれからの作業は、大きなBitMap Fileを一気に漢字に置き換えるための関数を作ります。
--基本的には2x2=4ドットの時と似た様なものです。画像上の開始位置と一区画になるなる単位の1辺のドット数の3つから漢字1個を特定する関数にします。
--入れ子になっている関数は1区画をさらに4つに分けた区画のBW平均値を求める関数です。
function TForm1.Kukaku(x,y,d:integer):string;
function _kukaku(xl1,xl2,yl1,yl2:integer):integer;
var ix1,iy1,n1:integer; Ttl:Longint;
begin
n1:=0; Ttl:=0;
for ix1:=xl1 to xl2 do for iy1:=yl1 to yl2 do
begin n1:=n1+1; Ttl:=Ttl+Gray(Image1.Canvas.Pixels[ix1,iy1]); end;
_kukaku:=Ttl div n1;
end;
var md,x2,x3,x4,y2,y3,y4, g,Gr1,Gr2,Gr3,Gr4,GrT:integer;
begin {x->x2, x3,x4}
md:=d div 2; {y->y2 1 2 }
x2:=x+md-1; x3:=x+md; x4:=x+d-1; {y3-.y4 3 4 }
y2:=y+md-1; y3:=y+md; y4:=y+d-1;
Gr1:=_kukaku(x,x2,y,y2);
Gr2:=_kukaku(x3,x4,y,y2);
Gr3:=_kukaku(x,x2,y3,y4);
Gr4:=_kukaku(x3,x4,y3,y4);
GrT:=Katayori(256-Gr1,256-Gr2,256-Gr3,256-Gr4,256-((Gr1+Gr2+Gr3+Gr4) div 4));
g:=round((Gr1+Gr2+Gr3+Gr4)*Cmax/256/4);
Kukaku:=PixToKan(Cmax-g,GrT);
end;
-ためしにButtonに組み込んでみましょう。
procedure TForm1.Button9Click(Sender: TObject);
const k=4;
var x,y,xx,yy,ImgX,ImgY:integer; dam:string;
begin
Memo1.Lines.Clear;
Image1.Picture.LoadFromFile(Edit2.Text);
ImgX:=Image1.Width div k;
ImgY:=Image1.Height div k;
for yy:=0 to ImgY-1 do
begin
dam:='';
for xx:=0 to ImgX-1 do
begin
x:=xx*k; y:=yy*k;
dam:=dam+Kukaku(x,y,k);
end;
Memo1.Lines.Add(dam);
end;
shomei(ImgX,ImgY);
Memo1.Lines.SaveToFile(F_Ext(Edit2.Text,'txt'));
end;
-kは、定数よりもSpinEditから3以上の数値を取得する変数にした方が楽ですね。
-まずは、実験してみましょう。
--[[Audrey Hepburn(638x712dotの画像から生成したもの)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=audrey_hepburn29.pdf]]
--[[Kodzue Ayuhara(246x360dotの画像から生成したもの)>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=attackNo1_pachi.pdf]]
--ま、こんなところでしょうか。(2009/12/12)
--[[800x600のDeskTopを変換>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=800x600.pdf]]してみました。アイコンの様子が厳しいものです。基本的には、風景は向きません。
*7年ぶりの印刷プログラム!
-そもそも、私は、中途半端なプログラムしか作ってないので、印刷ルーチンを記述したのは、勤務表作成支援ソフトの時以来です。久しぶりなので、ちょっと不安。前回は、10年ほど前に一旦印刷部分を記述したんですが、何も印刷しない問題に出くわして中断して完成したのが7年前のこと。原因は、8bit時代からの習慣で、黒地に白字のwindowsの基本設定だったためです。Delphiでは、printer canvasのデフォルトは、白地にwindowsの基本文字色を字色とします。白地に白字を印刷した訳ですから.....何も出ませんでした。
-基本的には、Printer.Canvasに情報を書き込み、実機械に送れば出てきます。出来具合を確かめるのに、Image.Canvasに書き込んで確かめるのと両方を1つの手続きで済ませます。
procedure TForm1.kijutu(Tcan: TCanvas; Pwidth,Pheight:longint);
-TcanというTCanvas変数を設定して、Pwidth,Pheight(PはPaper)で書き込む用紙のサイズを入れると、全部自動調整で印刷する方法です。
kijutu(Image1.Canvas, Image1.Width, Image1.Height);
-これで、Image1を保存すれば、画像ファイルの完成。
kijutu(Printer.Canvas, Printer.PageWidth, Printer.PageHeight);
-これで、印刷用画質のものが完成です。後は、kijutuの中身やら、印刷用紙の向きなどの設定です。(2009/12/13)
-そんな訳で、UsesのところにPrintersを書き加えます。Unit Fileの空行とばして3つめです。これで、Printerに関する部分を書き始めます。
-ここで問題点をいくつか......
--(1) 私は、PDF printer driverを使っていますが、Imageとの間に大きな差があります。PDFに限らず、Printerは、出力すると、データは、お掃除されますが、Imageは、残っていますので、次のを書き込んでも隙間から、前のが見えたりします。かといって、全部真っ白に塗りなおした場合、PDFでは、一旦白い背景を描いてから、背景の上に漢字を表示するので、もたつきます。
--(2) Font.Sizeは整数なので、微妙な画素数の調整ができません。そこで、画素数を単位とした文字サイズとして、Font.Heightにします。均等幅のMSゴシックは縦横同じなので.....9.5ポイントなんてFont.Sizeでは、できません。
--(3) 印刷機にセットされている用紙のサイズと向き(縦長か横長か)を知る方法。先に書きましたがPrinter.PageWidth Printer.PageHeight、これを使う前に、向きを決めなければなりません。Printer.Orientationで、値はpoLandscape(風景画つまり、横長)と、poPortrait(肖像画つまり、縦長)のどちらかを代入します。
procedure TForm1.kijutu(Tcan: TCanvas; Pwidth,Pheight:longint; Prn:boolean);
-(1)の解決としてPrnで区別することにします。(2009/12/14)
--[[boolean>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=boolean.jpg]]とは、論理の真偽のことです。
-(2)の問題はローカル関数を作って、kijutu内部で算出することにします。Font.Sizeは用紙のサイズで決まりますが、Font.Heightは、用紙に対して与えられた、ドット数で計算してくれます。つまり、私が1年前まで使っていた20年超過の24ピンドットインパクトプリンターは、B5短編に40文字程度ですから、40x24=960ドットです。[[dpi>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=iyami.jpg]]換算すると...B5短編が約180mm÷25.4mm=7.1インチで、960÷7.1=135、つまり135dpiになります。いまのプリンターは仕様書によると横方向9600dpiになってました。
function fitChrSize(haba:integer):integer; const s='問';
begin
TCan.Font.Height:=1;
with Tcan do
begin
if TextHeight(s)<haba then
repeat
font.Height:=font.Height+1;
until haba<TextHeight(s);
fitChrSize:=font.Height-1;
end;
end;
-(3)は後回しにして....
const yohaku_hi=0.023809524; { 5/210 A4の短編 縁取り5mm }
var yohaku_X, yohaku_Y, moji_X, moji_Y, inji_X, inji_Y,
// 余白 文字数 印字区域(x,y)長
ix,iy, xx,yy, Pmoji_haba :integer;
//変数 座標
-縁取りは{ }内の注意書きの通りです。比率で記入しておきます。constはいきなり5/210でもOK。
begin
if Prn=False then
begin
TCan.Brush.Color:=clWhite; TCan.Pen.Color:=clWhite;
TCan.Rectangle(0,0,Pwidth-1,Pheight-1);
end;
TCan.Font.Name:=Memo1.Font.Name;
moji_X:=length(Memo1.Lines[0]) div 2;
moji_Y:=Memo1.Lines.Count;
// 余白計算
if Pwidth<Pheight
then begin yohaku_X:=round(Pwidth*yohaku_hi); yohaku_Y:=yohaku_X; end
else begin yohaku_Y:=round(Pheight*yohaku_hi); yohaku_X:=yohaku_Y; end;
inji_X:=Pwidth-yohaku_X*2;
inji_Y:=Pheight-yohaku_Y*2;
// 文字幅計算
if ((moji_X/moji_Y)<(inji_X/inji_Y))
then Pmoji_haba:=inji_Y div moji_Y
else Pmoji_haba:=inji_X div moji_X;
// 余白 再調整
yohaku_X:=(Pwidth -moji_X*Pmoji_haba) div 2;
yohaku_Y:=(Pheight-moji_Y*Pmoji_haba) div 2;
TCan.Font.Height:=fitChrSize(Pmoji_haba);
TCan.Font.Color:=0;
// canvasに書き込み
for iy:=0 to moji_Y-1 do
begin
for ix:=0 to moji_X-1 do
begin
xx:=ix*Pmoji_haba+yohaku_X;
yy:=iy*Pmoji_haba+yohaku_Y;
TCan.TextOut(xx,yy, copy(Memo1.Lines[iy],ix*2+1,2));
end;
end;
end;
-全て比率で計算していますので、たとえば、複合機に接続されていて、A3で印刷するとか、建築設計事務所にあるようなA2に印刷するとかの時には、多分、選ばれている紙のサイズに合わせて、自動的に調整されるはずです。ずれが生じないように、1文字ずつ位置を確定して書き込みます。そして、出来上がったら、とりあえず、むやみな印刷は、反エコなので、Image Objectに記述してみましょう。
-そしたら、適当にボタンでも貼り付けて、
var num:integer;
begin
Image3.Stretch:=False; Im3_By:=0;
if Memo1.Lines.Count>0 then
with Image3 do
begin
Width:=640*2; Height:=480*2;
if Memo1.Lines.Count>length(Memo1.Lines[0]) div 2 then
begin num:=Width; Width:=Height; Height:=num; end;
kijutu(Canvas, Width, Height, False);
end;
end;
-2つめのif以下で縦横を入れ替えているのは、もとの絵にあわせて縦長か横長を決めています。
-適当に保存のボタンでもつけて画像として保存しました。[[半分に縮めたもの>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=P_milla_jovovich_15.Jpg]]です。(2009/12/16)
-さて、印刷機にデータを送るには、念のため、確認もつけまして、
begin
if MessageDlg('印刷しますか?', mtConfirmation, mbOKCancel, 0) = id_OK then
begin
if Memo1.Lines.Count<length(Memo1.Lines[0]) div 2
then Printer.Orientation := poLandscape
else Printer.Orientation := poPortrait;
try
with Printer do
begin
Title:=Edit2.Text;
BeginDoc;
kijutu(canvas,PageWidth,PageHeight, True);
EndDoc;
end;
finally
end;
end;
end;
-2つ目のif文が、横長、縦長の判断です。とりあえず、このへんまでが主なルーチンの記述で、後は、
--ファイルの読み込みをどうするか。
--書き出しのときの、ファイル名をどうするか。
--Text Fileを保存するのかしないのか。Memo objectに書き出しているので1行があまり大きいとエラーを起こす。
--iniファイルをつくるか。
--RGBの正確な比率計算。
--漢字の濃淡偏りの検証(kkは意外にType0だった)。
-こんな問題点をプログラムしていくことにになります。
-ここまでの部分で、自動的に中央配置縁取り調整終わって....この手の面白さは、文字を見る距離30cmでは分からないが、1m以上離れると見えてくる[[肖像画>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=Portrait.pdf]]がたのしいですね。(2009/12/17)
-Jpegを読み書きできるようにしたら、妙に重くなりました。Memory:512Mbyte CPU:Penthouse1GHzだと、使っているうちに動かなくなってしまいます。最近Mem:1Gbyte標準装備なので...ま....私のは、Mem:2Gbyte CPU:2.8GHzなので軽々動いています。
-RGBについては、もう少し正確に出すなら、それぞれの成分に次の比をかけて計算(左)すると単純に足して÷3よりは、ましでしょう。Delphi2005プログラミングテクニックVol.9(2500円)の単純に足しての「モノクロ変換」(右)よりはましです。結構高い本なので、正確に算出する方法を例示してほしいものです。
--B: 35%
--R: 85%
--G:180%
--下位からRGBだったかな.....
--&ref(Color.jpg)(2009/12/18)&ref(iro_chousei.png)
--効果ありますね。元の画像の色合いにもよるんでしょうが、東野英治郎さん眉が見やすくなり、目の周りのカクカクが減少しました。(2009/12/20)
-&ref(Else01.jpg)
-&ref(Else02.jpg)
--先発のというか、英語圏のソフトと出来栄えを比較しました。プログラムの出来栄えというよりは、漢字1文字の画数による濃淡の深さと字の豊富さから、同じ濃淡度合いの漢字を複数の候補からいくつも使えることが圧倒的に優位です。
-テキストに編集をつけましたが、とてもドンくさいプログラムなので、やはり、先にGraphic Toolで作りたい範囲を調整したほうが楽です。ドン亀機能です。配置を変えたりしました。(2009/12/27)
-あんまり概観できない画像ページをやめて、テキスト状態で概観できるようにしました(2010/01/10)
*根性で変換しました。
-&html(<object width="170" height="140"><param name="movie" value="http://www.youtube.com/v/NYuX4W8NE4c"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/NYuX4W8NE4c" type="application/x-shockwave-flash" wmode="transparent" width="170" height="140"></embed></object>)2010/2/21&html(<object width="170" height="140"><param name="movie" value="http://www.youtube.com/v/Qlr_dKvTgpk"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/Qlr_dKvTgpk" type="application/x-shockwave-flash" wmode="transparent" width="170" height="140"></embed></object>)2010/2/28
*プログラム本体と付属のファイル
-前回掲載 2009/12/21, 2009/12/23, 2009/12/27
-最新進行状況 Program[[Down Load>http://www13.atwiki.jp/devulman/?cmd=upload&act=open&page=Text_art&file=AsciiArt.zip]]です。(2010/01/10)
-注意:一度作ったTextデータから印刷できるようにしたので、わざわざサイズのでかいPDFで保存する必要はなくってます。
-使い方は以下の通り、システムは私が良く使う方法で、1つのフォルダー内であれこれ済ませる構造になっています。
--解凍したら、デスクトップにでも適当な名前のフォルダーを作って、そこにプログラム本体と付属の「MSGなんたら.dll」3個を入れます。
-ファイルの説明
--MSG.dll 実験用に作った、かなり少ない第2水準を含む文字セットです。MSG.dllをコピペして、好きなファイル名にして起動し、設定からそのファイルを選んでください。その後一緒にはいているエクセルファイルの文字セットを使って編集して好きな漢字セットを作ってください。
--MSG-J.dll 難しい漢字ばかりでは、学校で遊べませんので、小学校6年間で習う漢字+英数+ギリシャ文字セット。
--MSG-M.dll 小学校版+中学3年までに習う文字セット。設定のページから選択してください。
-起動前準備
--作りたい絵の元ファイル、JpegかBmpを同じフォルダーに入れます。元絵はそのまま変更しませんので、あとで元のフォルダーに戻してください。
--プログラム本体を起動します。
-初回起動
--設定のページに移動、文字セットを選択、その他設定を選択し更新する。
*使い方と各機能
-設定
--使用する漢字セット:前項ファイルの説明を参照。読めない漢字がいっぱいでは、面白くないので、それなりに選択ください。
--文字データの保存:このソフトは、画像として保存することを目的としていません。印刷を目的としたものなので、文字データから、プリンターにあった画質で印刷する機能をつけてあります。そのため、一度変換した文字データを残すか残さないかを選択できます。画像で残しておくよりは、文字データで残すほうがコンパクトです。
--文字数の自動調整:横文字数x縦文字数をプログラムがエラーを起こさない範囲に調整します。自動調整しない時には、横500文字以下にしてください。
-Ascii変換
--リストから直したい絵を選んで、横約300以下、長辺約500以下になる様に数字を調整します。
--字と分かるのは、短辺約70文字以下です。だまし絵的なものは、60*45あたりです。1のときは、元絵の1画素が1漢字になります。4なら4x4=16画素で1漢字になります。
--文字数の調整をしない設定の場合、横文字数は500以下にしないと、エラーを発生します。データは作れますが印刷ができません。全角512あたりで改行されます。この回避にはHDDに直接ファイルを書込むようにしますが、文字が読めないのでは意味がないし、このページの先頭にあるサンプルのようにほとんど白黒画像になってしまいますので、またの機会にしましょう。
--自動調整をしている場合は、およその文字数の上限と下限が自動的に設定されます。
--変換をクリックで文字化します。自動的に文字データのページにに切り替わります。この時、設定で文字データを保存にしていると、テキストデータとして自動的に保存します。
-文字データ
--Fontの選択肢は、1,3,6,12ポイントの4種類だけです。概観できます。
--[更新]ボタンは、上のリストの更新です。
--[戻る]ボタンは画像選択のページに戻ります。
--[保存]ボタンで、印刷がもったいない方は保存してください。印刷を目的に作っているので低機能です。
--印刷をクリックでデフォルトのプリンターに印刷します。
--右の文字データの枠内で右クリックメニューがあります。ドン亀な編集機能です。
--上または下の何行かがいらない時には、普通に編集してください。
--左5文字要らないときには、どこか1行だけ(絶対に1行だけ)5-6文字めの間で改行して「後残す」を選択します。
--同様に「前残す」で右の要らない部分を削除できます。
--保存は、できた文字データをファイル名+2桁数字で自動的に保存します。
--また、文字データからもファイル選択で印刷できます。画像化したものを印刷するわけではなく、文字情報から、印刷用のものをその都度作成するので、保存した画像を印刷するよりは、プログラムの印刷機能を使うほうが、きれいに印刷できます。
-画像-文字情報のまま概観できるので、この機能ページは削除しました。画像の保存機能は残してあります。
-漢字分類
--文字セットの編集は、半角文字は必ず2個セットで使ってください。細かいエラーチェックはしていません。
--例えば、おめでたくない漢字を消したい時は、「漢字を入力する場所」を空にしておいて、上の、既にセットになっている漢字の欄から消したい字を削除して、「追加」ボタンをクリックしてください。
--プログラムの判定した偏り型が今一の時があります。偏り型の絵をクリックすると、その偏り型に変更できます。その後に「追加」ボタンをクリックしてください。
--時々、また最後に「保存」ボタンをクリックするすることで、編集中の漢字セットが更新されます。
----
-[[Page Top>http://www13.atwiki.jp/devulman/pages/15.html]]
-[[Top Page>http://www13.atwiki.jp/devulman/]]
----
工事中
2013-12-18T10:43:32+09:00
1387331012
-
アニメの作り方
https://w.atwiki.jp/devulman/pages/6.html
-[[(1) MS-Paint(Windowsの付録)とGif アニメで基本>http://www13.atwiki.jp/devulman/pages/33.html]]
-[[(2) キーフレーム・アニメーション>http://www13.atwiki.jp/devulman/pages/32.html]]
-[[(3) KeyFrameでタイトル制作してみよう。>http://www13.atwiki.jp/devulman/pages/36.html]]
-[[(4) おどろき盤>http://www13.atwiki.jp/devulman/pages/59.html]]
-[[(5) シネカリもどきなアニメを作る>http://www13.atwiki.jp/devulman/pages/30.html]]
|&html(<iframe width="180" height="165" src="http://www.youtube.com/embed/viHaBX3_SUU?rel=0&autoplay=0" frameborder="0" allowfullscreen></iframe>)|最新作。2011.0220公開。やってる途中Motherboardが壊れ中断。HDD外して転送、やっと完成。|
|&html(<iframe width="180" height="165" src="http://www.youtube.com/embed/3bVddNfbHuk?rel=0&autoplay=0" frameborder="0" allowfullscreen></iframe>)|私の最近の作品。専用ツールは[[プログラム配布の(19)番>http://www13.atwiki.jp/devulman/pages/10.html]]、日本語説明は未添付。オセロ盤でアニメです。|
-Visitor No.&counter():&counter(yesterday):&counter(today)
*アニメーションの作り方
Windowsの利用者対象です。
|&html(<object width="255" height="210"><param name="movie" value="http://www.youtube.com/v/1Ft5Ddyp7G0"></param><embed src="http://www.youtube.com/v/1Ft5Ddyp7G0" type="application/x-shockwave-flash" width="255" height="210"></embed></object>)|真ん中の三角をクリックすると再生します。実は、この作品は作った当時は、エレベーターが動いているところは、動画の枚数が半分程度だったんですが、デジタル化の際にMS-paintで中割り作業をして動画枚数を増やしています。実際DVD画質で見ても その差は分かりません。|
-基本的には、
-①MS paint(windows標準付録)で下書き・トレース・中割り
--以下が下書きや中割りの作業の様子(たまたま残っていた).
--&ref(sakuseichuu.gif)
--サイズは、640*480で線の太さは、2以上、消す時に白塗りして消すのがらくだから。
--描いた順は、0017-0019-0021-0018-0020-0022となっています。
--ぐちゃぐちゃ描いたものを必要枚数コピーし、塗りつぶしで必要なものを残したら、黒でトレースして動画の出来上がり。
--&ref(0021.gif)-&ref(0022.gif)
--0021と0022、0021には何度も消して書き直した後が空白で残っている。
-②リサイクルショップで買った古っ~いvirsionのPaint shp pro(4.2j)で、彩色
-③Ulead Video Studio 8 で連結(8mm film カメラでいうところのコマ撮り作業)といった手順です。
-20000人記念などは、Video Studio 9です。今Version10なので、8あたりが1980円なんかで出たときには、買うといいかもしれません。8->9の大きな違いは背景の透明化による合成の可否です。
|&html(<iframe src="http://rcm-jp.amazon.co.jp/e/cm?t=www13atwikijp-22&o=9&p=27&l=qs1&f=ifr" width="180" height="150" frameborder="0" scrolling="no"></iframe>)|で、検索してくださいとばかりにAmazonがいますが、とりあえずGif Anime作るには、MS Paintと後述の無料ソフトで対応できます。|
-音の入れ方(オトイレ)
-Ulead Video Studio 8は音声が2つまで一度に入れられるので、台詞と効果音は個々の絵を連結するときに入れる。音は1/10秒つまり、3コマ程度遅れて入れるとなんとなく、自然に聞こえます。遠くのものほどずれは大きくなります。
-実は、1分程度のアニメーションを作ろうといっぱいデータを詰め込んだら、Video Studio 8は、動かなくなりました。反応してるんだか、してないんだか分かりません。そんなわけで、数秒単位のカットに分けて作っていきます。このカットごとのというかせりふごとのMpegファイルを作って最後に連結する方法です。このカットごとの段階で、効果音と音声を入力します。連結後にナレーションや音楽を入れ、最後はDVDに焼いて完成。とまぁこんな風に作っていますが、
*とりあえず、「ただ」で最も簡単な方法ということで、
-http://www.whitsoftdev.com/unfreez/
-からUnFREEzというソフトを入手しましょう。
-&html(<A href="http://www13.atwiki.jp/devulman/?cmd=upload&act=open&pageid=1&file=GifAnimeSet.zip">その他のセットのDown Load</A>)
-ファイル名の番号を振りなおすプログラムもここからダウンロードしてください。
*Windows Movie Makerで連結する
-私は、使わないので、これまで考えたことなかったのですが…
-1秒間に8枚しか動画が入らないのですが、スピードアップ(2倍)を使うことで1秒間に最大16枚の動画を入れることができます。
-場面によっては8枚でも気にならないところもあるし、カクカクして気になるようなら以下の方法で連結します。
-100分の20秒の単位で動画を入れてそれぞれにスピードアップ(2倍)を適用すれば、1秒間に10コマで動かせます。
-どこかに書いたような気がしますが、効果音やしゃべりはこの動画に合わせて入れます。
*とりあえず何か作ってみる
-私の基本姿勢は、アニメといえばTVアニメをまねたがる人はご遠慮願っています。大学のサークルの説明でも中には、プロのような資本主義の分業を取り入れて、絵コンテや何だとテレビアニメの作り方をせっせと説明していたりします。雰囲気つくりも大切ですが、自分たちのサークルでの複数体制での作り方を説明するならともかく、初心者向きとしては、基本的に方向を間違っています。普及させるには、ノートの端っこ、根性があれば、国語や社会の教科書の端っこに書くパラパラ漫画です。このレベルの作り方を説明していきたいと思います。というわけで、フラッシュ系の人より、GIFアニメ系の人に大いにエールを送りたいと思います。
-[[(1) MS-Paint(Windowsの付録)とGif アニメで基本>http://www13.atwiki.jp/devulman/pages/33.html]]
-[[(2) キーフレーム・アニメーション>http://www13.atwiki.jp/devulman/pages/32.html]]
-私の作品の場合、設定から全てパソコンの中というのは、今のところバナーにもなっている20000人記念の妖精さんだけです。頭の中の設定だけで、MS-Paintで直接下書きPSPで色塗り、Video Studio 9で、連結・ノックする手との合成・音入れ、DVDにはまだ焼いてませんが、Mpeg2形式で出力できます。
-ほかに、同様の方法で、VS8で連結した「星のカービー」もあります。こちらは、「背中-タイトル-投げる-迫るボール」までは、紙に書いたものです。1900年代の部分です。そのときから構想だけはあったんですが......2004年になって、486板に互換足数の586を載せたWin95から、いまどきのWinXPに変えたのを機会に初の作品だったわけです。方法としては、作り方1の色を変えてトレースの下書きを繰り返していく方法なんですが、バットを振るところだけどうしても作れず、紙に下書きして、Scanしました。土煙は1枚絵でごまかしています。1枚あれば、左右、上下、180度回転などで枚数を増やせますから..........
|&html(<object width="255" height="210"><param name="movie" value="http://www.youtube.com/v/8vefpBD_Z34"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/8vefpBD_Z34" type="application/x-shockwave-flash" wmode="transparent" width="255" height="210"></embed></object>)|『ブラウン管の中から』私のYouTubeの総観客数20000人記念です。英語間違えたけど…|
|&HTML(<object width="255" height="210"><param name="movie" value="http://www.youtube.com/v/llMAr5zaSvo"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/llMAr5zaSvo" type="application/x-shockwave-flash" wmode="transparent" width="255" height="210"></embed></object>)|『星のカービー』(2分24秒)野球もの「○○の星」のパロディ。この手の日本語で駄目押しする冗談は、日本でしか通じないと思います。時々「自主制作」と「星のカービィ」で検索してここにたどりつく方もいるようです|
----
[[Page Top>http://www13.atwiki.jp/devulman/pages/6.html]]
[[Top Page>http://www13.atwiki.jp/devulman/]]
----
2013-02-02T10:03:34+09:00
1359767014