home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / TEXTPLOT.OPT < prev    next >
Text File  |  1995-04-22  |  843b  |  46 lines
  1.  
  2. def(c)
  3. def(i)
  4. def(j)
  5. def(k)
  6. def(l)
  7. def(sca)
  8. def(vz)
  9.  
  10. begin
  11.  
  12.   readpic('spo_sass.tga')
  13.   loadpic(0,0)
  14.   setcolor(0)
  15.   sysfont(1,1)
  16.  
  17.   printat(100,10,'PLOTTER')
  18.  
  19.   vz :=6
  20.   sca:=6
  21.   k  :=58
  22.   l  :=8
  23.  
  24.   for vz:=0 to 6 do
  25.     for i:=0 to k-1 do
  26.       for j:=0 to l-1 do
  27.         getpixel(100+i,10+j,c)
  28.         if c=0
  29.           disk(  100+i*sca+1-j*vz,50+vz*60+j*sca+1,2,220)
  30.           circle(100+i*sca-j*vz  ,50+vz*60+j*sca  ,4,0)
  31.           plotc( 100+i*sca-1-j*vz,50+vz*60+j*sca-1,255)
  32.         else
  33.           disk(  100+i*sca-j*vz+1,50+vz*60+j*sca+2,2, 0)
  34.           disk(  100+i*sca-j*vz+1,50+vz*60+j*sca+3,2, 0)
  35.           disk(  100+i*sca-j*vz+1,50+vz*60+j*sca+1,2,193)
  36.           circle(100+i*sca-j*vz+1,50+vz*60+j*sca+1,2,150)
  37.         endif
  38.       next(j)
  39.     next(i)
  40.   next(vz)
  41.  
  42.   pause(5000)
  43.  
  44. end
  45.  
  46.