プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• フリーハンド練習

2013年1月27日投稿 / 投稿者 : いったん / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

ある日のプチコン高校2-3にて――
数学の先生：よーし今日は昨日連絡した、「角の三等分線」をやるぞー、コンパスと定規用意しろ―。
生徒A：やっべ！コンパス忘れた！
生徒B：やっべ！ぶん回し忘れた！
生徒A：ぶん回し！？

生徒A：どーしよー。またあいつ（数学の教師）に罰（逆立ちで窓ふき）をさせられる〜。
生徒B：どーしよー。またあいつ（二次元の彼女）に怒られる（やんわり殴られる「ぽむんっ」）〜。
隊長：二人とも、安心しろ。こんな時のためにフリーハンドの練習ができるようにソフトを作っておいた。
生徒A：それってＭ●Ｘ2？
隊長：いや、DSiだ。
生徒A：わかりました分かりました。アレですね。また「作ってみたからとりあえず上げて様子をみる」ですね。
隊長：そんなことないぞ（怒）
生徒B：虹のキャラは出ますか？
隊長：いねーよ。グラフィックにはこだわらないんでね。
隊長はおもむろにアフロからDSiを出し、彼らに渡した。
生徒A：うわこれフケだらけなんだけど。油ギトギトなんだけど。
隊長：そんなこと言うな、地毛だってバレるだろ。
隊長：とりあえずな。それで100点取れるよう練習しろ。
生徒B：よし、絵描きツールだな。二次元の彼女の絵なんてお手の物だぜ。
隊長：おまえは黙ってろ。
こうして、生徒Aはフリーハンドで正確な円が、生徒Bは彼女が書けるようになったとさ。めでたし、めでたし。

説明

コンパスがないときでも数学の作図ができるようになるかもしれないソフトです。
QRコード、プログラムの作成にはmiconoさんが作成された「PTCUtilities v0.8.1」を使用させていただいています。

ルール＆評価基準

ルール 円を書いてください。
(スタートボタンを押すとお手本が描画されます。）
OTE=FALSE を TRUE にすると・・・

評価基準

QR コード

プチコンmkII 向けの QR コードです。

プログラムリスト

+

参考までに

’フリ−ハント゛　レンシュウソフト（ｃｉｒｃｌｅ） ’　　　　　　　　　　　　　ｖ１．０　ｂｙ　ｉｔｔａｎ ＡＣＬＳ：ＧＰＡＧＥ　０，２，０：ＧＣＬＳ　０：ＣＬＥＡＲ ＰＮＬＴＹＰＥ”ＯＦＦ” ＤＩＭ　ＰＸ（１０００），ＰＹ（１０００），Ｌ（１０００） ＤＩＭ　Ｔ（１０００） ＤＩＭ　ＣＭ＄（５０，２），ＣＭＦ（５０） ＧＰＡＧＥ　１ ＭＡＸＣ＝０ ＠Ｒ ＲＥＡＤ　Ｒ１＄ ＩＦ　Ｒ１＄＝＝””　ＴＨＥＮ　ＧＯＴＯ　＠ＲＥＣ ＲＥＡＤ　Ｒ２＄ ＣＭ＄（ＭＡＸＣ，０）＝Ｒ１＄ ＣＭ＄（ＭＡＸＣ，１）＝Ｒ２＄ ＭＡＸＣ＝ＭＡＸＣ＋１ ＧＯＴＯ　＠Ｒ ＠ＲＥＣ ＠ＳＴＡＲＴ ＧＣＬＳ　０ ？”キレイナエンヲカイテクタ゛サイ。” Ｓ＝０：ＬＣ＝０：ＴＳ＝０：ＬＣ２＝０ ＯＴＥ＝ＦＡＬＳＥ ＠ＤＲＡＷ ＯＴＳＴ＝ＴＳＴ ＴＳＴ＝ＴＣＨＳＴ Ｘ＝ＴＣＨＸ Ｙ＝ＴＣＨＹ ＩＦ　ＯＴＥ　ＴＨＥＮ　Ｘ＝ＣＯＳ（ＲＡＤ（ＬＣ％３６０））＊８０＋１２８：Ｙ＝ＳＩＮ（ＲＡＤ（ＬＣ％３６０））＊８０＋９６ ＶＳＹＮＣ　１ ＩＦ　ＢＴＲＩＧ（）　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＣＩＲＣＬＥ　１２８，９６，８５，２ ＩＦ　ＯＴＳＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＯＸ＝Ｘ：ＯＹ＝Ｙ：ＳＸ＝Ｘ：ＳＹ＝Ｙ：ＮＴ＝ＭＡＩＮＣＮＴＬ ＩＦ　ＯＴＳＴ＝＝ＴＲＵＥ　ＡＮＤ　ＴＳＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＫ：ＧＯＴＯ　＠ＳＴＡＲＴ ＩＦ　ＴＳＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＧＯＴＯ　＠ＤＲＡＷ Ｓ＝Ｓ＋ＳＱＲ（（ＯＸ−Ｘ）＊（ＯＸ−Ｘ）＋（ＯＹ−Ｙ）＊（ＯＹ−Ｙ）） ＴＳ＝ＴＳ＋Ｓ ＩＦ　ＯＴＥ　ＴＨＥＮ　Ｓ＝２．０２ ＩＦ　Ｓ＞２　ＴＨＥＮ　ＰＸ（ＬＣ）＝Ｘ：ＰＹ（ＬＣ）＝Ｙ：Ｔ（ＬＣ）＝ＭＡＩＮＣＮＴＬ−ＮＴ：ＬＣ＝ＬＣ＋１：Ｓ＝０：ＮＴ＝ＭＡＩＮＣＮＴＬ ＢＬＣ＝ＦＬＯＯＲ（ＬＣ／８）＋６０ ＩＦ　ＢＬＣ＞＝１２８　ＴＨＥＮ　ＢＬＣ＝１２７ ＢＧＭＰＬＡＹ　”＠４６Ｎ”＋ＳＴＲ＄（ＢＬＣ） ＧＬＩＮＥ　Ｘ，Ｙ，ＯＸ，ＯＹ，１１ ＯＸ＝Ｘ：ＯＹ＝Ｙ ＧＯＴＯ　＠ＤＲＡＷ ＠ＣＨＫ ＩＦ　ＬＣ＜１０　ＯＲ　ＡＢＳ（ＳＸ−Ｘ）＞１０　ＯＲ　ＡＢＳ（ＳＹ−Ｙ）＞１０　ＴＨＥＮ　ＢＥＥＰ：ＧＣＬＳ　０：ＲＥＴＵＲＮ ’エンノ　チュウシンヲ　スイソク ＣＸ２＝０：ＣＹ２＝０ ＦＯＲ　Ｉ＝０　ＴＯ　ＬＣ−１ 　ＣＸ２＝ＣＸ２＋ＰＸ（Ｉ） 　ＣＹ２＝ＣＹ２＋ＰＹ（Ｉ） ＮＥＸＴ ＣＸ＝ＣＸ２／ＬＣ ＣＹ＝ＣＹ２／ＬＣ ＦＯＲ　Ｉ＝０　ＴＯ　ＬＣ−１ 　Ｌ（Ｉ）＝ＳＱＲ（ＰＯＷ（ＰＸ（Ｉ）−ＣＸ，２）＋ＰＯＷ（ＰＹ（Ｉ）−ＣＹ，２）） ＮＥＸＴ ？”サイテンシマス。” ＢＥＥＰ　６１ ’１，ヘイキンノオオキサ ’（オオキイホト゛ヨイ） ＯＬ＝０ ＦＯＲ　Ｉ＝０　ＴＯ　ＬＣ−１ 　ＯＬ＝ＯＬ＋Ｌ（Ｉ） ＮＥＸＴ ＯＬ＝ＯＬ／ＬＣ ’２，ナメラカサ ＤＩＦ＝０ ＦＯＲ　Ｉ＝０　ＴＯ　ＬＣ−１ 　ＤＩＦ＝ＤＩＦ＋ＡＢＳ（ＯＬ−Ｌ（Ｉ）） ＮＥＸＴ ＤＩＦ＝ＤＩＦ／ＬＣ ’３，テイネイサ ’（オナシ゛ヘ゜−ステ゛カケタカ） ＴＥＩ＝０ ＯＬ２＝０ ＦＯＲ　Ｉ＝１　ＴＯ　ＬＣ−１ 　ＯＬ２＝ＯＬ２＋Ｔ（Ｉ） ＮＥＸＴ ＯＬ２＝ＯＬ２／（ＬＣ−１） ＦＯＲ　Ｉ＝０　ＴＯ　ＬＣ−１ 　ＴＥＩ＝ＴＥＩ＋ＡＢＳ（ＯＬ２−Ｔ（Ｉ）） ＮＥＸＴ ＴＥＩ＝ＴＥＩ／ＬＣ ＰＯＩＮＴ＝１０００ ＭＡ＝（６０−ＯＬ）＊８ ＩＦ　ＯＬ＞＝６０　ＴＨＥＮ　ＭＡ＝０ ＩＦ　ＯＬ＜＝２０　ＴＨＥＮ　ＭＡ＝１０００ ＭＢ＝ＤＩＦ＊４０ ＭＣ＝ＴＥＩ＊２００ ＧＰＡＧＥ　１，２，１ ＧＣＩＲＣＬＥ　ＣＸ，ＣＹ，ＯＬ，２ ＧＣＯＰＹ　１，０，０，２５５，１９１，０，０，０ ＧＰＡＧＥ　１，１，１ ＧＣＯＰＹ　２，０，０，２５５，１９１，０，０，０ ？”＝＝＝オオキサ　ケ゛ンテン”　　　　：ＷＡＩＴ　６０ ？”−”；ＭＡ／１０；”テン”　　　　　：ＷＡＩＴ　６０：ＢＥＥＰ　６１ ？”＝＝＝ナメラカサ　ケ゛ンテン”　　　：ＷＡＩＴ　６０ ？”−”；ＭＢ／１０；”テン”　　　　　：ＷＡＩＴ　６０：ＢＥＥＰ　６１ ？”＝＝＝テイネイサ　ケ゛ンテン”　　　：ＷＡＩＴ　６０ ？”−”；ＭＣ／１０；”テン”　　　　　：ＷＡＩＴ　６０：ＢＥＥＰ　６１ ？ ？”コ゛ウケイテン”　　　　　　　　　　：ＷＡＩＴ　６０ ？ ＰＯＩＮＴ＝ＰＯＩＮＴ−ＭＡ−ＭＢ−ＭＣ ＩＦ　ＰＯＩＮＴ＜０　ＴＨＥＮ　ＰＯＩＮＴ＝０ ？；ＰＯＩＮＴ／１０；”テン” ？ ？”＝＝＝コメント ？ ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸＣ−１：ＣＭＦ（Ｉ）＝０：ＮＥＸＴ ＣＭＦ２＝０ ＩＦ　ＭＡ＝＝１０００　ＴＨＥＮ　ＣＭＦ（１）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＢ＞＝７００　ＴＨＥＮ　ＣＭＦ（０）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＣ＞＝３００　ＴＨＥＮ　ＣＭＦ（２）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＡ＞＝２００　ＡＮＤ　ＭＡ＜１０００　ＴＨＥＮ　ＣＭＦ（３）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＢ＞＝４００　ＡＮＤ　ＭＢ＜４００　ＴＨＥＮ　ＣＭＦ（４）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＣ＞＝１４０　ＡＮＤ　ＭＢ＜＝２００　ＴＨＥＮ　ＣＭＦ（５）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＡ＜＝１００　ＡＮＤ　ＭＢ＜＝２００　ＡＮＤ　ＭＣ＜＝１３０　ＡＮＤ　ＭＢ＞１００　ＴＨＥＮ　ＣＭＦ（６）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＢ＜＝１３０　ＡＮＤ　ＭＣ＞１５０　ＴＨＥＮ　ＣＭＦ（７）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＡ＞＝１００　ＡＮＤ　ＭＢ＜＝８０　ＴＨＥＮ　ＣＭＦ（８）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＡ＝＝０　ＡＮＤ　ＭＢ＜＝１００　ＡＮＤ　ＭＣ＜＝１００　ＡＮＤ　ＭＢ＞５０　ＡＮＤ　ＭＣ＞５０　ＴＨＥＮ　ＣＭＦ（９）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＡ＝＝０　ＡＮＤ　ＭＢ＜＝５０　ＡＮＤ　ＭＣ＜＝５０　ＴＨＥＮ　ＣＭＦ（１０）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＡ＜＝１００　ＡＮＤ　ＭＢ＞＝３００　ＡＮＤ　ＭＣ＜＝１００　ＴＨＥＮ　ＣＭＦ（１１）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＡ＜＝３００　ＡＮＤ　ＭＢ＞＝３００　ＡＮＤ　ＭＣ＜＝１００　ＴＨＥＮ　ＣＭＦ（１２）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＡ＜＝１００　ＡＮＤ　ＭＢ＞＝１８０　ＡＮＤ　ＭＣ＜＝１００　ＴＨＥＮ　ＣＭＦ（１３）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＭＡ＜＝１００　ＡＮＤ　ＭＢ＜＝２００　ＡＮＤ　ＭＣ＞＝１００　ＴＨＥＮ　ＣＭＦ（１４）＝ＴＲＵＥ：ＣＭＦ２＝ＴＲＵＥ ＩＦ　ＣＭＦ２！＝ＴＲＵＥ　ＴＨＥＮ　ＣＭＦ（１５）＝ＴＲＵＥ ＦＯＲ　Ｉ＝０　ＴＯ　１ ＣＭＴ＝ＲＮＤ（ＭＡＸＣ） Ｉ＝ＣＭＦ（ＣＭＴ）＝＝ＴＲＵＥ ＮＥＸＴ ？ＣＭ＄（ＣＭＴ，０） ？ＣＭ＄（ＣＭＴ，１） ？ ＧＯＳＵＢ　＠ＴＣ ＦＯＲ　Ｉ＝０　ＴＯ　１ Ｉ＝ＴＣＨＳＴ　ＯＲ　ＢＴＲＩＧ（）＞０ ＮＥＸＴ ＧＰＡＧＥ　１，２，１：ＧＣＬＳ　０ ＧＰＡＧＥ　１，１，１ ＧＯＴＯ　＠ＳＴＡＲＴ ＠ＴＣ Ａ＄＝ＣＭ＄（ＣＭＴ，０）＋ＣＭ＄（ＣＭＴ，１） ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ａ＄）−１ Ｂ＄＝ＭＩＤ＄（Ａ＄，Ｉ，１） ＢＮ＄＝ＭＩＤ＄（Ａ＄，Ｉ＋１，１） ＩＦ　Ｂ＄＝＝”→”　ＴＨＥＮ　Ａ＄＝ＳＵＢＳＴ＄（Ａ＄，Ｉ，１，”−−−”） ＩＦ　（Ｂ＄＜”ヲ”　ＯＲ　Ｂ＄＞”゜”）ＡＮＤ　Ｂ＄！＝”−”　ＡＮＤ　Ｂ＄！＝”！”　ＡＮＤ　Ｂ＄！＝”−”　ＴＨＥＮ　Ａ＄＝ＳＵＢＳＴ＄（Ａ＄，Ｉ，１，”＿”） ＩＦ　Ｂ＄＝＝”ハ”　ＡＮＤ　ＢＮ＄＝＝”　”　ＴＨＥＮ　Ａ＄＝ＳＵＢＳＴ＄（Ａ＄，Ｉ，１，”ワ”） ＮＥＸＴ Ａ＄＝”＠Ｓ６”＋Ａ＄ ＴＡＬＫ　Ａ＄ ＲＥＴＵＲＮ ’ＣＯＭＭＥＮＴ ＤＡＴＡ”イマノハ　マルテ゛ハ　ナイテ゛スネ。” ＤＡＴＡ”　マシ゛メ　ニ　カイテ　クタ゛サイ。” ＤＡＴＡ”エン　カ゛　チイサスキ゛マス。” ＤＡＴＡ”ココロ　モ　オオキク、　エンモ　オオキク。” ＤＡＴＡ”ランホ゛ウニ　カカナイテ゛クタ゛サイ。” ＤＡＴＡ”ヘ゜−スヲ　タモッテ　カキマショウ。” ＤＡＴＡ”スコシ　オオキサカ゛　タリナイヨウテ゛ス。” ＤＡＴＡ”タ゛イナミックニ　カイテ　ミマショウ。” ＤＡＴＡ”スコシ　カタチ　カ゛　ス゛レテイマス。” ＤＡＴＡ”ス−ット　ナカ゛レルヨウニ　カキマショウ。” ＤＡＴＡ”ユックリ　カキスキ゛テ゛ス。” ＤＡＴＡ”ケ゛ンタ゛イニ　モトメラレテイルノハ　スヒ゜−ト゛テ゛ス。” ＤＡＴＡ”ナカナカ　キレイニ　カケテイマス。” ＤＡＴＡ”テ゛スカ゛　コンハ゜ス　ニハ　マケテイマス。” ＤＡＴＡ”ヨイ　カИタИチ　テ゛スカ゛、” ＤＡＴＡ”ヘ゜−スヲ　タモッテカクヨウニ　ココロカ゛ケマショウ。” ＤＡＴＡ”ウツクシク　カケテイマス。　” ＤＡＴＡ”モット　オオキク　カイテミマショウ。” ＤＡＴＡ”Ｇｒｅａｔ！！　ウマイヨ。　マシ゛テ゛。” ＤＡＴＡ”アソンテ゛　クレテ　アリカ゛トウ。” ＤＡＴＡ”Ｂｅａｕｔｉｆｕｌ！！　コレハ、、、” ＤＡＴＡ”「フリ−コンハ゜ス」ノ　ショウコ゛ウヲ　サス゛ケヨウ。” ＤＡＴＡ”オオキサ　スヒ゜−ト゛　トモニ　ヨイテ゛スカ゛、” ＤＡＴＡ”サ゛ツ　スキ゛ルヨ→” ＤＡＴＡ”スヒ゜−ト゛　ハ　イイケト゛、” ＤＡＴＡ”サ゛ツ　スキ゛ルヨ→　モットキレイニ　カイテヨ→” ＤＡＴＡ”スコシ　タ゛エンニ　ナッテマス。” ＤＡＴＡ”コンハ゜スノ　ヨウナ　エンニ　シマショウ。” ＤＡＴＡ”タタ゛　テイネイナ　タ゛ケテ゛ハ　イケマセン。” ＤＡＴＡ”スハ゛ヤサ　ハ　ステ−タストシテ　タ゛イシ゛テ゛スヨ。” ＤＡＴＡ”Ｓｅｌｅｍａｔ　ｐａｇｉ！！ ＤＡＴＡ”（スラマッハ゜キ゛−−！！） ＤＡＴＡ”” ’［ＥＯＦ］

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

• 燻製 : [書けるようひなったとさ (2013/01/27 (日) 22:01:25)
• 燻製 : 誤爆、「書けるようひなったとさ」「どーしよー。まああいつ」は誤字ですかね？ (2013/01/27 (日) 22:02:20)
• いったん : ありがとうございます。直しておきました。 (2013/01/27 (日) 22:41:37)
• 名無しさん : コンパスには負けてるのか俺… (2013/01/28 (月) 11:21:10)
• 名無しさん : 92.457点 どうして スラマッパギー！？ (2013/01/28 (月) 12:41:40)
• 糸甘 : 概要でワロタwwwww (2013/02/24 (日) 16:04:03)
• 名無しさん : ９７．２５３点キタ(ﾟ∀ﾟ)！ (2013/02/27 (水) 15:08:35)
• 道産子の初心者 : 概要wwww (2013/02/27 (水) 22:31:11)
• ウイング : 概要ｗ (2013/02/28 (木) 17:44:13)
• くりいが : 角の３等分線は理論上不可能です (2013/02/28 (木) 19:47:28)

お名前: