[[2019a/Member]]
#contents
#ref([ロボの構造/]8229D173-F667-4BC1-8832-1E330012833A[50%,][,ロボの構造])
 #define pen_up OnRev(OUT_B);Wait(10);
 #define pen_down OnFwd(OUT_B);Wait(10);
 #define mae(f) OnFwd(OUT_AC);Wait(f);Off(OUT_AC);
 #define ushiro(b) OnRev(OUT_AC);Wait(b);Off(OUT_AC);
 #define migikaiten(r) OnFwd(OUT_A);OnRev(OUT_C);Wait(r);Off(OUT_AC);
 #define hidarikaiten(l) OnFwd(OUT_C);OnRev(OUT_A);Wait(l);Off(OUT_AC);

 sub ichinikaku()
 {
    pen_down;
    ushiro(70);
    pen_up;
    migikaiten(20);
    mae(100);
    pen_down;
    ushiro(120);
    pen_up;
 }
 sub sankaku()
 {
    mae(150);
    migikaiten(120);
    ushiro(50)
    pen_down;
    ushiro(80);
    pen_up;
 }
 sub yongokaku()
 {
    mae(40);
    pen_down;
    OnFwd(OUT_A);
    Wait(120);
    Off(OUT_A);
    pen_up;
    OnRev(OUT_A);
    Wait(120);
    Off(OUT_A);
    pen_down;
    OnFwd(OUT_C);
    Wait(120);
    Off(OUT_C);
    pen_up;
    OnRev(OUT_C);
    Wait(120);
    Off(OUT_C);
 }
 sub rokkaku()
 {
    mae(230);
    migikaiten(120);
    mae(40);
    migikaiten(120);
    pen_down;
    ushiro(80);
    pen_up;
 }
 sub nanakaku()
 {
    mae(170);
    migikaiten(140);
    ushiro(80);
    pen_down;
    mae(100);
    pen_up;
    mae(80);
    migikaiten(120);
    ushiro(100);
    pen_down;
    mae(80);
    pen_up;
    mae(40);
 }
 sub hachikaku()
 {
    mae(15);
    hidarikaiten(120);
    ushiro(120);
    pen_down;
    ushiro(100);
    pen_up;
 }
 sub kyukaku()
 {
    hidarikaiten(120);
    ushiro(30);
    hidarikaiten(135);
    ushiro(220);
    pen_down;
    ushiro(100);
    pen_up;
 }
 sub jujuichijunikaku()
 {
    mae(200);
    hidarikaiten(120);
    pen_down;
    mae(100);
    pen_up;
    hidarikaiten(120);
    mae(50);
    migikaiten(120);
    ushiro(30);
    pen_down;
    ushiro(70);
    pen_up;
    migikaiten(120);
    ushiro(50);
    hidarikaiten(120);
    ushiro(40);
    pen_down;
    mae(120);
    pen_up;
 }
 task main()
 {
    ichinikaku();
    sankaku();
    yongokaku();
    rokkaku();
    nanakaku();
    hachikaku();
    kyukaku();
    jujuichijunikaku();
 }

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS