「木」を書くためのプログラム

制作者// itou

 task main ()
 {
 OnRev(OUT_A+OUT_C);  //1画目、横に移動する「一」   
 Wait(160);
 Off (OUT_A+OUT_C);
 OnFwd(OUT_B);  //ペンをあげる
 Wait(20);
 Off(OUT_B);
 OnFwd (OUT_A);OnRev (OUT_C);  //方向修正(左に135度回転)
 Wait (300);
 Off(OUT_A+OUT_C);
 OnRev(OUT_A+OUT_C); //2画目の書き出しへ進むため斜めに移動する
 Wait(115);
 Off(OUT_A+OUT_C);
 OnFwd (OUT_C);OnRev (OUT_A);  //2画目の位置に方向修正
 Wait (125);
 Off(OUT_A+OUT_C);
 OnRev(OUT_B);  //ペンをおろす
 Wait(20);
 Off(OUT_B);  
 OnFwd (OUT_A+OUT_C);  //2画目、「十」
 Wait (165);
 Off (OUT_A+OUT_C);
 OnFwd(OUT_B);  //ペンをあげる
 Wait(20);
 Off(OUT_B); 
 OnRev (OUT_A+OUT_C);  //3画目の書き出しへ進む
 Wait (105);
 OnFwd (OUT_C);OnRev (OUT_A);  //方向修正
 Wait (75);
 Off(OUT_A+OUT_C);
 OnRev(OUT_B);  //ペンをおろす
 Wait(20);
 Off(OUT_B);
 OnFwd(OUT_A+OUT_C);  //3画目、「才」
 Wait(110);
 Off (OUT_A+OUT_C); 
 OnFwd(OUT_B);  //ペンをあげる
 Wait(20);
 Off(OUT_B); 
 OnRev(OUT_A+OUT_C);  //4画目の書き出しへ進む
 Wait(95);  
 OnFwd (OUT_A);OnRev (OUT_C);  //方向修正 
 Wait (150);
 Off (OUT_A+OUT_C);
 OnRev(OUT_B);  //ペンをおろす
 Wait(20);
 Off(OUT_B);
 OnFwd(OUT_A+OUT_C);  //4画目(途中まで)、「木」
 Wait(50);
 Off (OUT_A+OUT_C);   
 repeat(5)  //はらいをする
 {
 OnFwd(OUT_A+OUT_C);
 Wait(5);
 Off(OUT_C);
 Wait(10);
 }
 Off(OUT_A);  
 OnFwd(OUT_B);  //ペンをあげて完成
 Wait(20);
 Off(OUT_B);
 }

完成した「木」

Suimoku_B4R.jpg

苦労した点

工夫した点

完成までの過程

5/12  課題発表:『木』の書道ロボット

5/19  一応のプログラムが完成 (2006a/B4/課題1右/ステップ1に書いてあります)

5/22  一画ずつに区切っての詳細な時間設定を開始。

5/24 レポート作成

5/25 レポート締め切り

感想

リンク

順を追ったプログラムの経緯

良かったらコメントをどうぞ



添付ファイル: fileSuimoku_B4R.jpg 361件 [詳細] filedscn2564_Medium.jpg 403件 [詳細]

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