First Proglam 『Move』

Triangle

task main()
{
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(113);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(114);
OnFwd(OUT_A+OUT_C);
Wait(153);
Off(OUT_A+OUT_C);
}

Square

task main()
{
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(86);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(86);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(86);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
}

Pentagon

task main()
{
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(71);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(71);OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(71);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(74);
OnFwd(OUT_A+OUT_C);
Wait(151);
Off(OUT_A+OUT_C);
}

Second Proglam 『write 「水」

ロボット →写真をのせたいのですが、方法が不明のため後日

現在の進行状況

現在の進行状況

なんとか「水」書けました!!うまくいけば、かなり普通「水」です(1画目が直線なのは気にしないでください)。 ただし、少し問題があります。それはペンを回転させて「書く」「書かない」を調節しているため、最初のペンの「角度」「高さ」によって誤差が生じるため、「水」っぽくないこともちらほらです!  「では回転式を止めて、上下式にすればいいじゃないか!」とつっこみたくなるところですが、そうすると、線がかなり真っ直ぐの直線になるため、その作戦は遂行しませんでした。微妙にくにゃくにゃしている方が「水」っぽい!ということに気づいてしまった僕たちはその感性を大切にして、あくまで回転式を貫きました!!半分手抜きのようにも思えますが、

現在の出来栄えを動画でとっているため、のせたいのですが、方法が不明のため後日

(細かいことをいえば方法は先生がHPに記載してくださったので、わかりますが、なぜか失敗しているといった状態です)

水のプログラム

task main()
#define PEN 12
{
OnFwd(OUT_A+OUT_C);
Wait(6);
Off(OUT_A+OUT_C);
OnFwd(OUT_B); 
Wait(PEN);
Off(OUT_B);
OnFwd(OUT_A+OUT_C);
Wait(144);
Off(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(PEN);
Off(OUT_B);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(162);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(80);
Off(OUT_A+OUT_C);
OnFwd(OUT_B);
Wait(PEN);
Off(OUT_B);
OnFwd(OUT_A+OUT_C);
Wait(58);
Off(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(PEN);
Off(OUT_B);
OnRev(OUT_A+OUT_C);
Wait(45);
Off(OUT_A+OUT_C);
OnFwd(OUT_C);
OnRev(OUT_A);
Wait(20);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(40);
Off(OUT_A+OUT_C);
OnFwd(OUT_B);
Wait(PEN);
Off(OUT_B);
OnRev(OUT_A+OUT_C);
Wait(80);
Off(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(PEN);
Off(OUT_B);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(20);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A+OUT_C);
OnFwd(OUT_B);
Wait(PEN);
Off(OUT_B);
OnRev(OUT_A+OUT_C);
Wait(63);
Off(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(PEN);
Off(OUT_B);
OnRev(OUT_A+OUT_C);
Wait(5);
Off(OUT_A+OUT_C);
OnRev(OUT_A+OUT_C);
Wait(25);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(75);
OnFwd(OUT_A+OUT_C);
Wait(60);       
Off(OUT_A+OUT_C);
OnFwd(OUT_B);
Wait(PEN);
Off(OUT_B);
OnFwd(OUT_A+OUT_C);
Wait(100);
Off(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(PEN);
Off(OUT_B);
}

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-05-26 (金) 10:24:57