[[2009b]] オレが、最強だ。 #contents *ロボットの外観 [#yd28a479] **プログラム [#j864400d] -なかむrz /* nigaoe */ #define go_st(t) OnFwd(OUT_A+OUT_C); Wait(t) #define left OnRev(OUT_A); OnFwd(OUT_C); #define right OnRev(OUT_C); OnFwd(OUT_A); #define t_t1 68 //turn_time_hair sub hair_turn(){ repeat(5){ right; Wait(t_t1); go_st(50); left; Wait(t_t1); go_st(50); } } sub hair_shape(){ repeat(7){ left; Wait(3); go_st(3); } } task main() { go_st(80); //hair_ziguzagu hair_turn(); right; Wait(t_t1); go_st(80); left; //hair_rinnkaku Wait(80); go_st(100); hair_shape(); go_st(200); hair_shape(); go_st(100); OnFwd(OUT_A+OUT_C); //nouzu Wait(130); OnRev(OUT_C); Wait(74); OnFwd(100); } -おーカリの木 +軽音楽部 +医学部軽音楽部 ***湯浅orz[#xa39a37a] void go_strate(int x) { OnFwd(OUT_A+OUT_C); Wait(x); } void go_back(int a) { OnRev(OUT_A+OUT_C); Wait(a); } void turn_right(int y) { OnFwd(OUT_A); OnRev(OUT_C); Wait(y); } void turn_left(int z) { OnFwd(OUT_C); OnRev(OUT_A); Wait(z); } sub penup() { OnFwd(OUT_B); Wait(50); Off(OUT_B) ; } sub pendown() { OnRev(OUT_B); Wait(50); Off(OUT_B) ; } sub hair() { repeat(5) { go_strate(50); turn_left (75); go_strate(50); turn_right (75); } } task main() { //eye go_strate(50); //move to eyebow go_strate(40); turn_left(40); go_strate(30); penup(); //eyebow pendown(); Float(OUT_A+OUT_C);, go_back(100); Float(OUT_A+OUT_C); //move penup();