home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / demos / euro / designwo.lha / DesignWorks / Small_Logo < prev   
Encoding:
Text File  |  1991-05-17  |  671 b   |  46 lines
  1. /* Draw small New Horizons logo */
  2.  
  3. DrawOff
  4.  
  5. /* Yellow sky */
  6. UnselectAll
  7. PenNum 2
  8. FillNum 16
  9. NewRect 0 9 160 81
  10.  
  11. /* Blue ground and ground lines */
  12. UnselectAll
  13. FillNum 6
  14. NewRect 0 81 160 153
  15. NewLine 0  85 160  85
  16. NewLine 0     90 160  90
  17. NewLine 0  99 160  99
  18. NewLine 0 108 160 108
  19. NewLine 0 121 160 121
  20. NewLine 0 135 160 135
  21.  
  22. /* Red ball */
  23. UnselectAll
  24. FillNum 3
  25. NewOval 80-60 54-54 80+60 54+54
  26.  
  27. /* Black hilight */
  28. UnselectAll
  29. FillNum 2
  30. NewPoly 80-50 108-18 80 108-3 80+50 108-18 80 108+2
  31. PolyClose
  32. PolySmooth
  33.  
  34. /* Black shadow */
  35. UnselectAll
  36. NewOval 80-60 126-9 80+60 126+9
  37.  
  38. /* White hilight */
  39. UnselectAll
  40. PenNum 0
  41. FillNum 1
  42. NewOval 80-10 9 80+10 18
  43.  
  44. UnselectAll
  45. DrawOn
  46.