home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / NERVES.ZIP / PLAY / PLAYGRAP.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-12-30  |  4.6 KB  |  183 lines
  1. #include "defn.h"
  2. #include "playdata.c"
  3. #include "playproto.h"
  4.  
  5. int GraphDriver,GraphMode;
  6. int ErrorCode=0;
  7. int MaxColors;
  8. double AspectRatio;
  9. int xasp,yasp;
  10. int MaxX,MaxY;
  11. struct palettetype palette;
  12.  
  13. void playgraph(void)
  14. {
  15.  Initialize();
  16.  Draw();
  17. }
  18.  
  19. void Initialize(void)
  20. {
  21.  GraphDriver = EGA;
  22.  GraphMode = EGAHI;
  23.  initgraph(&GraphDriver, &GraphMode,"");
  24.  ErrorCode = graphresult();
  25.  if (ErrorCode != grOk)
  26.  {
  27.   closegraph();
  28.   printf("Graphics Error:%s\n", grapherrormsg(ErrorCode));
  29.   exit(1);
  30.  }
  31.  getpalette(&palette);
  32.  MaxColors = getmaxcolor() + 1;
  33.  MaxX = 640;
  34.  MaxY = 350;
  35.  getaspectratio(&xasp,&yasp);
  36. }
  37.  
  38. void Draw(void)
  39. {
  40.  int i;
  41.  char str[26];
  42.  
  43.  setcolor(15);
  44.  line(0,0,639,0); /* screen border lines */
  45.  line(0,0,0,349);
  46.  line(639,0,639,349);
  47.  line(0,349,639,349);
  48.  
  49.  line(0,330,639,330); /* world border lines */
  50.  line(479,0,479,329);
  51.  
  52.  /* plot either graphs or neuron activity */
  53.  graphsetup();
  54.  
  55.  setcolor(3);
  56.  
  57.  outtextxy(10,336,"Enter:Run  Space:Step  Esc:Exit   -:Speed");
  58.  sprintf(str,"FILE:%s",filenum);
  59.  outtextxy(358,336,str);
  60.  sprintf(str,"%d",rc->energy);
  61.  outtextxy(422,336,str);
  62.  if (rc->Iextname[0])
  63.   {
  64.    settextjustify(2,2);
  65.    sprintf(str,"Iext(%s)[nA]:%-.1f",rc->Iextname,(float)rc->Iext/10.);
  66.    outtextxy(629,336,str);
  67.    settextjustify(0,2);
  68.   }
  69.  
  70.  setviewport(1,1,478,329,1);
  71.  setfillstyle(1,7);
  72.  for (i = 0; i < rin.nblock; i++)
  73.   {
  74.    bar(rin.blockx[i],rin.blocky[i],
  75.        rin.blockx[i] + PBLOCKWIDTH,rin.blocky[i] + PBLOCKHEIGHT);
  76.   }
  77.  setfillstyle(0,0);
  78. }
  79.  
  80. void graphsetup(void)
  81.  {
  82.   int j;
  83.   char str[26];
  84.  
  85.   setcolor(15);
  86.   line(479,66,639,66); /* plot border horizontal lines */
  87.   line(479,132,639,132);
  88.   line(479,198,639,198);
  89.   line(479,264,639,264);
  90.  
  91.   setcolor(3);
  92.   for (j = 0; j < 5; j++)
  93.    {
  94.     if (rgr[j].gtype == 1)
  95.      {
  96.       line(537,53+j*66,637,53+j*66); /* graph lines */
  97.       line(537,3+j*66,537,56+j*66);
  98.  
  99.       line(533,3+j*66,537,3+j*66); /* graph y-axis ticks */
  100.       line(535,8+j*66,537,8+j*66);
  101.       line(535,13+j*66,537,13+j*66);
  102.       line(535,18+j*66,537,18+j*66);
  103.       line(535,23+j*66,537,23+j*66);
  104.       line(533,28+j*66,537,28+j*66);
  105.       line(535,33+j*66,537,33+j*66);
  106.       line(535,38+j*66,537,38+j*66);
  107.       line(535,43+j*66,537,43+j*66);
  108.       line(535,48+j*66,537,48+j*66);
  109.       line(533,53+j*66,537,53+j*66);
  110.  
  111.       line(547,3+j*66,547,55+j*66); /*graph x-axis ticks */
  112.       line(557,3+j*66,557,55+j*66);
  113.       line(567,3+j*66,567,55+j*66);
  114.       line(577,3+j*66,577,55+j*66);
  115.       line(587,3+j*66,587,56+j*66);
  116.       line(597,3+j*66,597,55+j*66);
  117.       line(607,3+j*66,607,55+j*66);
  118.       line(617,3+j*66,617,55+j*66);
  119.       line(627,3+j*66,627,55+j*66);
  120.       line(637,3+j*66,637,56+j*66);
  121.  
  122.       outtextxy(538,58+j*66,"0"); /* graph labels (always same) */
  123.       outtextxy(576,58+j*66,"sec");
  124.       outtextxy(630,58+j*66,"1");
  125.  
  126.       settextjustify(2,2); /* graph labels (user-set) */
  127.       if (rgr[j].gvar == 1)
  128.        {
  129.     outtextxy(532,4+j*66,"1");
  130.     outtextxy(532,46+j*66,"0");
  131.        }
  132.       else
  133.        {
  134.     outtextxy(532,4+j*66,itoa(rgr[j].gscale,str,10));
  135.     outtextxy(532,46+j*66,itoa(-rgr[j].gscale,str,10));
  136.     outtextxy(532,25+j*66,"0");
  137.        }
  138.  
  139.       settextjustify(0,2); /* graph labels (also user-set) */
  140.       outtextxy(483,15+j*66,rgr[j].gneur);
  141.  
  142.       if (rgr[j].gvar == 0)
  143.        {
  144.     outtextxy(483,35+j*66,"V [mV]");
  145.        }
  146.       else
  147.        if (rgr[j].gvar == 2)
  148.     {
  149.      outtextxy(483,35+j*66,"I [pA]");
  150.     }
  151.        else
  152.     outtextxy(483,35+j*66,"Freq");
  153.      }
  154.     else
  155.      if (rgr[j].gtype == 2)
  156.       {
  157.        outtextxy(483,266-(4-j)*66,"R3"); /* gait labels (always same) */
  158.        outtextxy(483,275-(4-j)*66,"R2");
  159.        outtextxy(483,284-(4-j)*66,"R1");
  160.        outtextxy(483,293-(4-j)*66,"L3");
  161.        outtextxy(483,302-(4-j)*66,"L2");
  162.        outtextxy(483,312-(4-j)*66,"L1");
  163.        outtextxy(538,322-(4-j)*66,"0");
  164.        outtextxy(576,322-(4-j)*66,"sec");
  165.        outtextxy(630,322-(4-j)*66,"1");
  166.  
  167.        line(537,317-(4-j)*66,637,317-(4-j)*66); /* gait x-axis */
  168.  
  169.        line(537,267-(4-j)*66,537,320-(4-j)*66); /* gait x-axis ticks */
  170.        line(547,267-(4-j)*66,547,319-(4-j)*66);
  171.        line(557,267-(4-j)*66,557,319-(4-j)*66);
  172.        line(567,267-(4-j)*66,567,319-(4-j)*66);
  173.        line(577,267-(4-j)*66,577,319-(4-j)*66);
  174.        line(587,267-(4-j)*66,587,320-(4-j)*66);
  175.        line(597,267-(4-j)*66,597,319-(4-j)*66);
  176.        line(607,267-(4-j)*66,607,319-(4-j)*66);
  177.        line(617,267-(4-j)*66,617,319-(4-j)*66);
  178.        line(627,267-(4-j)*66,627,319-(4-j)*66);
  179.        line(637,267-(4-j)*66,637,320-(4-j)*66);
  180.       }
  181.    }
  182.  }
  183.