/* Standard-Includefile mit Display-Funktionen und   */
/* den noetigen globalen Variablen                   */
#include <screen&window.h>

/* Includefile fuer Aztec-C                          */
#include <functions.h>

struct RastPort* rasp;

SHORT pkt_liste[] =
      { 160,180,
        220,200,
        220,230,
        160,250,
        100,230,
        100,200,
        160,180 };

main()
{
 int i,n;

 make_display();

 rasp = grafikwindow->RPort;

 SetAPen(rasp,1L);
/* Positionieren des Grafikcursors                   */
 Move(rasp,25L,170L);
/* Schleife fuer eine Zickzacklinie                  */
 for(i=20;i<261;i+=20)
 {
  SetAPen(rasp,(long)i/20);
  Draw(rasp,25L+(i-10),130L);
  Draw(rasp,25L+i,170L);
 }

/* Schleife fuer verschiedene Ellipsen               */
 for(i=0;i<131;i+=5)
 {
  SetAPen(rasp,(long)i/5);
  DrawEllipse(rasp,160L,70L,140L-i,25L);
 }
 
/* Doppelschleife fuer eine Reihe bunter Pixel       */
 for(n=0;n<8;n++)
  for(i=0;i<32;i++)
  {
   SetAPen(rasp,(long)i);   
   WritePixel(rasp,32L+(i+1+(n*32)),110L);
  }

 SetAPen(rasp,6L);
/* Positionieren des Grafikcursors                   */
 Move(rasp,160L,180L);
/* Mehrere Linien in einer Farbe zeichnen            */
 PolyDraw(rasp,7L,&pkt_liste[0]);

 Wait(1L<<grafikwindow->UserPort->mp_SigBit);

 end_display();

 Exit(1L);
}