home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 325_01 / b4.c < prev    next >
C/C++ Source or Header  |  1990-03-28  |  15KB  |  376 lines
  1.  
  2.         /* see comments in b1.c */
  3.  
  4. #include    <stdio.h>
  5. #include    <stdlib.h>
  6. #include    <grph.h>
  7. #include    <ops2d.h>
  8. #include    <font.h>
  9.  
  10. extern    void    far nature(float,float,float,float);
  11.  
  12.  
  13. static    float    x1[] = {-73.0f,-73.0f,-72.0f,-69.0f,-63.0f,-61.0f,-60.0f,\
  14.             -59.0f,-57.0f,-56.0f,-50.0f,-37.0f,-26.0f,-29.0f,\
  15.             -30.0f,-30.0f,-29.0f,-26.0f,-22.0f,-16.0f,-15.0f,\
  16.             -17.0f,-12.0f,-10.0f,  1.0f,  0.0f,  8.0f,  9.0f,\
  17.              14.0f, 12.0f, 17.0f, 15.0f, 26.0f, 24.0f, 39.0f,\
  18.              42.0f, 45.0f, 47.0f, 49.0f, 53.0f, 51.0f, 41.0f,\
  19.              34.0f, 29.0f, 29.0f, 20.0f, 13.0f,  4.0f,  0.0f,\
  20.              -6.0f,-10.0f,-20.0f,-24.0f,-28.0f,-32.0f,-35.0f,\
  21.             -39.0f,-44.0f,-50.0f,-54.0f,-68.0f,-70.0f,-71.0f,\
  22.             -73.0f};
  23. static    float    y1[] = { 13.0f, 10.0f,    8.0f,  5.0f,  0.0f, -1.0f, -3.0f,\
  24.              -7.0f,-10.0f,-14.0f,-18.0f,-24.0f,-30.0f,-26.0f,\
  25.             -23.0f,-20.0f,-16.0f,-13.0f,-10.0f, -9.0f, -8.0f,\
  26.              -6.0f, -5.0f, -3.0f, -2.0f,  0.0f,  0.0f,  2.0f,\
  27.               4.0f,  6.0f,    7.0f,  9.0f, 14.0f, 16.0f, 22.0f,\
  28.              28.0f, 35.0f, 39.0f, 43.0f, 56.0f, 57.0f, 55.0f,\
  29.              53.0f, 49.0f, 48.0f, 46.0f, 45.0f, 43.0f, 41.0f,\
  30.              39.0f, 32.0f, 32.0f, 27.0f, 23.0f, 16.0f, 13.0f,\
  31.              10.0f,  6.0f,    5.0f,  5.0f, 11.0f, 12.0f, 12.0f,\
  32.              13.0f};
  33.  
  34. static    float    x2[] = {-48.0f,-48.0f,-49.0f,-50.0f,-53.0f,-54.0f,-54.0f,\
  35.             -53.0f,-52.0f,-50.0f,-48.0f,-51.0f,-50.0f,-51.0f};
  36. static    float    y2[] = {-10.0f, -8.0f, -7.0f, -5.0f, -5.0f, -6.0f, -8.0f,\
  37.              -9.0f,-10.0f,-10.0f,-10.0f, -7.0f, -9.0f, -9.0f};
  38.  
  39. static    float    x3[] = {-73.0f,-73.0f,-72.0f,-69.0f,-63.0f,-61.0f,-59.0f,\
  40.             -56.0f,-48.0f,-51.0f,-54.0f,-68.0f,-70.0f,-71.0f,-73.0f};
  41. static    float    y3[] = { 13.0f, 10.0f,    8.0f,  5.0f,  0.0f, -1.0f,  0.0f,\
  42.              -2.0f, -1.0f,    5.0f,  5.0f, 11.0f, 12.0f, 12.0f, 13.0f};
  43.  
  44. static    float    x4[] = {-71.0f,-67.0f,-55.0f,-59.0f,-58.0f,-58.0f,-56.0f,-54.0f,\
  45.             -51.0f,-48.0f,-55.0f,-56.0f,-57.0f,-56.0f,-57.0f,-57.0f,\
  46.             -54.0f,-51.0f,-48.0f,-56.0f,-59.0f,-60.0f};
  47. static    float    y4[] = { 11.0f,  8.0f,    2.0f, -1.0f, -2.0f, -6.0f,-10.0f,-13.0f,\
  48.             -14.0f,-15.0f, -3.0f, -4.0f, -6.0f,-10.0f, -6.0f,  0.0f,\
  49.               4.0f,  1.0f, -1.0f, -2.0f,  0.0f, -1.0f};
  50.  
  51. static    float    x5[] = {-30.0f,-35.0f,-38.0f,-41.0f,-46.0f,-40.0f,-36.0f,-33.0f,\
  52.             -32.0f,-33.0f,-35.0f,-30.0f,-25.0f,-23.0f,-23.0f,-24.0f,\
  53.             -26.0f,-28.0f,-30.0f,-32.0f,-28.0f,-25.0f,-22.0f,-21.0f,\
  54.             -18.0f,-20.0f,-19.0f,-19.0f,-20.0f,-25.0f,-25.0f,-28.0f,\
  55.             -26.0f,-29.0f,-30.0f,-32.0f,-28.0f,-30.0f,-29.0f,-26.0f};
  56. static    float    y5[] = {-20.0f,-20.0f,-19.0f,-17.0f,-13.0f,-13.0f,-13.0f,-12.0f,\
  57.              -9.0f, -6.0f, -3.0f, -3.0f, -1.0f,  2.0f, 10.0f, 14.0f,\
  58.              16.0f, 18.0f, 17.0f, 16.0f, 23.0f, 23.0f, 21.0f, 19.0f,\
  59.              20.0f, 15.0f,    4.0f,  0.0f, -4.0f, -6.0f, -8.0f, -7.0f,\
  60.             -13.0f,-16.0f,-20.0f, 16.0f, 23.0f,-20.0f,-16.0f,-13.0f};
  61.  
  62. static    float    x6[] = {-28.0f,-25.0f,-22.0f,-21.0f,-18.0f,-20.0f,-19.0f,-19.0f,\
  63.             -20.0f,-25.0f,-25.0f,-28.0f,-26.0f,-22.0f,-16.0f,-15.0f,\
  64.             -17.0f,-12.0f,-10.0f,  1.0f,  0.0f,  8.0f,  9.0f, 14.0f,\
  65.              12.0f, 17.0f, 15.0f, 26.0f, 24.0f, 39.0f, 42.0f, 45.0f,\
  66.              47.0f, 49.0f, 53.0f, 51.0f, 41.0f, 34.0f, 29.0f, 20.0f,\
  67.              13.0f,  4.0f,    0.0f, -6.0f,-10.0f,-20.0f,-24.0f,-28.0f};
  68. static    float    y6[] = { 23.0f, 23.0f, 21.0f, 19.0f, 20.0f, 15.0f,  4.0f,  0.0f,\
  69.              -4.0f, -6.0f, -8.0f, -7.0f,-13.0f,-10.0f, -9.0f, -8.0f,\
  70.              -6.0f, -5.0f, -3.0f, -2.0f,  0.0f,  0.0f,  2.0f,  4.0f,\
  71.               6.0f,  7.0f,    9.0f, 14.0f, 16.0f, 22.0f, 28.0f, 35.0f,\
  72.              39.0f, 43.0f, 56.0f, 57.0f, 55.0f, 53.0f, 49.0f, 48.0f,\
  73.              46.0f, 45.0f, 43.0f, 41.0f, 39.0f, 32.0f, 27.0f, 23.0f};
  74.  
  75. static    float    x7[] = { 47.0f, 60.0f, 70.0f, 80.0f, 85.0f, 90.0f, 94.0f, 96.0f,\
  76.              97.0f, 93.0f, 90.0f, 93.0f, 94.0f, 90.0f, 84.0f, 86.0f,\
  77.              87.0f, 87.0f, 85.0f, 80.0f, 83.0f, 83.0f, 80.0f, 76.0f,\
  78.              80.0f, 79.0f, 70.0f, 72.0f, 74.0f, 73.0f, 70.0f, 67.0f,\
  79.              68.0f, 67.0f, 63.0f, 61.0f, 61.0f, 60.0f, 56.0f, 54.0f,\
  80.              55.0f, 53.0f, 50.0f, 48.0f, 47.0f, 43.0f, 40.0f, 38.0f,\
  81.              36.0f, 35.0f, 34.0f, 34.0f, 34.0f, 60.0f};
  82. static    float    y7[] = { 39.0f, 43.0f, 46.0f, 49.0f, 52.0f, 54.0f, 57.0f, 60.0f,\
  83.              62.0f, 62.0f, 61.0f, 64.0f, 66.0f, 66.0f, 64.0f, 66.0f,\
  84.              70.0f, 73.0f, 73.0f, 71.0f, 75.0f, 77.0f, 76.0f, 75.0f,\
  85.              82.0f, 83.0f, 79.0f, 82.0f, 86.0f, 87.0f, 86.0f, 84.0f,\
  86.              87.0f, 89.0f, 88.0f, 85.0f, 90.0f, 92.0f, 90.0f, 86.0f,\
  87.              92.0f, 94.0f, 90.0f, 87.0f, 90.0f, 86.0f, 82.0f, 77.0f,\
  88.              73.0f, 67.0f, 63.0f, 58.0f, 53.0f, 70.0f};
  89. static    float    x8[] = { 90.0f, 83.0f, 76.0f, 69.0f, 60.0f, 54.0f, 84.0f, 80.0f,\
  90.              75.0f, 70.0f, 63.0f, 54.0f, 80.0f, 75.0f, 70.0f, 66.0f,\
  91.              60.0f, 52.0f, 76.0f, 73.0f, 69.0f, 65.0f, 62.0f, 56.0f,\
  92.              70.0f, 66.0f, 63.0f, 60.0f, 56.0f, 52.0f, 67.0f, 64.0f,\
  93.              60.0f, 56.0f, 54.0f, 50.0f, 61.0f, 57.0f, 54.0f, 50.0f,\
  94.              48.0f, 44.0f, 54.0f, 50.0f, 47.0f, 45.0f, 43.0f, 41.0f,\
  95.              48.0f, 45.0f, 43.0f, 40.0f, 38.0f, 37.0f};
  96. static    float    y8[] = { 61.0f, 56.0f, 52.0f, 48.0f, 45.0f, 43.0f, 64.0f, 60.0f,\
  97.              56.0f, 54.0f, 51.0f, 47.0f, 71.0f, 65.0f, 61.0f, 57.0f,\
  98.              54.0f, 50.0f, 75.0f, 70.0f, 67.0f, 64.0f, 61.0f, 57.0f,\
  99.              79.0f, 75.0f, 72.0f, 70.0f, 65.0f, 59.0f, 84.0f, 80.0f,\
  100.              76.0f, 71.0f, 67.0f, 61.0f, 85.0f, 80.0f, 75.0f, 70.0f,\
  101.              65.0f, 57.0f, 86.0f, 80.0f, 75.0f, 70.0f, 65.0f, 57.0f,\
  102.              87.0f, 82.0f, 76.0f, 70.0f, 65.0f, 58.0f};
  103.  
  104. static    float    x9[] = {-20.0f,-17.0f,-12.0f, -8.0f, -5.0f,-16.0f,-12.0f, -7.0f,\
  105.               2.0f, -2.0f,    5.0f, 42.0f, 42.0f, 40.0f, 40.0f, 37.0f,\
  106.              36.0f, 35.0f, 33.0f,-56.0f,-53.0f,-50.0f,-42.0f,-35.0f,\
  107.             -31.0f,-46.0f,-40.0f,-33.0f,  4.0f, -5.0f, -6.0f, -6.0f,\
  108.              -8.0f, -7.0f, -2.0f,  0.0f,  8.0f, 10.0f, 12.0f, 10.0f,\
  109.               0.0f,  1.0f,    0.0f,  2.0f,  1.0f, -2.0f, -2.0f,  2.0f,\
  110.               7.0f,  8.0f,    6.0f,  7.0f,  8.0f,  0.0f, -4.0f, -5.0f,\
  111.              -6.0f,  8.0f,    7.0f,  4.0f,  1.0f,  3.0f,  4.0f,  2.0f,\
  112.               3.0f,  5.0f, 23.0f, 26.0f, 29.0f, 30.0f, 31.0f, 30.0f,\
  113.              29.0f, 27.0f, 27.0f, 28.0f, 22.0f, 20.0f, 21.0f, 22.0f,\
  114.              20.0f, 15.0f, 15.0f, 17.0f, 20.0f, 23.0f, 15.0f, 12.0f,\
  115.              11.0f, 11.0f, 14.0f, 16.0f, 17.0f, 16.0f, 14.0f, 15.0f,\
  116.              21.0f, 23.0f, 25.0f, 29.0f, 28.0f, 27.0f, 17.0f, 19.0f,\
  117.              21.0f, 87.0f, 91.0f, 86.0f, 90.0f, 83.0f, 87.0f, 81.0f,\
  118.              85.0f, 79.0f, 82.0f, 77.0f, 81.0f, 74.0f, 77.0f, 73.0f,\
  119.              75.0f, 70.0f, 73.0f, 68.0f, 71.0f, 65.0f, 69.0f, 64.0f,\
  120.              67.0f, 61.0f, 64.0f, 60.0f, 63.0f, 57.0f, 59.0f, 55.0f,\
  121.              57.0f, 50.0f, 52.0f, 49.0f, 50.0f, 44.0f, 45.0f, 92.0f,\
  122.              94.0f, 88.0f, 91.0f, 83.0f, 86.0f, 79.0f, 81.0f, 74.0f,\
  123.              77.0f, 70.0f, 72.0f, 65.0f, 66.0f, 59.0f, 60.0f, 52.0f,\
  124.              53.0f, 46.0f, 47.0f, 35.0f, 40.0f, 40.0f, 45.0f,  2.0f,\
  125.              11.0f,  5.0f, 14.0f,  9.0f, 16.0f};
  126.  
  127. static    float    y9[] = { 27.0f, 30.0f, 34.0f, 36.0f, 38.0f, 27.0f, 30.0f, 33.0f,\
  128.              38.0f, 39.0f, 43.0f, 35.0f, 38.0f, 37.0f, 41.0f, 41.0f,\
  129.              44.0f, 44.0f, 46.0f,-12.0f,-15.0f,-16.0f,-20.0f,-24.0f,\
  130.             -26.0f,-17.0f,-20.0f,-23.0f, 45.0f, 47.0f, 48.0f, 50.0f,\
  131.              54.0f, 56.0f, 59.0f, 59.0f, 57.0f, 56.0f, 50.0f, 46.0f,\
  132.              59.0f, 58.0f, 56.0f, 55.0f, 53.0f, 52.0f, 50.0f, 49.0f,\
  133.              49.0f, 52.0f, 55.0f, 57.0f, 57.0f, 56.0f, 56.0f, 55.0f,\
  134.              50.0f, 57.0f, 59.0f, 60.0f, 58.0f, 58.0f, 57.0f, 55.0f,\
  135.              54.0f, 52.0f, 32.0f, 36.0f, 39.0f, 41.0f, 47.0f, 49.0f,\
  136.              49.0f, 47.0f, 45.0f, 42.0f, 36.0f, 35.0f, 37.0f, 39.0f,\
  137.              40.0f, 36.0f, 34.0f, 33.0f, 33.0f, 32.0f, 34.0f, 34.0f,\
  138.              35.0f, 39.0f, 43.0f, 44.0f, 43.0f, 40.0f, 37.0f, 36.0f,\
  139.              40.0f, 42.0f, 43.0f, 49.0f, 51.0f, 53.0f, 43.0f, 45.0f,\
  140.              46.0f, 53.0f, 57.0f, 55.0f, 58.0f, 59.0f, 62.0f, 60.0f,\
  141.              64.0f, 63.0f, 66.0f, 65.0f, 69.0f, 68.0f, 72.0f, 69.0f,\
  142.              74.0f, 72.0f, 75.0f, 74.0f, 77.0f, 77.0f, 80.0f, 78.0f,\
  143.              82.0f, 80.0f, 84.0f, 81.0f, 85.0f, 82.0f, 86.0f, 84.0f,\
  144.              87.0f, 84.0f, 88.0f, 84.0f, 88.0f, 83.0f, 87.0f, 58.0f,\
  145.              60.0f, 63.0f, 64.0f, 69.0f, 72.0f, 73.0f, 76.0f, 77.0f,\
  146.              81.0f, 82.0f, 86.0f, 86.0f, 88.0f, 88.0f, 90.0f, 89.0f,\
  147.              91.0f, 88.0f, 89.0f, 48.0f, 52.0f, 50.0f, 53.0f,  1.0f,\
  148.              -3.0f,  2.0f,    0.0f,  4.0f,  4.0f};
  149.  
  150. static    float    x10[]= {-30.0f,-27.0f,-24.0f,-20.0f,-13.0f, -7.0f,  0.0f,  4.0f,\
  151.              -5.0f, -6.0f, -6.0f, -8.0f, -8.0f, -2.0f,  2.0f,  6.0f,\
  152.              10.0f,  8.0f,    5.0f,  4.0f,  3.0f,  0.0f, -3.0f, -6.0f,\
  153.              -7.0f, -7.0f,-10.0f,-15.0f,-17.0f,-18.0f,-20.0f,-24.0f,\
  154.             -26.0f,-26.0f,-30.0f,-33.0f,-30.0f,-32.0f,-37.0f,-38.0f,\
  155.             -36.0f,-35.0f,-35.0f,-36.0f,-37.0f,-38.0f,-37.0f,-36.0f,\
  156.             -33.0f,-30.0f,-30.0f,-26.0f,-26.0f,-26.0f,-20.0f,\
  157.             -16.0f,-18.0f,-13.0f,-10.0f, -7.0f, -4.0f, -3.0f,  3.0f,\
  158.               4.0f,  4.0f,-16.0f,-16.0f,-10.0f, -9.0f,  2.0f,-16.0f,\
  159.              -4.0f,  0.0f,    3.0f,  7.0f, 12.0f, 20.0f, 30.0f, 35.0f,\
  160.              40.0f, 45.0f, 48.0f, 50.0f, 52.0f, 53.0f, 54.0f, 53.0f,\
  161.              52.0f, 50.0f, 46.0f, 43.0f, 42.0f, 40.0f, 35.0f, 30.0f,\
  162.              29.0f, 32.0f, 26.0f, 20.0f, 19.0f, 20.0f, 15.0f, 11.0f,\
  163.              10.0f, 13.0f, 10.0f,  6.0f,  2.0f, 10.0f,  4.0f, -2.0f,\
  164.              -4.0f,  0.0f,    4.0f, 10.0f, 13.0f,  7.0f,  3.0f,  0.0f,\
  165.               5.0f, 10.0f, 13.0f, 14.0f, 15.0f,-17.0f,-19.0f,-16.0f,\
  166.              15.0f,-17.0f,-19.0f,-16.0f,-16.0f,
  167.              -4.0f,  0.0f,    3.0f,  7.0f, 12.0f, 20.0f, 30.0f, 35.0f,\
  168.              40.0f, 45.0f, 48.0f, 50.0f, 52.0f, 53.0f, 54.0f, 53.0f,\
  169.              52.0f, 50.0f, 46.0f, 43.0f, 42.0f, 40.0f, 35.0f, 30.0f,\
  170.              29.0f, 32.0f, 26.0f, 20.0f, 19.0f, 20.0f, 15.0f, 11.0f,\
  171.              10.0f, 13.0f, 10.0f,  6.0f,  2.0f, 10.0f,  4.0f, -2.0f,\
  172.              -4.0f,  0.0f,    4.0f, 10.0f, 13.0f,  7.0f,  3.0f,  0.0f,\
  173.               5.0f, 10.0f, 13.0f, 14.0f, 15.0f, 15.0f, 13.0f, 10.0f,\
  174.               5.0f,  0.0f, 13.0f, 19.0f, 23.0f, 10.0f, 17.0f, 26.0f,\
  175.              13.0f, 23.0f, 31.0f, 20.0f, 28.0f, 34.0f, 32.0f, 40.0f,\
  176.              45.0f, 42.0f, 46.0f, 50.0f, 23.0f, 24.0f, 26.0f, 30.0f,\
  177.              31.0f, 38.0f, 34.0f, 42.0f, 45.0f, 48.0f};
  178.  
  179. static    float    y10[]= { 20.0f, 25.0f, 28.0f, 32.0f, 37.0f, 40.0f, 43.0f, 45.0f,\
  180.              47.0f, 48.0f, 50.0f, 53.0f, 56.0f, 58.0f, 58.0f, 60.0f,\
  181.              59.0f, 65.0f, 72.0f, 73.0f, 71.0f, 77.0f, 82.0f, 85.0f,\
  182.              84.0f, 81.0f, 85.0f, 88.0f, 88.0f, 86.0f, 89.0f, 91.0f,\
  183.              90.0f, 85.0f, 89.0f, 88.0f, 77.0f, 81.0f, 82.0f, 80.0f,\
  184.              73.0f, 65.0f, 57.0f, 50.0f, 40.0f, 35.0f, 30.0f, 26.0f,\
  185.              23.0f, 20.0f, 77.0f, 64.0f, 44.0f, 85.0f, 73.0f,\
  186.              57.0f, 86.0f, 78.0f, 64.0f, 81.0f, 70.0f, 62.0f, 71.0f,\
  187.              67.0f, 63.0f, 57.0f, 43.0f, 64.0f, 50.0f, 52.0f, -9.0f,\
  188.              -9.0f,-10.0f,-13.0f,-13.0f,-11.0f, -7.0f,  0.0f,  4.0f,\
  189.               9.0f, 16.0f, 20.0f, 24.0f, 30.0f, 33.0f, 37.0f, 40.0f,\
  190.              46.0f, 50.0f, 54.0f, 57.0f, 55.0f, 57.0f, 61.0f, 63.0f,\
  191.              62.0f, 58.0f, 62.0f, 63.0f, 62.0f, 59.0f, 62.0f, 62.0f,\
  192.              61.0f, 57.0f, 59.0f, 60.0f, 58.0f, 50.0f, 53.0f, 54.0f,\
  193.              53.0f, 50.0f, 45.0f, 40.0f, 34.0f, 40.0f, 42.0f, 41.0f,\
  194.              34.0f, 27.0f, 20.0f, 15.0f, 10.0f, -3.0f, -7.0f, -9.0f,\
  195.              10.0f, -3.0f, -7.0f, -9.0f, -9.0f,
  196.              -9.0f,-10.0f,-13.0f,-13.0f,-11.0f, -7.0f,  0.0f,  4.0f,\
  197.               9.0f, 16.0f, 20.0f, 24.0f, 30.0f, 33.0f, 37.0f, 40.0f,\
  198.              46.0f, 50.0f, 54.0f, 57.0f, 55.0f, 57.0f, 61.0f, 63.0f,\
  199.              62.0f, 58.0f, 62.0f, 63.0f, 62.0f, 59.0f, 62.0f, 62.0f,\
  200.              61.0f, 57.0f, 59.0f, 60.0f, 58.0f, 50.0f, 53.0f, 54.0f,\
  201.              53.0f, 50.0f, 45.0f, 40.0f, 34.0f, 40.0f, 42.0f, 41.0f,\
  202.              34.0f, 27.0f, 20.0f, 15.0f, 10.0f,  5.0f,  0.0f, -5.0f,\
  203.              -9.0f,-10.0f, 34.0f, 27.0f, 17.0f, 50.0f, 44.0f, 33.0f,\
  204.              57.0f, 47.0f, 38.0f, 59.0f, 54.0f, 46.0f, 58.0f, 50.0f,\
  205.              40.0f, 55.0f, 50.0f, 40.0f, 17.0f, 14.0f, 33.0f, 25.0f,\
  206.              38.0f, 24.0f, 46.0f, 30.0f, 40.0f, 33.0f};
  207.  
  208. int  main (void)
  209. {
  210.  
  211.     Byte m;
  212.     struct  VP    vp1;
  213.     int     i;
  214.  
  215.     Word    j;
  216.     void    far *p;
  217.     int     a1,b1,a2,b2;
  218.  
  219.     do
  220.     {
  221.         scanf("%x" ,&m);
  222.     }
  223.     while ((m !=1) && (m != 2));
  224.  
  225.     OpenGraph(m,0);
  226.  
  227.     vp1.x1=0;
  228.     vp1.y1=0;
  229.     vp1.x2=XRes;
  230.     vp1.y2=YRes;
  231. /*
  232.     nature(0.0f,0.0f,320.0f,200.0f);
  233. */
  234.     MapWorld(-320.0f,200.0f,320.0f,-200.0f);
  235.     /*MapWorld(220.0f,140.0f,-220.0f,-140.0f);*/
  236.  
  237.  
  238.     PxlClr=7;
  239.     FllClr=7;
  240.     FillPoly(64,x1,y1);
  241.     PolyLine(64,x1,y1);
  242.  
  243.     PxlClr=7;
  244.     FllClr=0;
  245.     FillPoly(11,x2,y2);             /*draw eye*/
  246.     PolyLine(11,x2,y2);
  247.     PxlClr=15;
  248.     for (i=11;i<14;i++)             /*highlight eye*/
  249.     SetPixel(WtoDX(x2[i]),WtoDY(y2[i]));
  250.  
  251.     PxlClr=7;
  252.     FllClr=0;
  253.     FillPoly(15,x3,y3);         /* cheek start + outline beak*/
  254.     PolyLine(15,x3,y3);
  255.  
  256.     PolyLine(3,x4,y4);            /* mouth*/
  257.  
  258.     PxlClr=0;
  259.     PolyLine(7,&x4[3],&y4[3]);
  260.     PolyLine(4,&x4[10],&y4[10]);
  261.     PolyLine(2,&x4[14],&y4[14]);
  262.     PolyLine(6,&x4[16],&y4[16]);
  263.  
  264.     PxlClr=0;
  265.     FllClr=0;
  266.     FillPoly(35,x5,y5);
  267.     PolyLine(35,x5,y5);
  268.  
  269.     PxlClr=7;
  270.     PolyLine(2,&x5[35],&y5[35]);
  271.     PolyLine(3,&x5[37],&y5[37]);
  272.  
  273.     PxlClr=7;
  274.     FllClr=9;
  275.     FillPoly(48,x6,y6);
  276.     PolyLine(48,x6,y6);
  277.  
  278.     FllClr =  9;
  279.     PxlClr = 7;
  280.     FillPoly(53,x7,y7);
  281.     PolyLine(53,x7,y7);
  282.  
  283.     for (i=0;i<9;i++)
  284.     PolyLine(6,&x8[6*i],&y8[6*i]);
  285.  
  286.     PolyLine(5,x9,y9);
  287.     PolyLine(4,&x9[5],&y9[5]);
  288.     PolyLine(2,&x9[9],&y9[9]);
  289.     for (i=0;i<4;i++)
  290.     PolyLine(2,&x9[11+i*2],&y9[11+i*2]);
  291.     PxlClr = 9;
  292.     PolyLine(6,&x9[19],&y9[19]);
  293.     PolyLine(3,&x9[25],&y9[25]);
  294.  
  295.     PxlClr = 8;
  296.     FllClr = 7;
  297.     FillPoly(12,&x9[28],&y9[28]);
  298.     PolyLine(12,&x9[28],&y9[28]);
  299.  
  300.     PxlClr = 0;
  301.     FllClr = 0;
  302.     FillPoly(13,&x9[40],&y9[40]);
  303.     PolyLine(13,&x9[40],&y9[40]);
  304.     PolyLine(4,&x9[53],&y9[53]);
  305.  
  306.     PxlClr = 7;
  307.     for (i=0;i<2;i++)
  308.     PolyLine(3,&x9[57+i*3],&y9[57+i*3]);
  309.  
  310.     PxlClr = 0;
  311.     FllClr = 7;
  312.     FillPoly(20,&x9[66],&y9[66]);
  313.     PolyLine(20,&x9[66],&y9[66]);
  314.  
  315.     PxlClr = 0;
  316.     FllClr = 7;
  317.     FillPoly(10,&x9[86],&y9[86]);
  318.     PolyLine(10,&x9[86],&y9[86]);
  319.  
  320.     PxlClr = 7;
  321.     for (i=0;i<3;i++)
  322.     PolyLine(3,&x9[96+i*3],&y9[96+i*3]);
  323.  
  324.     PxlClr = 1;
  325.     PolyLine(19,&x9[105],&y9[105]);
  326.     PolyLine(10,&x9[124],&y9[124]);
  327.     PolyLine(5,&x9[134],&y9[134]);
  328.  
  329.  
  330.     /* wings 1*/
  331.  
  332.     FllClr = 9;
  333.     PxlClr  = 7;
  334.     FillPoly(50,x10,y10);
  335.     PolyLine(50,x10,y10);
  336.  
  337.     for (i=0;i<5;i++)
  338.     PolyLine(3,&x10[50+i*3],&y10[50+i*3]);
  339.  
  340.     for (i=0;i<2;i++)
  341.     PolyLine(2,&x10[65+i*2],&y10[65+i*2]);
  342.     FillArea(WtoDX(x10[69]),WtoDY(y10[69]),PxlClr);
  343.  
  344.     FllClr = 9;
  345.     FillPoly(57,&x10[70],&y10[70]);
  346.     PolyLine(57,&x10[70],&y10[70]);
  347.  
  348.     PxlClr = 9;
  349.     PolyLine(4,&x10[127],&y10[127]);
  350.  
  351.     PxlClr = 7;
  352.     FllClr = 1;
  353.     FillPoly(59,&x10[131],&y10[131]);
  354.     PolyLine(59,&x10[131],&y10[131]);
  355.  
  356.     for (i=0;i<6;i++)
  357.     PolyLine(3,&x10[190+i*3],&y10[190+i*3]);
  358.     for (i=0;i<5;i++)
  359.     PolyLine(2,&x10[208+i*2],&y10[208+i*2]);
  360.  
  361.     a1 = WtoDX(-80.0f);
  362.     b1 = WtoDY(-80.0f);
  363.     a2 = WtoDX(110.0f);
  364.     b2 = WtoDY(105.0f);
  365.  
  366.     j = ImageSize(a1,b1,a2,b2);
  367.  
  368.     p = (void far *)malloc(j);
  369.     GetImage(a1,b1,a2,b2,(void far *)p);
  370.     SaveImage("b413",(void far *)p,j);
  371.  
  372.     CloseGraph();
  373.  
  374.     return 0;
  375. }
  376.