/ins {72 mul} def

/master
{
        0 setgray
        % black dress
        newpath
        19 15 moveto
        19 14 lineto 20 13 lineto 27  9 lineto 35  7 lineto
        38 17 lineto 37  7 lineto 38  9 lineto 45 10 lineto
        50  8 lineto 49 18 lineto 48 23 lineto 45 24 lineto
        40 26 lineto 37 28 lineto 35 29 lineto 34 30 lineto
        34 32 lineto 33 31 lineto 32 28 lineto 30 25 lineto
        26 20 lineto 21 16 lineto
        closepath
        fill

        1 setgray
        % shaded white part of dress
        newpath
        32 20 moveto 38 24 lineto 38 25 lineto 35 28 lineto
        34 28 lineto 32 25 lineto
        closepath
        fill

        0 setgray
        % top
        newpath
        34 22 moveto 36 37 lineto 37 40 lineto 48 41 lineto
        40 42 lineto 46 42 lineto 49 43 lineto 51 43 lineto
        49 36 lineto 45 35 lineto 41 34 lineto 38 32 lineto
        45 35 moveto 45 33 lineto 41 26 lineto
        45 35 moveto 44 33 lineto 41 28 lineto
        41 32 moveto 28 29 lineto
        % left arm
        45 33 moveto 48 32 lineto 50 31 lineto 47 26 lineto
        46 27 lineto 42 28 lineto
        % left hand
        49.5 29.5 moveto 53 29 lineto 55 30 lineto 56 29 lineto
        55 27 lineto 53 28 lineto 50 27 lineto 48 27 lineto
        % foot 1
        48  9 moveto 47.5 7 lineto 48 6.5 lineto 50 7 lineto
        50  8 lineto
        % head
        39 41 moveto 38 46 lineto 39 47 lineto 40 48 lineto
        43 48 lineto 45 47 lineto 45 46 lineto 43 45 lineto
        44.5 45.5 moveto 44.5 44 lineto 44 42 lineto
        % right arm
        50 42 moveto 55 43 lineto
        49.5 39 moveto 52 40 lineto 56 41 lineto
        % foot 2
        19 13.5 moveto 16 13 lineto 16 8 lineto 17.5 7.5 lineto
        18 8 lineto 18 10 lineto 19 11.5 lineto 20.5 12 lineto
        stroke
} def

/student
{
        % foot 1
        newpath
        56.5 49 moveto 56 50 lineto 55 51 lineto 51.5 51 lineto
        51.5 52 lineto 53 53 lineto 57 53 lineto 58 54 lineto
        58.5 53 lineto 58 51 lineto 60 49 lineto
        stroke

        % foot 2
        newpath
        76 55 moveto 76 58 lineto 76 61 lineto 78 60 lineto
        78.5 57 lineto 78 55 lineto 75 54 lineto
        closepath
        stroke

        % legs
        newpath
        59 33 moveto 58 36 lineto 55 42 lineto 52 47 lineto
        53 48 lineto 54 49 lineto 55 49 lineto 56.5 48.5 lineto
        58 49 lineto 59 49.5 lineto 60 47 lineto 61 46 lineto
        63 41 lineto 63 37 lineto

        62 43 moveto 65 41.5 lineto 63 38 lineto 68.5 42 lineto
        68.5 44 lineto 69 46 lineto 69 47 lineto 72 55 lineto
        75 53 lineto 78 53.5 lineto 77.5 50 lineto 77 46 lineto
        75.5 44 lineto 73 42 lineto 72 41 lineto

        75.5 44 moveto 75.5 40 lineto

        % arm
        59 33 moveto 60 33 lineto 64 30 lineto 66 30 lineto
        67 29.5 lineto 68 28 lineto 64 29 lineto 63 26 lineto
        62 28 lineto 61 28 lineto 59.5 27.5 lineto 60 29.5 lineto

        % hand
        59 33 moveto 55 32.5 lineto 51 32 lineto 50.5 33 lineto
        52 34.5 lineto 54 34 lineto 56 34.5 lineto 59 33 lineto

        % jacket (top)
        68 28 moveto 68.5 32 lineto 68 33 lineto 66 36 lineto
        69.5 36 lineto 72 38 lineto 74 39 lineto 78 40 lineto
        78.5 39.5 lineto 77 35 lineto 76.5 33 lineto 76 30 lineto
        76.5 29 lineto 70 22.5 lineto 68 28 lineto 64 29 lineto
        66 26.5 lineto 70 26 lineto 73 26 lineto 75 27 lineto

        % head
        60 16.5 moveto 59 17 lineto 58.5 18 lineto 58 20 lineto
        59 21 lineto 60 21 lineto 60 21.5 lineto 62 23 lineto

        % jacket (bottom)
        64 29 moveto 63 25 lineto 62 23 lineto 62 20 lineto
        61.5 15 lineto 61 13 lineto 60 11 lineto

        62 20 moveto 60 16.5 lineto 58 12 lineto

        60 16.5 moveto 57 14 lineto 56 12 lineto 56.5 10 lineto
        59 9 lineto 62 10 lineto 65 12.5 lineto 68 15 lineto
        71 21 lineto

        70 18 moveto 73 21 lineto 74 24 lineto 75 27 lineto

        % hand
        56 11 moveto 54 12 lineto 53 10 lineto 52 9 lineto
        56.5 9.5 lineto
        stroke
} def

/aikidoframe
{
        gsave
        0.5 setgray
        2 setlinewidth
        newpath
        0 0 moveto
        90 0 lineto
        90 95 lineto
        0 95 lineto
        closepath
        stroke
        grestore
} def

/aikido
{
        gsave
        1 setlinejoin
        % 4.6 ins 6.1 ins translate
        7 7 5 3.6 div mul scale
        % aikidoframe
        master
        student
        grestore
} def

/e {erasepage} def
