* 目次 [#l1c80292] #contents * メンバー紹介 [#z04bf908] - セレン 繊維学部応用生物学系。1ヶ月半でノートパソコンを2回壊している。 * 機体の画像 [#e8ae56e2] * セレンの制作 [#n1ad1c9d] ** 似顔絵の完成予想図 [#c4b3a395] ** プログラム [#yc7ae51a] #define go_ahead(t) OnFwd(OUT_A+OUT_C); Wait(t); Off(OUT_A+OUT_C); #define go_back(t) OnRev(OUT_A+OUT_C); Wait(t); Off(OUT_A+OUT_C); #define turn_right(t) OnFwd(OUT_A); Wait(t); Off(OUT_A); #define turn_left(t) OnFwd(OUT_C); Wait(t); Off(OUT_C); #define spin_right(t) OnFwd(OUT_A); OnRev(OUT_C); Wait(t); Off(OUT_A+OUT_C); #define spin_left(t) OnFwd(OUT_C); OnRev(OUT_A); Wait(t); Off(OUT_A+OUT_C); #define raise_pen OnFwd(OUT_B); Wait(5); Off(OUT_B); #define lower_pen OnRev(OUT_B); Wait(8); Off(OUT_B); task main() { turn_left(234); //輪郭描写 go_ahead(60); turn_left(218); go_ahead(60); raise_pen; //移動 go_back(15); spin_left(58); go_back(40); lower_pen; //顔と髪の境界線描写 go_ahead(96); raise_pen; //移動 spin_left(115); go_back(52); lower_pen; //右目描写 go_ahead(25); raise_pen; //移動 go_ahead(26); lower_pen; //左目描写 go_ahead(25); raise_pen; //移動 OnRev(OUT_C); Wait(135); Off(OUT_C); go_ahead(55); lower_pen; //口描写 turn_left(60); raise_pen; //移動 go_back(45); lower_pen; //鼻(下)描写 go_ahead(25); raise_pen; //移動 go_back(25); lower_pen; //鼻(上)描写 turn_left(25); } ** 完成図 [#j42aaf3a] * 感想・反省 [#q9461849] * コメントスペース [#cd043ff7] コメントがあったらどうぞ。 - とりあえず枠を作成 -- [[セレン]] &new{2011-11-10 (木) 16:55:02}; #comment