xv-3.10a/unsupt/vis

1379   byte *thepic, *bwpic;
1389   if (RBWhich(sizeRB)==1) { thepic = epic;  w = eWIDE;  h = eHIGH; }
1390                      else { thepic = cpic;  w = cWIDE;  h = cHIGH; }
1396     FSDither(thepic, w, h, bwpic);
1397     thepic = bwpic;
1427   case 0:  rv = WriteGIF(fp,thepic,w, h, r, g, b, numcols, RBWhich(colorRB));
1429   case 1:  rv = WritePM (fp,thepic,w, h, r, g, b, numcols, RBWhich(colorRB));
1431   case 2:  rv = WritePBM(fp,thepic,w, h, r, g, b, numcols, RBWhich(colorRB),1);
1433   case 3:  rv = WritePBM(fp,thepic,w, h, r, g, b, numcols, RBWhich(colorRB),0);
1435   case 4:  rv = WriteXBM(fp,thepic,w, h, filename);
1437   case 5:  rv = WriteVIS(fp,thepic,w,h,r,g,b,numcols,RBWhich(colorRB));
1557 int WriteVIS(fp,thepic,w,h,rmap,gmap,bmap,numcols,colorstyle)
1559 byte *thepic;
1568 		for(i=0;i<w;i++) for(j=0;j<h;j++) putc(thepic[i+(h-j-1)*w]?255:0,fp);
1572 		for(i=0;i<w;i++) for(j=0;j<h;j++) putc(rgb[thepic[i+(h-j-1)*w]],fp);