Mono advertisement postscript graphics that I created for the computer graphics course of the university in 2004.

mono.ps

% This is a Mono advertisement postscript graphics that I created
% for the computer graphics course of the university in 2004.

/draw-monkey { % fg-color bg-color scale
    dup
    scale

    newpath
    0 0 moveto
    0 0.95 lineto
    0 0.975 0.025 1 0.05 1 curveto
    0.95 1 lineto
    0.975 1 1 0.975 1 0.95 curveto
    1 0.05 lineto
    1 0.025 0.975 0 0.95 0 curveto
    closepath
    setgray
    fill

    0 0.6 moveto
    0.2 0.66 lineto
    0.33 0.61 lineto
    0.16 0.7 0.07 0.77 0.19 0.87 curveto
    0.43 0.84 lineto
    0.3 0.87 lineto
    0.4 0.93 0.74 0.85 0.76 0.83 curveto
    0.77 0.82 0.81 0.81 0.8 0.6 curveto
    0.79 0.59 0.79 0.59 0.61 0.63 curveto
    0.76 0.58 lineto
    0.82 0.57 0.81 0.28 0.79 0.24 curveto
    0.77 0.19 0.56 0.42 0.59 0.42 curveto
    0.59 0.34 0.75 0.22 0.78 0.22 curveto
    0.79 0.21 0.71 0.08 0.71 0.08 curveto
    0.29 0.26 lineto
    0.08 0 lineto
    0 0 lineto
    closepath
    setgray
    fill
} def


/draw-background {
    /x 30 def
    /y 50 def

    1 1 4 {
        1 1 5 {
            gsave
            x y translate
            0.8 0.9 100 draw-monkey
            grestore
            /y y 150 add def
        } for

        /x x 150 add def
        /y y 750 sub def
    } for
} def

/draw-logo {
    gsave
    155 477 translate
    1 0 300 draw-monkey
    grestore
} def

/draw-string { % string x y scale
    /Helvetica findfont exch scalefont setfont
    moveto
    show
} def


/draw-text {
    % clear background images under the "Mono" text
    newpath
    180 350 moveto
    250 0 rlineto
    0 100 rlineto
    -250 0 rlineto
    closepath
    1 setgray
    fill
    0 setgray

    (Mono) 180 360 100 draw-string
    (One language, one future.) 80 315 40 draw-string
    (http://mono-project.com) 140 165 32 draw-string
} def

draw-background
draw-logo
draw-text

showpage