home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 571.lha / STScan / stscan.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-29  |  42.3 KB  |  2,261 lines
  1. /* ST-400 Scanner Programm */
  2. #include <exec/exec.h>
  3. #include <exec/types.h>
  4. #include <intuition/intuition.h>
  5. #include <intuition/intuitionbase.h>
  6. #include <libraries/dos.h>
  7. #include <libraries/dosextens.h>
  8. #include <graphics/rastport.h>
  9. #include <stdio.h>
  10. #include <string.h>
  11. #include <functions.h>
  12.  
  13. #define ST400ID 3
  14. #define ST400LUN 96
  15. #define DEV_NAME (char*)"scsi.device" /* <- change for other SCSI controller */
  16. #define FORM 0x464f524d
  17. #define ILBM 0x494c424d
  18. #define BMHD 0x424d4844
  19. #define BODY 0x424f4459
  20. #define DIR_READ  1
  21. #define DIR_WRITE 0
  22.  
  23. struct MsgPort *HCPort;
  24. struct IntuitionBase *IntuitionBase;
  25. struct GfxBase *GfxBase;
  26. struct DosBase *DosBase;
  27. struct IntuiMessage *Message;
  28. struct Window *win;
  29. struct Screen *scr;
  30. struct Viewport *vp;
  31. struct RastPort *rp;
  32. struct MsgPort *diskport;
  33. struct IOStdReq *diskreq;
  34. ULONG MessageClass;
  35. USHORT Code;
  36. long openerror;
  37. ULONG memneed=0;
  38. UWORD memwidth, memheight;
  39. UBYTE memgray;
  40. UBYTE *memptr;
  41. USHORT *imgptrf, *imgptrz;
  42.  
  43. UBYTE numbits_16[]={0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4};
  44. UBYTE numbits[256];
  45. UBYTE graystep[]={0,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1};
  46. UBYTE bitval[]={128,64,32,16,8,4,2,1};
  47. UBYTE invbitval[]={127,191,223,239,247,251,253,254};
  48. UBYTE sk,mf;
  49. UWORD vx,vy,wx1,wy1,wx2,wy2;
  50.  
  51. /* Variables for Heath File Requester */
  52. char *str_filenam[100];
  53. char *str_cmdline[110];
  54. char *def_name[50] = "";
  55. char *def_dir[50] = "";
  56.  
  57.  
  58. /* Interface Viariables for Assembly Routines */
  59. volatile UBYTE *p0,*p1,*p2,*p3,*p4;
  60. volatile UWORD cnt;
  61. volatile ULONG v1;
  62.  
  63. typedef struct DefWindow /*might be scanner dependent*/
  64. {  ULONG dummy1;
  65.    UWORD dummy2;
  66.    UWORD wpsize;
  67.    UBYTE winnr;
  68.    UBYTE dummy3;
  69.    UWORD resx;
  70.    UWORD resy;
  71.    UWORD cornerx;
  72.    UWORD cornery;
  73.    UWORD width;
  74.    UWORD height;
  75.    UBYTE dummy4;
  76.    UBYTE threshold;
  77.    UBYTE size;     /* temporary storage, ignored by scanner */
  78.    UBYTE halftone;
  79.    UBYTE bitspixel;
  80.    UBYTE dummy5;
  81.    UWORD dummy6;
  82.    ULONG dummy7;
  83. };
  84.  
  85. typedef struct SCSICmd  /* included here because */
  86. {   UWORD  *scsi_Data;    /* header file missing in Aztec C 5.0 */    
  87.     ULONG   scsi_Length;    
  88.     ULONG   scsi_Actual;    
  89.     UBYTE  *scsi_Command;    
  90.     UWORD   scsi_CmdLength;    
  91.     UWORD   scsi_CmdActual;    
  92.     UBYTE   scsi_Flags;        
  93.     UBYTE   scsi_Status;    
  94. };
  95.  
  96.  
  97. struct DefWindow winpar= /*default values */
  98. {  0,0,32,    /*dummy1, dummy2, wpsize*/
  99.    1,0,        /*winnr, dummy3*/
  100.    200,200,    /*resx, resy*/
  101.    0,0,0,0,    /*cornerx, cornery, width, height*/
  102.    0,32,5,    /*dummy4, threshold, size*/
  103.    0,1,        /*halftone, bitspixel*/
  104.    0,0,0    /*dummy5,6,7*/
  105. };
  106.  
  107. /* Scanner specific sizes and commands */
  108.  
  109. UWORD cornerxval[]={  22,  33,  44, 266, 399, 535};
  110. UWORD corneryval[]={   6,   6,   6,   6,   6,   6};
  111. UWORD widthval[]=  {1164,2496,3312,1168,1760,2336};
  112. UWORD heightval[]= {2336,3504,4672,1656,2484,3312};
  113.  
  114. UBYTE cmd_scan[]={0x1b,ST400LUN,0,0,0,0};
  115. UBYTE cmd_read[]={0x28,ST400LUN,0,0,0,0,0,0,0,0};
  116. UBYTE cmd_dwin[]={0x24,ST400LUN,0,0,0,0,0,0,40,0};
  117. UBYTE cmd_mdon[]={0x15,ST400LUN,0,0,0,128};
  118. UBYTE cmd_mdoff[]={0x15,ST400LUN,0,0,0,0};
  119. UBYTE cmd_inqu[]={0x12,ST400LUN,0,0,96,0};
  120.  
  121.  
  122. int prefdatei,sdatei,qdatei,wdatei;
  123. unsigned int i;  
  124. unsigned int len;
  125. unsigned char a;
  126.  
  127. /* IFF-ILBM Constants */
  128.  
  129. UBYTE iff_cmap_bw[]=
  130. {'C','M','A','P',0,0,0,6,0,0,0,255,255,255};
  131.  
  132. UBYTE iff_cmap_gray[]=
  133. {'C','M','A','P',0,0,0,48,0,0,0,16,16,16,32,32,32,48,48,48,64,64,64,80,80,80,
  134.  96,96,96,112,112,112,128,128,128,144,144,144,160,160,160,176,176,176,
  135.  192,192,192,208,208,208,224,224,224,240,240,240};
  136.  
  137. ULONG iff_head[]={FORM,0,ILBM,BMHD,20,0,0,0,0x00000101,0x02800200};
  138.  
  139. ULONG iff_body[]={BODY,0};
  140.  
  141.  
  142. /* Struktures for Windows and Menus */
  143.  
  144. struct TextAttr textattr=
  145. { "topaz.FONT",
  146.    8,
  147.    FS_NORMAL,
  148.    FPF_ROMFONT
  149. };
  150.  
  151. /* Struktures for Gadgets */
  152.  
  153. USHORT zvect2[]={0,0, 0,12, 12,12, 12,0, 0,0,
  154.                 -1,-1, -1,11, 11,11, 11,-1, -1,-1};
  155. USHORT zvect1[]={0,0, 0,10, 10,10, 10,0, 0,0};
  156.  
  157. USHORT imagedataf[]=
  158. { 0xfff0,
  159.   0xfff0,
  160.   0xc030,
  161.   0xdff0,
  162.   0xdff0,
  163.   0xc0f0,
  164.   0xdff0,
  165.   0xdff0,
  166.   0xdff0,
  167.   0xdff0,
  168.   0xfff0,
  169.   0xfff0,
  170.   0x0000,
  171.   0x0000,
  172.   0x0000,
  173.   0x0000,
  174.   0x0000,
  175.   0x0000,
  176.   0x0000,
  177.   0x0000,
  178.   0x0000,
  179.   0x0000,
  180.   0x0000,
  181.   0x0000,
  182.   0x0000,
  183.   0x0000,
  184.   0x0000,
  185.   0x0000,
  186.   0x0000,
  187.   0x0000,
  188.   0x0000,
  189.   0x0000,
  190.   0x0000,
  191.   0x0000,
  192.   0x0000,
  193.   0x0000,
  194.   0x0000,
  195.   0x0000,
  196.   0x0000,
  197.   0x0000,
  198.   0x0000,
  199.   0x0000,
  200.   0x0000,
  201.   0x0000,
  202.   0x0000,
  203.   0x0000,
  204.   0x0000,
  205.   0x0000,
  206.   0x0000,
  207.   0x0000,
  208.   0x0000,
  209.   0x0000,
  210.   0x0000,
  211.   0x0000,
  212.   0x0000,
  213.   0x0000,
  214.   0x0000,
  215.   0x0000,
  216.   0x0000,
  217.   0x0000,
  218.   0x0000,
  219.   0x0000,
  220.   0x0000,
  221.   0x0000};
  222. USHORT imagedataz[]=
  223. { 0xfff0,
  224.   0xfff0,
  225.   0xc030,
  226.   0xff70,
  227.   0xfef0,
  228.   0xfdf0,
  229.   0xfbf0,
  230.   0xf7f0,
  231.   0xeff0,
  232.   0xc030,
  233.   0xfff0,
  234.   0xfff0,
  235.   0x0000,
  236.   0x0000,
  237.   0x0000,
  238.   0x0000,
  239.   0x0000,
  240.   0x0000,
  241.   0x0000,
  242.   0x0000,
  243.   0x0000,
  244.   0x0000,
  245.   0x0000,
  246.   0x0000,
  247.   0x0000,
  248.   0x0000,
  249.   0x0000,
  250.   0x0000,
  251.   0x0000,
  252.   0x0000,
  253.   0x0000,
  254.   0x0000,
  255.   0x0000,
  256.   0x0000,
  257.   0x0000,
  258.   0x0000,
  259.   0x0000,
  260.   0x0000,
  261.   0x0000,
  262.   0x0000,
  263.   0x0000,
  264.   0x0000,
  265.   0x0000,
  266.   0x0000,
  267.   0x0000,
  268.   0x0000,
  269.   0x0000,
  270.   0x0000,
  271.   0x0000,
  272.   0x0000,
  273.   0x0000,
  274.   0x0000,
  275.   0x0000,
  276.   0x0000,
  277.   0x0000,
  278.   0x0000,
  279.   0x0000,
  280.   0x0000,
  281.   0x0000,
  282.   0x0000,
  283.   0x0000,
  284.   0x0000,
  285.   0x0000,
  286.   0x0000};
  287.  
  288. struct Image fullimage=
  289. { 0,0,
  290.   16,16,4,
  291.   NULL,
  292.   15,0,
  293.   NULL
  294. };
  295.  
  296. struct Image zoomimage=
  297. { 0,0,
  298.   16,16,4,
  299.   NULL,
  300.   15,0,
  301.   NULL
  302. };
  303.  
  304. struct Border vborder;
  305.  
  306. struct Border hborder;
  307.  
  308.  
  309. struct PropInfo hprop=
  310. { FREEHORIZ|AUTOKNOB,
  311.   0,0,
  312.   0xffff,0xffff,
  313.   0,0,
  314.   0,0,
  315.   0,0
  316. };
  317.  
  318. struct PropInfo vprop=
  319. { FREEVERT|AUTOKNOB,
  320.   0,0,
  321.   0xffff,0xffff,
  322.   0,0,
  323.   0,0,
  324.   0,0
  325. };
  326.  
  327. struct Gadget hgad=
  328. { NULL,
  329.   0,483,
  330.   624,15,
  331.   0,
  332.   GADGIMMEDIATE|RELVERIFY,
  333.   PROPGADGET,
  334.   &hborder,
  335.   NULL,
  336.   NULL,
  337.   0,
  338.   &hprop,
  339.   2,
  340.   NULL
  341. };
  342.  
  343. struct Gadget vgad=
  344. { &hgad,
  345.   625,11,
  346.   15,470,
  347.   0,
  348.   GADGIMMEDIATE|RELVERIFY,
  349.   PROPGADGET,
  350.   &vborder,
  351.   NULL,
  352.   NULL,
  353.   0,
  354.   &vprop,
  355.   1,
  356.   NULL
  357. };
  358.  
  359. struct Gadget zgad=
  360. { &vgad,
  361.   627,485,
  362.   12,12,
  363.   GADGHIMAGE|GADGIMAGE,
  364.   TOGGLESELECT|GADGIMMEDIATE|RELVERIFY,
  365.   BOOLGADGET,
  366.   &fullimage,
  367.   &zoomimage,
  368.   NULL,
  369.   0,
  370.   NULL,
  371.   0,
  372.   NULL
  373. };
  374.  
  375. /* Struktures for Window and Screen */
  376.  
  377. struct NewScreen ns=
  378. {
  379.   0,0,
  380.   640,512,
  381.   4,
  382.   8,1,
  383.   HIRES|LACE,
  384.   CUSTOMSCREEN,
  385.   &textattr,
  386.   (UBYTE *)"Siemens ST 400 Scanner Program © FChK 1991",
  387.   NULL,
  388.   NULL
  389. };
  390.  
  391. struct NewWindow nw=
  392. { 0,10,
  393.   640,500,
  394.   8,1,
  395.   CLOSEWINDOW|MENUPICK|GADGETUP|GADGETDOWN|MOUSEBUTTONS,
  396.   WINDOWCLOSE|BACKDROP|BORDERLESS|ACTIVATE|SMART_REFRESH,
  397.   &zgad,
  398.   NULL,
  399.   (UBYTE *)"",
  400.   NULL,
  401.   NULL,
  402.   0,0,
  403.   0,0,
  404.   CUSTOMSCREEN
  405. };
  406.  
  407. /* AHA-Requester Strukturen */
  408.  
  409. struct IntuiText text_na=
  410. { 0,1,
  411.   JAM2,
  412.   4,7,
  413.   &textattr,
  414.   (UBYTE *)"",
  415.   NULL
  416. };
  417.  
  418. struct IntuiText text_aha=
  419. { 0,1,
  420.   JAM2,
  421.   7,4,
  422.   &textattr,
  423.   (UBYTE *)"OK!",
  424.   NULL
  425. };
  426.  
  427.  
  428. /* Menüdaten und -strukturen */
  429.  
  430. struct IntuiText text5f=
  431. { 0,1,
  432.   JAM2,
  433.   1,1,
  434.   &textattr,
  435.   (UBYTE *)"   15",
  436.   NULL
  437. };
  438.  
  439. struct IntuiText text5e=
  440. { 0,1,
  441.   JAM2,
  442.   1,1,
  443.   &textattr,
  444.   (UBYTE *)"   14",
  445.   NULL
  446. };
  447.  
  448. struct IntuiText text5d=
  449. { 0,1,
  450.   JAM2,
  451.   1,1,
  452.   &textattr,
  453.   (UBYTE *)"   13",
  454.   NULL
  455. };
  456.  
  457. struct IntuiText text5c=
  458. { 0,1,
  459.   JAM2,
  460.   1,1,
  461.   &textattr,
  462.   (UBYTE *)"   12",
  463.   NULL
  464. };
  465.  
  466. struct IntuiText text5b=
  467. { 0,1,
  468.   JAM2,
  469.   1,1,
  470.   &textattr,
  471.   (UBYTE *)"   11",
  472.   NULL
  473. };
  474.  
  475. struct IntuiText text5a=
  476. { 0,1,
  477.   JAM2,
  478.   1,1,
  479.   &textattr,
  480.   (UBYTE *)"   10",
  481.   NULL
  482. };
  483.  
  484. struct IntuiText text59=
  485. { 0,1,
  486.   JAM2,
  487.   1,1,
  488.   &textattr,
  489.   (UBYTE *)"    9",
  490.   NULL
  491. };
  492.  
  493. struct IntuiText text58=
  494. { 0,1,
  495.   JAM2,
  496.   1,1,
  497.   &textattr,
  498.   (UBYTE *)"    8",
  499.   NULL
  500. };
  501.  
  502. struct IntuiText text57=
  503. { 0,1,
  504.   JAM2,
  505.   1,1,
  506.   &textattr,
  507.   (UBYTE *)"    7",
  508.   NULL
  509. };
  510.  
  511. struct IntuiText text56=
  512. { 0,1,
  513.   JAM2,
  514.   1,1,
  515.   &textattr,
  516.   (UBYTE *)"    6",
  517.   NULL
  518. };
  519.  
  520. struct IntuiText text55=
  521. { 0,1,
  522.   JAM2,
  523.   1,1,
  524.   &textattr,
  525.   (UBYTE *)"    5",
  526.   NULL
  527. };
  528.  
  529. struct IntuiText text54=
  530. { 0,1,
  531.   JAM2,
  532.   1,1,
  533.   &textattr,
  534.   (UBYTE *)"    4",
  535.   NULL
  536. };
  537.  
  538. struct IntuiText text53=
  539. { 0,1,
  540.   JAM2,
  541.   1,1,
  542.   &textattr,
  543.   (UBYTE *)"    3",
  544.   NULL
  545. };
  546.  
  547. struct IntuiText text52=
  548. { 0,1,
  549.   JAM2,
  550.   1,1,
  551.   &textattr,
  552.   (UBYTE *)"    2",
  553.   NULL
  554. };
  555.  
  556. struct IntuiText text51=
  557. { 0,1,
  558.   JAM2,
  559.   1,1,
  560.   &textattr,
  561.   (UBYTE *)"    1",
  562.   NULL
  563. };
  564.  
  565. struct IntuiText text50=
  566. { 0,1,
  567.   JAM2,
  568.   1,1,
  569.   &textattr,
  570.   (UBYTE *)"    0",
  571.   NULL
  572. };
  573.  
  574. struct IntuiText text41=
  575. { 0,1,
  576.   JAM2,
  577.   1,1,
  578.   &textattr,
  579.   (UBYTE *)"   16",
  580.   NULL
  581. };
  582.  
  583. struct IntuiText text40=
  584. { 0,1,
  585.   JAM2,
  586.   1,1,
  587.   &textattr,
  588.   (UBYTE *)"    2",
  589.   NULL
  590. };
  591.  
  592. struct IntuiText text31=
  593. { 0,1,
  594.   JAM2,
  595.   1,1,
  596.   &textattr,
  597.   (UBYTE *)"   DIN A4",
  598.   NULL
  599. };
  600.  
  601. struct IntuiText text30=
  602. { 0,1,
  603.   JAM2,
  604.   1,1,
  605.   &textattr,
  606.   (UBYTE *)"   DIN A5",
  607.   NULL
  608. };
  609.  
  610. struct IntuiText text22=
  611. { 0,1,
  612.   JAM2,
  613.   1,1,
  614.   &textattr,
  615.   (UBYTE *)"   400 DPI",
  616.   NULL
  617. };
  618.  
  619. struct IntuiText text21=
  620. { 0,1,
  621.   JAM2,
  622.   1,1,
  623.   &textattr,
  624.   (UBYTE *)"   300 DPI",
  625.   NULL
  626. };
  627.  
  628. struct IntuiText text20=
  629. { 0,1,
  630.   JAM2,
  631.   1,1,
  632.   &textattr,
  633.   (UBYTE *)"   200 DPI",
  634.   NULL
  635. };
  636.  
  637. struct IntuiText text15=
  638. { 0,1,
  639.   JAM2,
  640.   1,1,
  641.   &textattr,
  642.   (UBYTE *)"Exit Program",
  643.   NULL
  644. };
  645.  
  646. struct IntuiText text14=
  647. { 0,1,
  648.   JAM2,
  649.   1,1,
  650.   &textattr,
  651.   (UBYTE *)"Test Scanner",
  652.   NULL
  653. };
  654.  
  655. struct IntuiText text13=
  656. { 0,1,
  657.   JAM2,
  658.   1,1,
  659.   &textattr,
  660.   (UBYTE *)"Dither Ord",
  661.   NULL
  662. };
  663.  
  664. struct IntuiText text12=
  665. { 0,1,
  666.   JAM2,
  667.   1,1,
  668.   &textattr,
  669.   (UBYTE *)"Dither F-S",
  670.   NULL
  671. };
  672.  
  673. struct IntuiText text11=
  674. { 0,1,
  675.   JAM2,
  676.   1,1,
  677.   &textattr,
  678.   (UBYTE *)"Save IFF",
  679.   NULL
  680. };
  681.  
  682. struct IntuiText text10=
  683. { 0,1,
  684.   JAM2,
  685.   1,1,
  686.   &textattr,
  687.   (UBYTE *)"Read Scanner",
  688.   NULL
  689. };
  690.  
  691. struct IntuiText text03=
  692. { 0,1,
  693.   JAM2,
  694.   1,1,
  695.   &textattr,
  696.   (UBYTE *)"Not For Commercial Use",
  697.   NULL
  698. };
  699.  
  700. struct IntuiText text02=
  701. { 0,1,
  702.   JAM2,
  703.   1,1,
  704.   &textattr,
  705.   (UBYTE *)"Version 1.00",
  706.   NULL
  707. };
  708.  
  709.  
  710. struct IntuiText text01=
  711. { 0,1,
  712.   JAM2,
  713.   1,1,
  714.   &textattr,
  715.   (UBYTE *)"Frank-Christian Krügel",
  716.   NULL
  717. };
  718.  
  719. struct IntuiText text00=
  720. { 0,1,
  721.   JAM2,
  722.   1,1,
  723.   &textattr,
  724.   (UBYTE *)"Program written by",
  725.   NULL
  726. };
  727.  
  728. struct MenuItem item5f=
  729. { NULL,
  730.   40,70,
  731.   40,10,
  732.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  733.   0x7fff,
  734.   (APTR)&text5f,
  735.   NULL,
  736.   0, 
  737.   NULL,
  738.   0
  739. };
  740.  
  741. struct MenuItem item5e=
  742. { &item5f,
  743.   40,60,
  744.   40,10,
  745.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  746.   0xbfff,
  747.   (APTR)&text5e,
  748.   NULL,
  749.   0, 
  750.   NULL,
  751.   0
  752. };
  753.  
  754. struct MenuItem item5d=
  755. { &item5e,
  756.   40,50,
  757.   40,10,
  758.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  759.   0xdfff,
  760.   (APTR)&text5d,
  761.   NULL,
  762.   0, 
  763.   NULL,
  764.   0
  765. };
  766.  
  767. struct MenuItem item5c=
  768. { &item5d,
  769.   40,40,
  770.   40,10,
  771.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  772.   0xefff,
  773.   (APTR)&text5c,
  774.   NULL,
  775.   0, 
  776.   NULL,
  777.   0
  778. };
  779.  
  780. struct MenuItem item5b=
  781. { &item5c,
  782.   40,30,
  783.   40,10,
  784.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  785.   0xf7ff,
  786.   (APTR)&text5b,
  787.   NULL,
  788.   0, 
  789.   NULL,
  790.   0
  791. };
  792.  
  793. struct MenuItem item5a=
  794. { &item5b,
  795.   40,20,
  796.   40,10,
  797.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  798.   0xfbff,
  799.   (APTR)&text5a,
  800.   NULL,
  801.   0, 
  802.   NULL,
  803.   0
  804. };
  805.  
  806. struct MenuItem item59=
  807. { &item5a,
  808.   40,10,
  809.   40,10,
  810.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  811.   0xfdff,
  812.   (APTR)&text59,
  813.   NULL,
  814.   0, 
  815.   NULL,
  816.   0
  817. };
  818.  
  819. struct MenuItem item58=
  820. { &item59,
  821.   40,0,
  822.   40,10,
  823.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT|CHECKED,
  824.   0xfeff,
  825.   (APTR)&text58,
  826.   NULL,
  827.   0, 
  828.   NULL,
  829.   0
  830. };
  831.  
  832. struct MenuItem item57=
  833. { &item58,
  834.   0,70,
  835.   40,10,
  836.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  837.   0xff7f,
  838.   (APTR)&text57,
  839.   NULL,
  840.   0, 
  841.   NULL,
  842.   0
  843. };
  844.  
  845. struct MenuItem item56=
  846. { &item57,
  847.   0,60,
  848.   40,10,
  849.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  850.   0xffbf,
  851.   (APTR)&text56,
  852.   NULL,
  853.   0, 
  854.   NULL,
  855.   0
  856. };
  857.  
  858. struct MenuItem item55=
  859. { &item56,
  860.   0,50,
  861.   40,10,
  862.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  863.   0xffdf,
  864.   (APTR)&text55,
  865.   NULL,
  866.   0, 
  867.   NULL,
  868.   0
  869. };
  870.  
  871. struct MenuItem item54=
  872. { &item55,
  873.   0,40,
  874.   40,10,
  875.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  876.   0xffef,
  877.   (APTR)&text54,
  878.   NULL,
  879.   0, 
  880.   NULL,
  881.   0
  882. };
  883.  
  884. struct MenuItem item53=
  885. { &item54,
  886.   0,30,
  887.   40,10,
  888.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  889.   0xfff7,
  890.   (APTR)&text53,
  891.   NULL,
  892.   0, 
  893.   NULL,
  894.   0
  895. };
  896.  
  897. struct MenuItem item52=
  898. { &item53,
  899.   0,20,
  900.   40,10,
  901.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  902.   0xfffb,
  903.   (APTR)&text52,
  904.   NULL,
  905.   0, 
  906.   NULL,
  907.   0
  908. };
  909.  
  910. struct MenuItem item51=
  911. { &item52,
  912.   0,10,
  913.   40,10,
  914.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  915.   0xfffd,
  916.   (APTR)&text51,
  917.   NULL,
  918.   0, 
  919.   NULL,
  920.   0
  921. };
  922.  
  923. struct MenuItem item50=
  924. { &item51,
  925.   0,0,
  926.   40,10,
  927.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT,
  928.   0xfffe,
  929.   (APTR)&text50,
  930.   NULL,
  931.   0, 
  932.   NULL,
  933.   0
  934. };
  935.  
  936.  
  937. struct MenuItem item41=
  938. { NULL,
  939.   0,10,
  940.   80,10,
  941.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT|COMMSEQ,
  942.   0xfffd,
  943.   (APTR)&text41,
  944.   NULL,
  945.   'g', 
  946.   NULL,
  947.   0
  948. };
  949.  
  950. struct MenuItem item40=
  951. { &item41,
  952.   0,0,
  953.   80,10,
  954.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT|CHECKED|COMMSEQ,
  955.   0xfffe,
  956.   (APTR)&text40,
  957.   NULL,
  958.   'z', 
  959.   NULL,
  960.   0
  961. };
  962.  
  963.  
  964. struct MenuItem item31=
  965. { NULL,
  966.   0,10,
  967.   112,10,
  968.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT|COMMSEQ,
  969.   0xfffd,
  970.   (APTR)&text31,
  971.   NULL,
  972.   'b', 
  973.   NULL,
  974.   0
  975. };
  976.  
  977. struct MenuItem item30=
  978. { &item31,
  979.   0,0,
  980.   112,10,
  981.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT|CHECKED|COMMSEQ,
  982.   0xfffe,
  983.   (APTR)&text30,
  984.   NULL,
  985.   'a', 
  986.   NULL,
  987.   0
  988. };
  989.  
  990.  
  991. struct MenuItem item22=
  992. { NULL,
  993.   0,20,
  994.   120,10,
  995.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT|COMMSEQ,
  996.   0xfffb,
  997.   (APTR)&text22,
  998.   NULL,
  999.   '3', 
  1000.   NULL,
  1001.   0
  1002. };
  1003.  
  1004. struct MenuItem item21=
  1005. { &item22,
  1006.   0,10,
  1007.   120,10,
  1008.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT|COMMSEQ,
  1009.   0xfffd,
  1010.   (APTR)&text21,
  1011.   NULL,
  1012.   '3', 
  1013.   NULL,
  1014.   0
  1015. };
  1016.  
  1017.  
  1018. struct MenuItem item20=
  1019. { &item21,
  1020.   0,0,
  1021.   120,10,
  1022.   ITEMTEXT|HIGHCOMP|ITEMENABLED|CHECKIT|CHECKED|COMMSEQ,
  1023.   0xfffe,
  1024.   (APTR)&text20,
  1025.   NULL,
  1026.   '2', 
  1027.   NULL,
  1028.   0
  1029. };
  1030.  
  1031.  
  1032. struct MenuItem item15=
  1033. { NULL,
  1034.   0,50,
  1035.   176,10,
  1036.   ITEMTEXT|HIGHCOMP|ITEMENABLED|COMMSEQ,
  1037.   0,
  1038.   (APTR)&text15,
  1039.   NULL,
  1040.   'x',
  1041.   NULL,
  1042.   0
  1043. };
  1044.  
  1045. struct MenuItem item14=
  1046. { &item15,
  1047.   0,40,
  1048.   176,10,
  1049.   ITEMTEXT|HIGHCOMP|ITEMENABLED|COMMSEQ,
  1050.   0,
  1051.   (APTR)&text14,
  1052.   NULL,
  1053.   't',
  1054.   NULL,
  1055.   0
  1056. };
  1057.  
  1058. struct MenuItem item13=
  1059. { &item14,
  1060.   0,30,
  1061.   176,10,
  1062.   ITEMTEXT|HIGHCOMP|ITEMENABLED,
  1063.   0,
  1064.   (APTR)&text13,
  1065.   NULL,
  1066.   0,
  1067.   NULL,
  1068.   0
  1069. };
  1070.  
  1071. struct MenuItem item12=
  1072. { &item13,
  1073.   0,20,
  1074.   176,10,
  1075.   ITEMTEXT|HIGHCOMP|ITEMENABLED,
  1076.   0,
  1077.   (APTR)&text12,
  1078.   NULL,
  1079.   0,
  1080.   NULL,
  1081.   0
  1082. };
  1083.  
  1084. struct MenuItem item11=
  1085. { &item12,
  1086.   0,10,
  1087.   176,10,
  1088.   ITEMTEXT|HIGHCOMP|ITEMENABLED|COMMSEQ,
  1089.   0,
  1090.   (APTR)&text11,
  1091.   NULL,
  1092.   's',
  1093.   NULL,
  1094.   0
  1095. };
  1096.     
  1097. struct MenuItem item10=
  1098. { &item11,
  1099.   0,0,
  1100.   176,10,
  1101.   ITEMTEXT|HIGHCOMP|ITEMENABLED|COMMSEQ,
  1102.   0,
  1103.   (APTR)&text10,
  1104.   NULL,
  1105.   'r',
  1106.   NULL,
  1107.   0
  1108. };
  1109.  
  1110. struct MenuItem item03=
  1111. { NULL,
  1112.   0,30,
  1113.   160,10,
  1114.   ITEMTEXT|HIGHNONE|ITEMENABLED,
  1115.   0,
  1116.   (APTR)&text03,
  1117.   NULL,
  1118.   0,
  1119.   NULL,
  1120.   0
  1121. };
  1122.  
  1123. struct MenuItem item02=
  1124. { &item03,
  1125.   0,20,
  1126.   160,10,
  1127.   ITEMTEXT|HIGHNONE|ITEMENABLED,
  1128.   0,
  1129.   (APTR)&text02,
  1130.   NULL,
  1131.   0,
  1132.   NULL,
  1133.   0
  1134. };
  1135.  
  1136. struct MenuItem item01=
  1137. { &item02,
  1138.   0,10,
  1139.   160,10,
  1140.   ITEMTEXT|HIGHNONE|ITEMENABLED,
  1141.   0,
  1142.   (APTR)&text01,
  1143.   NULL,
  1144.   0,
  1145.   NULL,
  1146.   0
  1147. };
  1148.  
  1149. struct MenuItem item00=
  1150. { &item01,
  1151.   0,0,
  1152.   160,10,
  1153.   ITEMTEXT|HIGHNONE|ITEMENABLED,
  1154.   0,
  1155.   (APTR)&text00,
  1156.   NULL,
  1157.   0,
  1158.   NULL,
  1159.   0
  1160. };
  1161.  
  1162.  
  1163. struct Menu menu5=
  1164. { NULL,
  1165.   448,0,
  1166.   80,0,
  1167.   MENUENABLED,
  1168.   "Threshold",
  1169.   &item50
  1170. };
  1171.  
  1172. struct Menu menu4=
  1173. { &menu5,
  1174.   336,0,
  1175.   88,8,
  1176.   MENUENABLED,
  1177.   "Gray Scale",
  1178.   &item40
  1179. };
  1180.  
  1181. struct Menu menu3=
  1182. { &menu4,
  1183.   256,0,
  1184.   40,8,
  1185.   MENUENABLED,
  1186.   "Size",
  1187.   &item30
  1188. };
  1189.  
  1190. struct Menu menu2=
  1191. { &menu3,
  1192.   160,0,
  1193.   88,8,
  1194.   MENUENABLED,
  1195.   "Resolution",
  1196.   &item20
  1197. };
  1198.  
  1199. struct Menu menu1=
  1200. { &menu2,
  1201.   64,0,
  1202.   72,8,
  1203.   MENUENABLED,
  1204.   "Program",
  1205.   &item10
  1206. };
  1207.  
  1208. struct Menu menu0=
  1209. { &menu1,
  1210.   0,0,
  1211.   40,8,
  1212.   MENUENABLED,
  1213.   "Info",
  1214.   &item00
  1215. };
  1216.  
  1217. /* Program Code */
  1218.  
  1219. /* Call of the Heath File Requester */
  1220.  
  1221. USHORT filerequest(char *titel)
  1222. {
  1223. struct Process    *OurTask;
  1224. struct Window    *old_pr_WindowPtr;
  1225.  
  1226.     OurTask = (struct Process *)FindTask((char *)0L);
  1227.     old_pr_WindowPtr = OurTask->pr_WindowPtr;
  1228.     OurTask->pr_WindowPtr = win;
  1229.  
  1230.     if (get_fname(win,win->WScreen,"Choose File",def_name,def_dir)==NULL)
  1231.     { OurTask->pr_WindowPtr = old_pr_WindowPtr;
  1232.       return(0);
  1233.     }
  1234.     else
  1235.     {
  1236.       OurTask->pr_WindowPtr = old_pr_WindowPtr;
  1237.       strcpy(str_filenam,def_dir);
  1238.       rfnam(str_filenam,def_name);
  1239.       return(1);
  1240.     }
  1241. } 
  1242.  
  1243.  
  1244. void MessReq(UBYTE *string)
  1245. {  ULONG dummy;
  1246.    text_na.IText=string;
  1247.    dummy=(ULONG)AutoRequest(win,&text_na,NULL,&text_aha,NULL,NULL,400L,60L);
  1248. }
  1249.  
  1250. void NotAvailable()
  1251. {  MessReq((UBYTE *)"Funktion not available!");
  1252. }
  1253.  
  1254. UBYTE DoScsi(UBYTE *cmd, UWORD cmdlen, UWORD *data, ULONG datalen, UBYTE flags)
  1255. { struct SCSICmd scmd;
  1256.   scmd.scsi_Command=cmd;
  1257.   scmd.scsi_CmdLength=cmdlen;
  1258.   scmd.scsi_Data=data;
  1259.   scmd.scsi_Length=datalen;
  1260.   scmd.scsi_Flags=flags;
  1261.   diskreq->io_Length = sizeof(struct SCSICmd);
  1262.   diskreq->io_Data = &scmd;
  1263.   diskreq->io_Command = 28;
  1264.   DoIO(diskreq);
  1265.   return(scmd.scsi_Status);
  1266. }
  1267.  
  1268.  
  1269. void inquiry()
  1270. { UBYTE string[96],inq_txt[45];
  1271.  
  1272.   DoScsi(&cmd_inqu,6,(UWORD *)&string,96,DIR_READ);
  1273.   strncpy(&inq_txt[0],&string[8],41);
  1274.   MessReq(&inq_txt[0]);
  1275. }
  1276.  
  1277. void p64to16(UBYTE *ptr, UWORD size)
  1278. { UBYTE *p1,*p2;
  1279.   UWORD i;
  1280.  
  1281.   cnt=size;
  1282.   p0=ptr;
  1283. #asm
  1284.     movem.l    d0-d7/a0-a6,-(a7)
  1285.     move.w    _cnt,d7
  1286.     subq.w    #1,d7
  1287.     move.l    _p0,a0
  1288.     move.l    _p0,a1
  1289. slp:    move.w    (a0)+,d0
  1290.     lsr.w    #2,d0
  1291.     lsl.b    #4,d0
  1292.     lsr.w    #4,d0
  1293.     move.b    d0,(a1)+
  1294.     dbra    d7,slp
  1295.     movem.l (a7)+,d0-d7/a0-a6
  1296. #endasm
  1297. }
  1298.  
  1299. void clrscr(UBYTE *pl0, UBYTE *pl1, UBYTE *pl2, UBYTE *pl3)
  1300. { p1=pl0; p2=pl1; p3=pl2; p4=pl3;
  1301. #asm
  1302.     movem.l    d5-d7/a0-a6,-(a7)
  1303.     move.l    _p1,a1
  1304.     move.l    _p2,a2
  1305.     move.l    _p3,a3
  1306.     move.l    _p4,a4
  1307.     move.w    #469,d5
  1308. clrlp0:    move.w    #38,d7
  1309. clrlp1:    clr.w    (a1)+
  1310.     clr.w    (a2)+
  1311.     clr.w    (a3)+
  1312.     clr.w    (a4)+
  1313.     dbra    d7,clrlp1
  1314.     lea.l    2(a1),a1
  1315.     lea.l    2(a2),a2
  1316.     lea.l    2(a3),a3
  1317.     lea.l    2(a4),a4
  1318.     dbra    d5,clrlp0
  1319.     movem.l    (a7)+,d5-d7/a0-a6
  1320. #endasm
  1321. }
  1322.  
  1323. void bwview(UBYTE *vp, UBYTE *pl0, UBYTE *pl1, UBYTE *pl2, UBYTE *pl3, ULONG vinc) 
  1324. { p0=vp; p1=pl0; p2=pl1; p3=pl2; p4=pl3; v1=vinc;
  1325. #asm
  1326.     movem.l    d5-d7/a0-a6,-(a7)
  1327.     move.l    _p0,a0
  1328.     move.l    _p1,a1
  1329.     move.l    _p2,a2
  1330.     move.l    _p3,a3
  1331.     move.l    _p4,a4
  1332.     move.l    _v1,a5
  1333.     move.w    #469,d5
  1334. bwlp0:    move.l    a0,a6
  1335.     move.w    #38,d7
  1336. bwlp1:    move.w    (a6)+,d6
  1337.     move.w    d6,(a1)+
  1338.     clr.w    (a2)+
  1339.     clr.w    (a3)+
  1340.     clr.w    (a4)+
  1341.     dbra    d7,bwlp1
  1342.     lea.l    2(a1),a1
  1343.     lea.l    2(a2),a2
  1344.     lea.l    2(a3),a3
  1345.     lea.l    2(a4),a4
  1346.     adda.l    a5,a0
  1347.     dbra    d5,bwlp0
  1348.     movem.l    (a7)+,d5-d7/a0-a6
  1349. #endasm
  1350. }
  1351.  
  1352. void grayview(UBYTE *vp, UBYTE *pl0, UBYTE *pl1, UBYTE *pl2, UBYTE *pl3, ULONG vinc) 
  1353. { p0=vp; p1=pl0; p2=pl1; p3=pl2; p4=pl3; v1=vinc;
  1354. #asm
  1355.     movem.l    d0-d7/a0-a6,-(a7)
  1356.     move.l    _p0,a0
  1357.     move.l    _p1,a1
  1358.     move.l    _p2,a2
  1359.     move.l    _p3,a3
  1360.     move.l    _p4,a4
  1361.     move.l    _v1,a5
  1362.     move.l  #$10000000,d6
  1363.     move.w    #469,d5
  1364. grlp0:    move.l    a0,a6
  1365.     move.w    #77,d7
  1366. grlp1:    move.l    (a6)+,d0
  1367.     add.l    d6,d0
  1368.     lsl.l    #1,d0
  1369.     roxl.b    #1,d4
  1370.     lsl.l    #1,d0
  1371.     roxl.b    #1,d3
  1372.     lsl.l    #1,d0
  1373.     roxl.b    #1,d2
  1374.     lsl.l    #1,d0
  1375.     roxl.b    #1,d1
  1376.     add.l    d6,d0
  1377.     lsl.l    #1,d0
  1378.     roxl.b    #1,d4
  1379.     lsl.l    #1,d0
  1380.     roxl.b    #1,d3
  1381.     lsl.l    #1,d0
  1382.     roxl.b    #1,d2
  1383.     lsl.l    #1,d0
  1384.     roxl.b    #1,d1
  1385.     add.l    d6,d0
  1386.     lsl.l    #1,d0
  1387.     roxl.b    #1,d4
  1388.     lsl.l    #1,d0
  1389.     roxl.b    #1,d3
  1390.     lsl.l    #1,d0
  1391.     roxl.b    #1,d2
  1392.     lsl.l    #1,d0
  1393.     roxl.b    #1,d1
  1394.     add.l    d6,d0
  1395.     lsl.l    #1,d0
  1396.     roxl.b    #1,d4
  1397.     lsl.l    #1,d0
  1398.     roxl.b    #1,d3
  1399.     lsl.l    #1,d0
  1400.     roxl.b    #1,d2
  1401.     lsl.l    #1,d0
  1402.     roxl.b    #1,d1
  1403.     add.l    d6,d0
  1404.     lsl.l    #1,d0
  1405.     roxl.b    #1,d4
  1406.     lsl.l    #1,d0
  1407.     roxl.b    #1,d3
  1408.     lsl.l    #1,d0
  1409.     roxl.b    #1,d2
  1410.     lsl.l    #1,d0
  1411.     roxl.b    #1,d1
  1412.     add.l    d6,d0
  1413.     lsl.l    #1,d0
  1414.     roxl.b    #1,d4
  1415.     lsl.l    #1,d0
  1416.     roxl.b    #1,d3
  1417.     lsl.l    #1,d0
  1418.     roxl.b    #1,d2
  1419.     lsl.l    #1,d0
  1420.     roxl.b    #1,d1
  1421.     add.l    d6,d0
  1422.     lsl.l    #1,d0
  1423.     roxl.b    #1,d4
  1424.     lsl.l    #1,d0
  1425.     roxl.b    #1,d3
  1426.     lsl.l    #1,d0
  1427.     roxl.b    #1,d2
  1428.     lsl.l    #1,d0
  1429.     roxl.b    #1,d1
  1430.     add.l    d6,d0
  1431.     lsl.l    #1,d0
  1432.     roxl.b    #1,d4
  1433.     lsl.l    #1,d0
  1434.     roxl.b    #1,d3
  1435.     lsl.l    #1,d0
  1436.     roxl.b    #1,d2
  1437.     lsl.l    #1,d0
  1438.     roxl.b    #1,d1
  1439.     move.b    d1,(a1)+
  1440.     move.b    d2,(a2)+
  1441.     move.b    d3,(a3)+
  1442.     move.b    d4,(a4)+
  1443.     dbra    d7,grlp1
  1444.     lea.l    2(a1),a1
  1445.     lea.l    2(a2),a2
  1446.     lea.l    2(a3),a3
  1447.     lea.l    2(a4),a4
  1448.     adda.l    a5,a0
  1449.     dbra    d5,grlp0
  1450.     movem.l    (a7)+,d0-d7/a0-a6
  1451. #endasm
  1452. }
  1453.  
  1454. void vplanesep(UBYTE *vp, UBYTE *pl0, UBYTE *pl1, UBYTE *pl2, UBYTE *pl3, UWORD count) 
  1455. { p0=vp; p1=pl0; p2=pl1; p3=pl2; p4=pl3; cnt=count;
  1456. #asm
  1457.     movem.l    d0-d7/a0-a6,-(a7)
  1458.     move.w    _cnt,d7
  1459.     move.l    _p0,a0
  1460.     move.l    _p1,a1
  1461.     move.l    _p2,a2
  1462.     move.l    _p3,a3
  1463.     move.l    _p4,a4
  1464.     move.l  #$10000000,d6
  1465.      subq.w    #1,d7
  1466. vplp:    move.l    (a0)+,d0
  1467.     add.l    d6,d0
  1468.     lsl.l    #1,d0
  1469.     roxl.b    #1,d4
  1470.     lsl.l    #1,d0
  1471.     roxl.b    #1,d3
  1472.     lsl.l    #1,d0
  1473.     roxl.b    #1,d2
  1474.     lsl.l    #1,d0
  1475.     roxl.b    #1,d1
  1476.     add.l    d6,d0
  1477.     lsl.l    #1,d0
  1478.     roxl.b    #1,d4
  1479.     lsl.l    #1,d0
  1480.     roxl.b    #1,d3
  1481.     lsl.l    #1,d0
  1482.     roxl.b    #1,d2
  1483.     lsl.l    #1,d0
  1484.     roxl.b    #1,d1
  1485.     add.l    d6,d0
  1486.     lsl.l    #1,d0
  1487.     roxl.b    #1,d4
  1488.     lsl.l    #1,d0
  1489.     roxl.b    #1,d3
  1490.     lsl.l    #1,d0
  1491.     roxl.b    #1,d2
  1492.     lsl.l    #1,d0
  1493.     roxl.b    #1,d1
  1494.     add.l    d6,d0
  1495.     lsl.l    #1,d0
  1496.     roxl.b    #1,d4
  1497.     lsl.l    #1,d0
  1498.     roxl.b    #1,d3
  1499.     lsl.l    #1,d0
  1500.     roxl.b    #1,d2
  1501.     lsl.l    #1,d0
  1502.     roxl.b    #1,d1
  1503.     add.l    d6,d0
  1504.     lsl.l    #1,d0
  1505.     roxl.b    #1,d4
  1506.     lsl.l    #1,d0
  1507.     roxl.b    #1,d3
  1508.     lsl.l    #1,d0
  1509.     roxl.b    #1,d2
  1510.     lsl.l    #1,d0
  1511.     roxl.b    #1,d1
  1512.     add.l    d6,d0
  1513.     lsl.l    #1,d0
  1514.     roxl.b    #1,d4
  1515.     lsl.l    #1,d0
  1516.     roxl.b    #1,d3
  1517.     lsl.l    #1,d0
  1518.     roxl.b    #1,d2
  1519.     lsl.l    #1,d0
  1520.     roxl.b    #1,d1
  1521.     add.l    d6,d0
  1522.     lsl.l    #1,d0
  1523.     roxl.b    #1,d4
  1524.     lsl.l    #1,d0
  1525.     roxl.b    #1,d3
  1526.     lsl.l    #1,d0
  1527.     roxl.b    #1,d2
  1528.     lsl.l    #1,d0
  1529.     roxl.b    #1,d1
  1530.     add.l    d6,d0
  1531.     lsl.l    #1,d0
  1532.     roxl.b    #1,d4
  1533.     lsl.l    #1,d0
  1534.     roxl.b    #1,d3
  1535.     lsl.l    #1,d0
  1536.     roxl.b    #1,d2
  1537.     lsl.l    #1,d0
  1538.     roxl.b    #1,d1
  1539.     move.b    d1,(a1)+
  1540.     move.b    d2,(a2)+
  1541.     move.b    d3,(a3)+
  1542.     move.b    d4,(a4)+
  1543.     dbra    d7,vplp
  1544.     movem.l    (a7)+,d0-d7/a0-a6
  1545. #endasm
  1546. }
  1547.  
  1548. void fplanesep(UBYTE *vp, UBYTE *pl0, UBYTE *pl1, UBYTE *pl2, UBYTE *pl3, UWORD count) 
  1549. { p0=vp; p1=pl0; p2=pl1; p3=pl2; p4=pl3; cnt=count;
  1550. #asm
  1551.     movem.l    d0-d7/a0-a6,-(a7)
  1552.     move.w    _cnt,d7
  1553.     move.l    _p0,a0
  1554.     move.l    _p1,a1
  1555.     move.l    _p2,a2
  1556.     move.l    _p3,a3
  1557.     move.l    _p4,a4
  1558.      subq.w    #1,d7
  1559. fplp:    move.l    (a0)+,d0
  1560.     lsl.l    #1,d0
  1561.     roxl.b    #1,d4
  1562.     lsl.l    #1,d0
  1563.     roxl.b    #1,d3
  1564.     lsl.l    #1,d0
  1565.     roxl.b    #1,d2
  1566.     lsl.l    #1,d0
  1567.     roxl.b    #1,d1
  1568.     lsl.l    #1,d0
  1569.     roxl.b    #1,d4
  1570.     lsl.l    #1,d0
  1571.     roxl.b    #1,d3
  1572.     lsl.l    #1,d0
  1573.     roxl.b    #1,d2
  1574.     lsl.l    #1,d0
  1575.     roxl.b    #1,d1
  1576.     lsl.l    #1,d0
  1577.     roxl.b    #1,d4
  1578.     lsl.l    #1,d0
  1579.     roxl.b    #1,d3
  1580.     lsl.l    #1,d0
  1581.     roxl.b    #1,d2
  1582.     lsl.l    #1,d0
  1583.     roxl.b    #1,d1
  1584.     lsl.l    #1,d0
  1585.     roxl.b    #1,d4
  1586.     lsl.l    #1,d0
  1587.     roxl.b    #1,d3
  1588.     lsl.l    #1,d0
  1589.     roxl.b    #1,d2
  1590.     lsl.l    #1,d0
  1591.     roxl.b    #1,d1
  1592.     lsl.l    #1,d0
  1593.     roxl.b    #1,d4
  1594.     lsl.l    #1,d0
  1595.     roxl.b    #1,d3
  1596.     lsl.l    #1,d0
  1597.     roxl.b    #1,d2
  1598.     lsl.l    #1,d0
  1599.     roxl.b    #1,d1
  1600.     lsl.l    #1,d0
  1601.     roxl.b    #1,d4
  1602.     lsl.l    #1,d0
  1603.     roxl.b    #1,d3
  1604.     lsl.l    #1,d0
  1605.     roxl.b    #1,d2
  1606.     lsl.l    #1,d0
  1607.     roxl.b    #1,d1
  1608.     lsl.l    #1,d0
  1609.     roxl.b    #1,d4
  1610.     lsl.l    #1,d0
  1611.     roxl.b    #1,d3
  1612.     lsl.l    #1,d0
  1613.     roxl.b    #1,d2
  1614.     lsl.l    #1,d0
  1615.     roxl.b    #1,d1
  1616.     lsl.l    #1,d0
  1617.     roxl.b    #1,d4
  1618.     lsl.l    #1,d0
  1619.     roxl.b    #1,d3
  1620.     lsl.l    #1,d0
  1621.     roxl.b    #1,d2
  1622.     lsl.l    #1,d0
  1623.     roxl.b    #1,d1
  1624.     not.b    d1
  1625.     not.b    d2
  1626.     not.b    d3
  1627.     not.b    d4
  1628.     move.b    d1,(a1)+
  1629.     move.b    d2,(a2)+
  1630.     move.b    d3,(a3)+
  1631.     move.b    d4,(a4)+
  1632.     dbra    d7,fplp
  1633.     movem.l    (a7)+,d0-d7/a0-a6
  1634. #endasm
  1635. }
  1636.  
  1637. void scan()
  1638. { ULONG memsize,blsize;
  1639.   short tabindex,blocks,rest,i,glin,rlin;
  1640.   UBYTE *rdptr;
  1641.  
  1642.   if (memptr) free(memptr);
  1643.   memneed=0;
  1644.   tabindex=((winpar.resx/100)-2)+(winpar.size-4)*3;
  1645.   winpar.cornerx=cornerxval[tabindex];
  1646.   winpar.cornery=corneryval[tabindex];
  1647.   winpar.width=widthval[tabindex];
  1648.   winpar.height=heightval[tabindex];
  1649.   memsize=(winpar.halftone)?((ULONG)winpar.width*(ULONG)winpar.height)>>1:
  1650.                             ((ULONG)winpar.width*(ULONG)winpar.height)>>3;
  1651.   if ((memptr=(UBYTE*)malloc(memsize))==NULL) 
  1652.     MessReq((UBYTE*)"Nicht genug Speicher für diese Einstellung!");
  1653.   else 
  1654.   { memneed=memsize;
  1655.     memwidth=winpar.width;
  1656.     memheight=winpar.height;
  1657.     memgray=winpar.halftone;
  1658.     rdptr=memptr;
  1659.     if (!(winpar.halftone))
  1660.     { DoScsi(&cmd_mdon,6,NULL,0,0);
  1661.       Delay(100);
  1662.       DoScsi(&cmd_dwin,10,&winpar,40,DIR_WRITE);
  1663.       DoScsi(&cmd_scan,6,NULL,0,0);
  1664.       blocks=memsize/0x8000;
  1665.       rest=memsize%0x8000;
  1666.       cmd_read[7]=128; cmd_read[8]=0;
  1667.       for (i=0;i<blocks;i++) 
  1668.       { DoScsi(&cmd_read,10,rdptr,0x8000,DIR_READ);
  1669.         rdptr+=0x8000;
  1670.       }
  1671.       cmd_read[7]=(rest>>8)&0xff; cmd_read[8]=rest&0xff;
  1672.       DoScsi(&cmd_read,10,rdptr,rest,DIR_READ);
  1673.       rdptr+=rest;
  1674.     }
  1675.     else
  1676.     { glin=winpar.height;
  1677.       rlin=0x200000L/(ULONG)winpar.width; 
  1678.       do 
  1679.       { if (rlin>glin) rlin=glin;
  1680.         winpar.height=rlin;
  1681.         glin-=rlin;
  1682.         DoScsi(&cmd_mdon,6,NULL,0,0);
  1683.         Delay(100);
  1684.         DoScsi(&cmd_dwin,10,&winpar,40,DIR_WRITE);
  1685.         DoScsi(&cmd_scan,6,NULL,0,0);
  1686.     winpar.cornery+=rlin;
  1687.         blsize=((ULONG)winpar.height*(ULONG)winpar.width)>>1;
  1688.         blocks=blsize/0x4000;
  1689.         rest=blsize%0x4000;
  1690.         cmd_read[7]=128; cmd_read[8]=0;
  1691.         for (i=0;i<blocks;i++) 
  1692.         { DoScsi(&cmd_read,10,rdptr,0x8000,DIR_READ);
  1693.           p64to16(rdptr,0x4000);
  1694.           rdptr+=0x4000;
  1695.         }
  1696.         cmd_read[7]=(rest>>7)&0xff; cmd_read[8]=(rest<<1)&0xff;
  1697.         DoScsi(&cmd_read,10,rdptr,rest<<1,DIR_READ);
  1698.         p64to16(rdptr,rest);
  1699.     rdptr+=rest;
  1700.       } while (glin);
  1701.     }
  1702.     DoScsi(&cmd_mdoff,6,NULL,0,0); 
  1703.   }
  1704. }  
  1705.     
  1706. void view(UWORD x, UWORD y, UBYTE zoom)
  1707. { UBYTE *vptr;
  1708.   UBYTE *plptr[4];
  1709.   ULONG vinc;
  1710.   ULONG vicr[13];
  1711.   UWORD i,j,k,n1,n2,zeile;
  1712.   UBYTE linebuf[1000];
  1713.  
  1714.   for (i=0;i<4;i++) plptr[i]=(UBYTE *)(rp->BitMap->Planes[i]+1680);
  1715.   vptr=(memgray)?
  1716.        (UBYTE*)(memptr+(((memwidth>>1)*y)+(x>>1))):
  1717.        (UBYTE*)(memptr+(((memwidth>>3)*y)+(x>>3)));
  1718.   vinc=(memgray)?(ULONG)(memwidth>>1):(ULONG)(memwidth>>3);
  1719.   if (zoom)
  1720.   { if ((memheight/4)<470) sk=4;
  1721.     else if ((memheight/8)<470) sk=8;
  1722.     else if ((memheight/12)<470) sk=12;
  1723.     vptr=memptr;
  1724.     vicr[0]=0; vicr[1]=vinc;
  1725.     for (i=2;i<13;i++) vicr[i]=vicr[i-1]+vinc;
  1726.     clrscr(plptr[0],plptr[1],plptr[2],plptr[3]);
  1727.     zeile=0; vx=vy=0;
  1728.     if (memgray)
  1729.     switch (sk)
  1730.     { case 4: while(zeile<memheight)
  1731.               { zeile+=4;
  1732.                 for (i=0;i<(memwidth>>1);i+=4)
  1733.                 { n1=n2=0; j=i;
  1734.                   for (k=0;k<4;k++)
  1735.                   { n1+=((*(vptr+j  )>>4)+(*(vptr+j  )&15)+(*(vptr+j+1)>>4)+(*(vptr+j+1)&15));
  1736.                     n2+=((*(vptr+j+2)>>4)+(*(vptr+j+2)&15)+(*(vptr+j+3)>>4)+(*(vptr+j+3)&15));
  1737.                     j+=vinc;
  1738.                   }
  1739.                   linebuf[i>>2]=(n1&0xf0)|(n2>>4);
  1740.                 }
  1741.                 vplanesep(&linebuf[0],plptr[0],plptr[1],plptr[2],plptr[3],memwidth>>5);
  1742.                 plptr[0]+=80; plptr[1]+=80; plptr[2]+=80; plptr[3]+=80;
  1743.                 vptr+=vicr[4];
  1744.               } 
  1745.               break;
  1746.       case 8: while(zeile<memheight)
  1747.               { zeile+=8;
  1748.                 for (i=0;i<(memwidth>>1);i+=8)
  1749.                 { n1=n2=0; j=i;
  1750.                   for (k=0;k<8;k++)
  1751.                   { n1+=((*(vptr+j  )>>4)+(*(vptr+j  )&15)+(*(vptr+j+1)>>4)+(*(vptr+j+1)&15)
  1752.                         +(*(vptr+j+2)>>4)+(*(vptr+j+2)&15)+(*(vptr+j+3)>>4)+(*(vptr+j+3)&15));
  1753.                     n2+=((*(vptr+j+4)>>4)+(*(vptr+j+4)&15)+(*(vptr+j+5)>>4)+(*(vptr+j+5)&15)
  1754.                         +(*(vptr+j+6)>>4)+(*(vptr+j+6)&15)+(*(vptr+j+7)>>4)+(*(vptr+j+7)&15));
  1755.                     j+=vinc;
  1756.                   }
  1757.                   linebuf[i>>3]=((n1>>2)&0xf0)|((n2>>6)&0x0f);
  1758.                 }
  1759.                 vplanesep(&linebuf[0],plptr[0],plptr[1],plptr[2],plptr[3],memwidth>>6);
  1760.                 plptr[0]+=80; plptr[1]+=80; plptr[2]+=80; plptr[3]+=80;
  1761.                 vptr+=vicr[8];
  1762.               } 
  1763.               break;
  1764.       case 12:while(zeile<memheight)
  1765.               { zeile+=12;
  1766.                 for (i=0;i<(memwidth>>1);i+=12)
  1767.                 { n1=n2=0; j=i;
  1768.                   for (k=0;k<12;k++)
  1769.                   { n1+=((*(vptr+j   )>>4)+(*(vptr+j   )&15)+(*(vptr+j+ 1)>>4)+(*(vptr+j+ 1)&15)
  1770.                         +(*(vptr+j+ 2)>>4)+(*(vptr+j+ 2)&15)+(*(vptr+j+ 3)>>4)+(*(vptr+j+ 3)&15)
  1771.                         +(*(vptr+j+ 4)>>4)+(*(vptr+j+ 4)&15)+(*(vptr+j+ 5)>>4)+(*(vptr+j+ 5)&15));
  1772.                     n2+=((*(vptr+j+ 6)>>4)+(*(vptr+j+ 6)&15)+(*(vptr+j+ 7)>>4)+(*(vptr+j+ 7)&15)
  1773.                         +(*(vptr+j+ 8)>>4)+(*(vptr+j+ 8)&15)+(*(vptr+j+ 9)>>4)+(*(vptr+j+ 9)&15)
  1774.                         +(*(vptr+j+10)>>4)+(*(vptr+j+10)&15)+(*(vptr+j+11)>>4)+(*(vptr+j+11)&15));
  1775.                     j+=vinc;
  1776.                   }
  1777.                   linebuf[i/12]=(((n1/144)<<4)&0xf0)|((n2/144)&0x0f);
  1778.                 }
  1779.                 vplanesep(&linebuf[0],plptr[0],plptr[1],plptr[2],plptr[3],memwidth/96);
  1780.                 plptr[0]+=80; plptr[1]+=80; plptr[2]+=80; plptr[3]+=80;
  1781.                 vptr+=vicr[12];
  1782.               } 
  1783.               break;
  1784.     }
  1785.     else
  1786.     switch (sk)
  1787.     { case 4: while(zeile<memheight)
  1788.               { zeile+=4;
  1789.                 for (i=0;i<(memwidth>>3);i++)
  1790.                 { n1=numbits[(*(vptr+i        ))>>4]+numbits[(*(vptr+i+vicr[1]))>>4]
  1791.                     +numbits[(*(vptr+i+vicr[2]))>>4]+numbits[(*(vptr+i+vicr[3]))>>4];
  1792.                   if (n1==16) n1=15;
  1793.                   n2=numbits[(*(vptr+i        ))&15]+numbits[(*(vptr+i+vicr[1]))&15]
  1794.                     +numbits[(*(vptr+i+vicr[2]))&15]+numbits[(*(vptr+i+vicr[3]))&15];
  1795.                   if (n2==16) n2=15;
  1796.                   linebuf[i]=(~((n1<<4)|n2));
  1797.                 }
  1798.                 vplanesep(&linebuf[0],plptr[0],plptr[1],plptr[2],plptr[3],memwidth>>5);
  1799.                 plptr[0]+=80; plptr[1]+=80; plptr[2]+=80; plptr[3]+=80;
  1800.                 vptr+=vicr[4];
  1801.               } 
  1802.               break;
  1803.       case 8: while(zeile<memheight)
  1804.               { zeile+=8;
  1805.                 for (i=0;i<(memwidth>>3);i+=2)
  1806.                 { n1=(numbits[(*(vptr+i        ))]
  1807.                      +numbits[(*(vptr+i+vicr[1]))]
  1808.                      +numbits[(*(vptr+i+vicr[2]))]
  1809.                      +numbits[(*(vptr+i+vicr[3]))]
  1810.                      +numbits[(*(vptr+i+vicr[4]))]
  1811.                      +numbits[(*(vptr+i+vicr[5]))]
  1812.                      +numbits[(*(vptr+i+vicr[6]))]
  1813.                      +numbits[(*(vptr+i+vicr[7]))])>>2;
  1814.                   if (n1==16) n1=15;
  1815.                   n2=(numbits[(*(vptr+i+1        ))]
  1816.                      +numbits[(*(vptr+i+1+vicr[1]))]
  1817.                      +numbits[(*(vptr+i+1+vicr[2]))]
  1818.                      +numbits[(*(vptr+i+1+vicr[3]))]
  1819.                      +numbits[(*(vptr+i+1+vicr[4]))]
  1820.                      +numbits[(*(vptr+i+1+vicr[5]))]
  1821.                      +numbits[(*(vptr+i+1+vicr[6]))]
  1822.                      +numbits[(*(vptr+i+1+vicr[7]))])>>2;
  1823.                   if (n2==16) n2=15;
  1824.                   linebuf[i>>1]=(~((n1<<4)|n2));
  1825.                 }
  1826.                 vplanesep(&linebuf[0],plptr[0],plptr[1],plptr[2],plptr[3],memwidth>>6);
  1827.                 plptr[0]+=80; plptr[1]+=80; plptr[2]+=80; plptr[3]+=80;
  1828.                 vptr+=vicr[8];
  1829.               } 
  1830.               break;
  1831.       case 12:while(zeile<memheight)
  1832.               { zeile+=12;
  1833.                 for (i=0;i<(memwidth>>3);i+=3)
  1834.                 { n1=(numbits[(*(vptr+i           ))]
  1835.                      +numbits[(*(vptr+i+  vicr[ 1]))]
  1836.                      +numbits[(*(vptr+i+  vicr[ 2]))]
  1837.                      +numbits[(*(vptr+i+  vicr[ 3]))]
  1838.                      +numbits[(*(vptr+i+  vicr[ 4]))]
  1839.                      +numbits[(*(vptr+i+  vicr[ 5]))]
  1840.                      +numbits[(*(vptr+i+  vicr[ 6]))]
  1841.                      +numbits[(*(vptr+i+  vicr[ 7]))]
  1842.                      +numbits[(*(vptr+i+  vicr[ 8]))]
  1843.                      +numbits[(*(vptr+i+  vicr[ 9]))]
  1844.                      +numbits[(*(vptr+i+  vicr[10]))]
  1845.                      +numbits[(*(vptr+i+  vicr[11]))]
  1846.                      +numbits[(*(vptr+i+1         ))>>4]
  1847.                      +numbits[(*(vptr+i+1+vicr[ 1]))>>4]
  1848.                      +numbits[(*(vptr+i+1+vicr[ 2]))>>4]
  1849.                      +numbits[(*(vptr+i+1+vicr[ 3]))>>4]
  1850.                      +numbits[(*(vptr+i+1+vicr[ 4]))>>4]
  1851.                      +numbits[(*(vptr+i+1+vicr[ 5]))>>4]
  1852.                      +numbits[(*(vptr+i+1+vicr[ 6]))>>4]
  1853.                      +numbits[(*(vptr+i+1+vicr[ 7]))>>4]
  1854.                      +numbits[(*(vptr+i+1+vicr[ 8]))>>4]
  1855.                      +numbits[(*(vptr+i+1+vicr[ 9]))>>4]
  1856.                      +numbits[(*(vptr+i+1+vicr[10]))>>4]
  1857.                      +numbits[(*(vptr+i+1+vicr[11]))>>4]);
  1858.                   n2=(numbits[(*(vptr+i+2         ))]
  1859.                      +numbits[(*(vptr+i+2+vicr[ 1]))]
  1860.                      +numbits[(*(vptr+i+2+vicr[ 2]))]
  1861.                      +numbits[(*(vptr+i+2+vicr[ 3]))]
  1862.                      +numbits[(*(vptr+i+2+vicr[ 4]))]
  1863.                      +numbits[(*(vptr+i+2+vicr[ 5]))]
  1864.                      +numbits[(*(vptr+i+2+vicr[ 6]))]
  1865.                      +numbits[(*(vptr+i+2+vicr[ 7]))]
  1866.                      +numbits[(*(vptr+i+2+vicr[ 8]))]
  1867.                      +numbits[(*(vptr+i+2+vicr[ 9]))]
  1868.                      +numbits[(*(vptr+i+2+vicr[10]))]
  1869.                      +numbits[(*(vptr+i+2+vicr[11]))]
  1870.                      +numbits[(*(vptr+i+1         ))&15]
  1871.                      +numbits[(*(vptr+i+1+vicr[ 1]))&15]
  1872.                      +numbits[(*(vptr+i+1+vicr[ 2]))&15]
  1873.                      +numbits[(*(vptr+i+1+vicr[ 3]))&15]
  1874.                      +numbits[(*(vptr+i+1+vicr[ 4]))&15]
  1875.                      +numbits[(*(vptr+i+1+vicr[ 5]))&15]
  1876.                      +numbits[(*(vptr+i+1+vicr[ 6]))&15]
  1877.                      +numbits[(*(vptr+i+1+vicr[ 7]))&15]
  1878.                      +numbits[(*(vptr+i+1+vicr[ 8]))&15]
  1879.                      +numbits[(*(vptr+i+1+vicr[ 9]))&15]
  1880.                      +numbits[(*(vptr+i+1+vicr[10]))&15]
  1881.                      +numbits[(*(vptr+i+1+vicr[11]))&15]);
  1882.                   n1=n1/9;
  1883.                   n2=n2/9;
  1884.                   if (n1==16) n1=15;
  1885.                   if (n2==16) n2=15;
  1886.                   linebuf[i/3]=(~((n1<<4)|n2));
  1887.                 }
  1888.                 vplanesep(&linebuf[0],plptr[0],plptr[1],plptr[2],plptr[3],memwidth/96);
  1889.                 plptr[0]+=80; plptr[1]+=80; plptr[2]+=80; plptr[3]+=80;
  1890.                 vptr+=vicr[12];
  1891.               } 
  1892.               break;
  1893.     }    
  1894.   }
  1895.   else
  1896.   { vx=x&0xfff0; vy=y&0xfffe; sk=1;
  1897.     if (memgray) grayview(vptr,plptr[0],plptr[1],plptr[2],plptr[3],vinc); 
  1898.     else bwview(vptr,plptr[0],plptr[1],plptr[2],plptr[3],vinc); 
  1899.   } 
  1900. }
  1901.  
  1902. UWORD s2px(UWORD x)
  1903. { int t;
  1904.   t=x*sk+vx;
  1905.   if (t>=memwidth) t=memwidth-1;
  1906.   if (t<0) t=0;
  1907.   return((UWORD)t);
  1908. }
  1909.  
  1910. UWORD s2py(UWORD y)
  1911. { int t;
  1912.   t=y*sk+vy;
  1913.   if (t>=memheight) t=memheight-1;
  1914.   if (t<0) t=0;
  1915.   return((UWORD)t);
  1916. }
  1917.  
  1918. UWORD p2sx(UWORD x)
  1919. { int t;
  1920.   t=(x-vx)/sk;
  1921.   if (t>=624) t=623;
  1922.   if (t<0) t=0;
  1923.   return((UWORD)t);
  1924. }
  1925.  
  1926. UWORD p2sy(UWORD y)
  1927. { int t;
  1928.   t=(y-vy)/sk;
  1929.   if (t>=470) t=469;
  1930.   if (t<0) t=0;
  1931.   return((UWORD)t);
  1932. }
  1933.  
  1934. void drawbox()
  1935. { struct RastPort *wrp;
  1936.   int a,b,c,d;
  1937.   
  1938.   a=p2sx(wx1); b=p2sy(wy1)+10;
  1939.   c=p2sx(wx2); d=p2sy(wy2)+10; 
  1940.   { 
  1941.     wrp=win->RPort;
  1942.     SetWrMsk(wrp,8);
  1943.     SetAPen(wrp,8);
  1944.     SetDrMd(wrp,COMPLEMENT|JAM1);
  1945.     SetDrPt(wrp,0xcccc);
  1946.     Move(wrp,a,b);
  1947.     Draw(wrp,a,d);
  1948.     Draw(wrp,c,d);
  1949.     Draw(wrp,c,b);
  1950.     Draw(wrp,a,b);
  1951.     SetWrMsk(wrp,1);
  1952.     SetAPen(wrp,1);
  1953.     SetDrMd(wrp,COMPLEMENT|JAM1);
  1954.     SetDrPt(wrp,0x3333);
  1955.     Move(wrp,a,b);
  1956.     Draw(wrp,a,d);
  1957.     Draw(wrp,c,d);
  1958.     Draw(wrp,c,b);
  1959.     Draw(wrp,a,b);
  1960.     SetWrMsk(wrp,15);
  1961.   }
  1962. }
  1963.  
  1964. void save()
  1965. { int qdatei;
  1966.   ULONG totlen,bmlen;
  1967.   UWORD width,height,i,t;
  1968.   ULONG startofs;
  1969.   UBYTE *saveptr;
  1970.   UBYTE planes[4000];
  1971.   UBYTE sf;
  1972.  
  1973.   sf=(memgray)?1:3;
  1974.   if (mf==2)
  1975.   { if (wx1>wx2) {t=wx2; wx2=wx1; wx1=t;}
  1976.     if (wy1>wy2) {t=wy2; wy2=wy1; wy1=t;}
  1977.     width=(wx2-wx1);
  1978.     height=(wy2-wy1);
  1979.     startofs=wy1*(memwidth>>sf)+(wx1>>sf);
  1980.   }
  1981.   else 
  1982.   { width=memwidth;
  1983.     height=memheight;
  1984.     startofs=0;
  1985.   }
  1986.  
  1987.   filerequest("IFF File");
  1988.   qdatei=creat(str_filenam,1);
  1989.   bmlen=(memgray)?(width*height>>1):(width*height>>3);
  1990.   totlen=bmlen+40+((memgray)?56:14);
  1991.   iff_head[1]=totlen; 
  1992.   iff_head[5]=(width<<16)|height;
  1993.   iff_head[7]=(memgray)?0x04000000:0x01000000;
  1994.   iff_body[1]=bmlen;
  1995.   write(qdatei,&iff_head[0],sizeof(iff_head));
  1996.   if (memgray) write(qdatei,iff_cmap_gray,sizeof(iff_cmap_gray));
  1997.   else write(qdatei,iff_cmap_bw,sizeof(iff_cmap_bw));
  1998.   write(qdatei,iff_body,sizeof(iff_body));
  1999.   saveptr=memptr+startofs;
  2000.   if (memgray) for (i=0;i<height;i++)
  2001.   { fplanesep(saveptr,&planes[0],&planes[width>>3],&planes[2*(width>>3)],&planes[3*(width>>3)],(width>>3));
  2002.     write(qdatei,&planes[0],width>>1);
  2003.     saveptr+=(memwidth>>1);
  2004.   }
  2005.   else for (i=0;i<height;i++)
  2006.   { write(qdatei,saveptr,width>>3);
  2007.     saveptr+=(memwidth>>3);
  2008.   } 
  2009.   close(qdatei); 
  2010. }
  2011.  
  2012. void floyd()
  2013. { signed short lbuf[2][4000];
  2014.   UBYTE *grptr,*bwptr;
  2015.   USHORT i,j;
  2016.   signed short f,g;
  2017.   char wtitel[20];
  2018.  
  2019.   g=(signed short)(winpar.threshold/4);
  2020.   for (i=0;i<4000;i++) lbuf[0][i]=lbuf[1][i]=0;
  2021.   grptr=bwptr=memptr;
  2022.   for (i=0;i<memheight;i++)
  2023.   { for (j=0;j<memwidth;j++)
  2024.     { if (j&1) lbuf[0][j]=(signed short)(  (*(grptr+(j>>1)))     &15)+lbuf[1][j];
  2025.       else     lbuf[0][j]=(signed short)(( (*(grptr+(j>>1))) >>4)&15)+lbuf[1][j];
  2026.     }
  2027.     for (j=0;j<(memwidth>>3);j++) *(bwptr+j)=0;
  2028.     for (j=0;j<memwidth;j++)
  2029.     { if (lbuf[0][j]<g) 
  2030.       { f=lbuf[0][j];
  2031.         *(bwptr+(j>>3))|=bitval[j&7];
  2032.       }
  2033.       else f=lbuf[0][j]-15;
  2034.       lbuf[1][j]=(f+f+f)/8;
  2035.       lbuf[1][j+1]=f-2*lbuf[1][j];
  2036.       lbuf[0][j+1]+=((f+f+f)/8);
  2037.     }
  2038.     grptr+=(memwidth>>1);
  2039.     bwptr+=(memwidth>>3);
  2040.     if (!(i%100)) 
  2041.     { sprintf(&wtitel,"Dithering %03d %%",i*100/memheight);
  2042.       SetWindowTitles(win,&wtitel[0],(UBYTE *)-1);
  2043.     }
  2044.   }
  2045.   memneed=(memwidth*memheight)>>3;
  2046.   memgray=0;
  2047.   if (!(memptr=(UBYTE *)realloc(memptr,memneed)))
  2048.   { memneed=0;
  2049.     MessReq((UBYTE *)"Nicht mehr genug Speicher da!");
  2050.   }
  2051.   SetWindowTitles(win,NULL,(UBYTE *)-1);
  2052. }
  2053.  
  2054. void ordered()
  2055. { UBYTE *grptr,*bwptr;
  2056.   USHORT i,j;
  2057.   char wtitel[20];
  2058.   UBYTE refmat[4][4]={{0,7,2,9},{11,4,13,6},{3,10,1,8},{14,7,12,5}};
  2059.   UBYTE v;
  2060.  
  2061.   grptr=bwptr=memptr;
  2062.   for (i=0;i<memheight;i++)
  2063.   { for (j=0;j<memwidth;j++)
  2064.     { v=(j&1)?(  (*grptr)     &15)
  2065.              :(( (*grptr) >>4)&15);
  2066.       if (v>refmat[j&3][i&3]) *bwptr&=invbitval[j&7];
  2067.       else *bwptr|=bitval[j&7];
  2068.       if ((j&7)==7) bwptr++;
  2069.       if (j&1) grptr++;
  2070.     }
  2071.     if (!(i%100)) 
  2072.     { sprintf(&wtitel,"Dithering %03d %%",i*100/memheight);
  2073.       SetWindowTitles(win,&wtitel[0],(UBYTE *)-1);
  2074.     }
  2075.   }
  2076.   memneed=(memwidth*memheight)>>3;
  2077.   memgray=0;
  2078.   if (!(memptr=(UBYTE *)realloc(memptr,memneed)))
  2079.   { memneed=0;
  2080.     MessReq((UBYTE *)"Nicht mehr genug Speicher da!");
  2081.   }
  2082.   SetWindowTitles(win,NULL,(UBYTE *)-1);
  2083. }
  2084.  
  2085. void main()
  2086. {
  2087.     USHORT i; 
  2088.     USHORT nr;
  2089.     UWORD mx,my;
  2090.     
  2091.     if ((IntuitionBase = (struct IntuitionBase *)
  2092.          OpenLibrary("intuition.library",0L)) == 0L)
  2093.     {    ende();
  2094.          exit(100L);
  2095.     }
  2096.     if ((GfxBase = (struct GfxBase *)
  2097.          OpenLibrary("graphics.library",0L))==0L)
  2098.     {    ende();
  2099.          exit(100L);
  2100.     }
  2101.     if ((DosBase = (struct DosBase *)
  2102.          OpenLibrary("dos.library",0L))==0L)
  2103.     {    ende();
  2104.          exit(100L);
  2105.     } 
  2106.     if (!(imgptrf=AllocMem(sizeof(imagedataf),MEMF_CHIP)))
  2107.     {    ende();
  2108.          exit(85L);
  2109.     }
  2110.     if (!(imgptrz=AllocMem(sizeof(imagedataz),MEMF_CHIP)))
  2111.     {    ende();
  2112.          exit(85L);
  2113.     }
  2114.     memcpy(imgptrf,&imagedataf,sizeof(imagedataf));
  2115.     memcpy(imgptrz,&imagedataz,sizeof(imagedataz));
  2116.     fullimage.ImageData=(USHORT *)imgptrf;
  2117.     zoomimage.ImageData=(USHORT *)imgptrz;
  2118.     if (!(scr=(struct Screen*)OpenScreen(&ns)))
  2119.     {    ende();
  2120.          exit(90L);
  2121.     }
  2122.     vp=&scr->ViewPort;
  2123.     rp=&scr->RastPort;
  2124.     for (i=0;i<16;i++)
  2125.     { SetRGB4(vp,i,graystep[i],graystep[i],graystep[i]); }
  2126.     nw.Screen=scr;
  2127.     if (!(win=(struct Window *)OpenWindow(&nw)))
  2128.     {    ende();
  2129.          exit(90L);
  2130.     }
  2131.     if(!(diskport=CreatePort(0L,0L)))
  2132.     {    ende();
  2133.          exit(80L);
  2134.     }
  2135.     if(!(diskreq=(struct IOStdReq *)CreateStdIO(diskport)))
  2136.     {    ende();
  2137.          exit(80L);
  2138.     }
  2139.     if(openerror=OpenDevice(DEV_NAME,ST400ID,diskreq,0L))
  2140.     {    ende();
  2141.          exit(80L);
  2142.     }
  2143.   memptr=NULL; 
  2144.   mf=0;
  2145.   SetMenuStrip(win,&menu0);
  2146.   for (i=0;i<256;i++) numbits[i]=numbits_16[i/16]+numbits_16[i&15];
  2147.   for(;;)
  2148.   {
  2149.    Wait((long)(1L<<win->UserPort->mp_SigBit));
  2150.    while (Message=(struct IntuiMessage *)GetMsg(win->UserPort))
  2151.     {
  2152.       MessageClass=Message->Class;
  2153.       Code=Message->Code;
  2154.       ReplyMsg(Message);
  2155.       if (MessageClass==MENUPICK) menu(Code);
  2156.       if (((MessageClass==GADGETUP))&&(memneed))
  2157.       { if (!(Message->IAddress->GadgetID))
  2158.         { vprop.VertBody=(zgad.Flags&SELECTED)?0xffff:470*65536/memheight;
  2159.           hprop.HorizBody=(zgad.Flags&SELECTED)?0xffff:624*65536/memwidth;
  2160.           vprop.VertPot=0;
  2161.           hprop.HorizPot=0;
  2162.         }
  2163.         view(hprop.HorizPot*(memwidth-624)/65536,vprop.VertPot*(memheight-470)/65536,(zgad.Flags&SELECTED));
  2164.         if (mf==2) drawbox();
  2165.         RefreshGadgets(&vgad,win,NULL);
  2166.       }
  2167.       if ((MessageClass==MOUSEBUTTONS)&&(Code&128)&&(memneed))
  2168.       { mx=win->MouseX; my=win->MouseY;
  2169.         if ((mx<624)&&(my>=10)&&(my<470))
  2170.         switch(mf)
  2171.         { case 0: wx1=s2px(mx)&0xfff8; wy1=s2py(my-10); mf=1; break;
  2172.           case 1: wx2=s2px(mx)&0xfff8; wy2=s2py(my-10); mf=2; 
  2173.                   drawbox(); break;
  2174.           case 2: mf=0; drawbox(); break;
  2175.         }
  2176.       }
  2177.       if (MessageClass==CLOSEWINDOW)
  2178.       { ende();
  2179.         exit(0L);
  2180.       } /* if */
  2181.      } /* while */
  2182.    } /* for */
  2183. } /* main */
  2184.  
  2185. menu(Code)
  2186. USHORT Code;
  2187. {
  2188.   USHORT num,item,subitem;
  2189.   num=MENUNUM(Code);
  2190.   item=ITEMNUM(Code);
  2191.   subitem=SUBNUM(Code);
  2192.   switch(num)
  2193.   {  case 0: break;                    /* Info */
  2194.      case 1: switch(item)              /* Programm */
  2195.              { case 0: scan();         /* Einlesen */
  2196.                        vprop.VertBody=(zgad.Flags&SELECTED)?0xffff:470*65536/memheight;
  2197.                        hprop.HorizBody=(zgad.Flags&SELECTED)?0xffff:624*65536/memwidth;
  2198.                        vprop.VertPot=0;
  2199.                        hprop.HorizPot=0;
  2200.                        RefreshGadgets(&zgad,win,NULL);
  2201.                        if (memneed)
  2202.                        { view(0,0,(zgad.Flags&SELECTED));
  2203.                          mf=0;
  2204.                        }
  2205.                        break;
  2206.                case 1: save(); /* Speichern */
  2207.                        break;
  2208.                case 2: if ((memgray)&&(memneed))
  2209.                        { floyd(); /* Dither */
  2210.                          if (memneed) view(hprop.HorizPot*(memwidth-624)/65536,
  2211.                                            vprop.VertPot*(memheight-470)/65536,
  2212.                                            (zgad.Flags&SELECTED));
  2213.                          if (mf==2) drawbox();
  2214.                        }
  2215.                        break;
  2216.                case 3: if ((memgray)&&(memneed))
  2217.                        { ordered(); /* Dither */
  2218.                          if (memneed) view(hprop.HorizPot*(memwidth-624)/65536,
  2219.                                            vprop.VertPot*(memheight-470)/65536,
  2220.                                            (zgad.Flags&SELECTED));
  2221.                          if (mf==2) drawbox();
  2222.                        }
  2223.                        break;
  2224.                case 4: inquiry();
  2225.                        break;
  2226.                case 5: ende();         /* Ende */
  2227.                        exit(0L);
  2228.                        break;
  2229.                }
  2230.              break;
  2231.      case 2: winpar.resx=100*(item+2);
  2232.              winpar.resy=winpar.resx;
  2233.              break;
  2234.      case 3: winpar.size=5-item;
  2235.              break;
  2236.      case 4: winpar.halftone=item<<1;
  2237.              winpar.bitspixel=item ? 8 : 1;
  2238.              break;
  2239.      case 5: winpar.threshold=item<<2;
  2240.              break;
  2241.   }
  2242. }
  2243.  
  2244.  
  2245. ende() {
  2246.   if (memptr) free(memptr);
  2247.   if(openerror==0)
  2248.   { CloseDevice(diskreq);
  2249.   }
  2250.   if(diskport)DeletePort(diskport);
  2251.   if(diskreq)DeleteStdIO(diskreq);
  2252.   if (win) { ClearMenuStrip(win); CloseWindow(win); }
  2253.   if (scr) CloseScreen(scr); 
  2254.   if (imgptrf) FreeMem(imgptrf,sizeof(imagedataf));
  2255.   if (imgptrz) FreeMem(imgptrz,sizeof(imagedataz));
  2256.   if (DosBase) CloseLibrary(DosBase);
  2257.   if (GfxBase) CloseLibrary(GfxBase);
  2258.   if (IntuitionBase) CloseLibrary(IntuitionBase);
  2259. }
  2260.  
  2261.