/* GR8DEMO.C */›/* demo of GR8PLOT.OBJ */›  ›#include gr8plot.c›int x,y,delta,diff,radius,i;›main() $(›  printf("\fThis is a demonstration of the\ngraphics capabilities of GR8PLOT.OBJ.\n");›  printf("The circles are being drawn using\nAtari's plot() and GR8's fplot().\n");›  printf("You may switch between circles by\npressing a key.  The switch will not\n");›  printf("occur until the end of the cycle.\n\nPress a key to start.\n");›  getkey();›  graphics(8);›  fsetup(); /* This HAS to be called after a graphics(8) and before and graphics functions */›  setcolor(2,0,0); /* black screen */›  while(1) $(›    printf("\fNormal Atari graphics\nPress a key to see GR8PLOT graphics\n");›    while(!inkey()) $(›      color(1);›      for(radius=5;radius<80;radius+=5) circle(160,80,radius); /* plot circles */›      color(0);›      for(radius=75;radius>0;radius-=5) circle(160,80,radius); /* erase circles */›    $)›    if(getkey() == 'Q') exit();›    printf("\fGR8PLOT graphics\nPress Q to exit to DOS, or Press\n any other key to continue.\n");›    while(!inkey()) $(›      color(1);›      for(radius=5;radius<80;radius+=5) fcircle(160,80,radius);›      color(0);›      for(radius=75;radius>0;radius-=5) fcircle(160,80,radius);›    $)›    if(getkey() == 'Q') exit();›    printf("\fAtari drawto()\n");›    while(!inkey()) $(›      color(1);›      for(y=0;y<160;y+=5) $(›        plot(0,y);›        drawto(319,y);›      $)›      color(0);›      for(y=155;y>=0;y-=5) $(›        plot(0,y);›        drawto(319,y);›      $)›    $)›    if(getkey() == 'Q') exit();›    printf("\fGR8PLOT fdrawto()\nPress Q to exit to DOS, or Press\n any other key to continue.\n");›    while(!inkey()) $(›      color(1);›      for(y=0;y<160;y+=5) $(›        fplot(0,y);›        fdrawto(319,y);›      $)›      color(0);›      for(y=155;y>=0;y-=5) $(›        fplot(0,y);›        fdrawto(319,y);›      $)›    $)›    if(getkey() == 'Q') exit();›  $)›$)›