home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / wb / lupe / source / lupe.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-14  |  60.3 KB  |  2,416 lines
  1. // Lupe V1.8 - 1995-97 - © Frank Toepper
  2. // a lens
  3. // AmigaOS 3.0+
  4. // Maxon C++
  5. // last changes: 11.Apr.97
  6.  
  7. #include <string.h>
  8. #include <iostream.h>
  9. #include <ctype.h>
  10. #include <intuition/intuition.h>
  11. #include <intuition/imageclass.h>
  12. #include <intuition/icclass.h>
  13. #include <intuition/gadgetclass.h>
  14. #include <intuition/intuitionbase.h>
  15. #include <exec/exec.h>
  16. #include <dos/dos.h>
  17. #include <graphics/scale.h>
  18. #include <devices/inputevent.h>
  19. #include <libraries/commodities.h>
  20. #include <libraries/gadtools.h>
  21. #include <datatypes/pictureclass.h>
  22. #include <graphics/displayinfo.h>
  23. #include <graphics/gfxmacros.h>
  24. #include <graphics/gfxbase.h>
  25. #include <cybergraphics/cybergraphics.h>
  26. #include <clib/dos_protos.h>
  27. #include <pragma/dos_lib.h>
  28. #include <clib/intuition_protos.h>
  29. #include <pragma/intuition_lib.h>
  30. #include <clib/graphics_protos.h>
  31. #include <pragma/graphics_lib.h>
  32. #include <clib/exec_protos.h>
  33. #include <pragma/exec_lib.h>
  34. #include <clib/commodities_protos.h>
  35. #include <pragma/commodities_lib.h>
  36. #include <clib/gadtools_protos.h>
  37. #include <pragma/gadtools_lib.h>
  38. #include <clib/icon_protos.h>
  39. #include <pragma/icon_lib.h>
  40. #include <clib/cybergraphics_protos.h>
  41. #include <pragma/cybergraphics_lib.h>
  42. #include <clib/wb_protos.h>
  43. #include <pragma/wb_lib.h>
  44. #include <libraries/asl.h>
  45. #include <clib/asl_protos.h>
  46. #include <pragma/asl_lib.h>
  47. #include <clib/alib_protos.h>
  48. #include <pragma/utility_lib.h>
  49. #include <clib/utility_protos.h>
  50. #include <wbstartup.h>
  51.  
  52. #pragma header
  53.  
  54. #include "lupe_cat.h"
  55.  
  56. #define VERSION "Lupe V1.8"
  57.  
  58. #define CYBERARRAY_BPP 3
  59.  
  60. #define MINWIDTH 56
  61. #define MINHEIGHT 30
  62.  
  63. enum { SAMESCREEN, NEWSCREEN };
  64.  
  65. UWORD innerwidth = 150, innerheight = 100, sourcewidth, sourceheight;
  66. UWORD scalefac = 5, maxscalefac = 15, minwidth;
  67. UWORD leftoff, topoff, bottomoff, rightoff;
  68. UWORD sizeiw, sizeih, winx, winy, winleft = 0, wintop = 11, originX = 0, originY = 0;
  69. UWORD textoff, coordsstringlen, fontX, fontY, scrdepth;
  70. WORD fixedX = 0, fixedY = 0;
  71. ULONG cxsigflag, waitmask = 0, pens[6];
  72. LONG oldx, oldy;
  73. APTR VisualInfo = NULL;
  74. BPTR fh;
  75. struct MsgPort *broker_mp, *userport, *app_mp = NULL;
  76. struct Task *thistask;
  77. struct Window *mywin;
  78. struct Screen *scr = NULL, *tmpscr;
  79. struct Menu *menu = NULL;
  80. struct MenuItem *item;
  81. struct BitMap *srcbm = NULL, *destbm = NULL, *scrbm, *maskbm = NULL;
  82. struct TextFont *screenfont = NULL, *topazfont;
  83. struct InputXpression setoriginix, resetoriginix, showhideix;
  84. struct RastPort *scrrp, destrp, *winrp, maskrp;
  85. struct Library *CxBase, *GadToolsBase, *CyberGfxBase, *IconBase;
  86. struct Library *WorkbenchBase, *AslBase, *LocaleBase, *UtilityBase;
  87. struct GfxBase *GfxBase;
  88. struct AppIcon *appicon = NULL;
  89. struct AppMessage *appmsg;
  90. struct DiskObject *icon = NULL;
  91. UBYTE timesig, showhidesig;
  92. BOOL hires, newlook, jump = FALSE, fast = FALSE, pubscreenlocked = FALSE, enable = TRUE;
  93. BOOL cybergfxscreen, coords = FALSE, crosshair = FALSE, origin = TRUE, fixed = FALSE;
  94. BOOL jumpdirect, showhide = TRUE, hide = FALSE, hideonclose = FALSE, grid = FALSE;
  95. BOOL showrgb = FALSE, jumptoactivescreen = FALSE, screentofront = TRUE;
  96. CxObj *broker, *customcxobj;
  97. Object *propgadget;
  98. char pubscreenname[MAXPUBSCREENNAME];
  99. char setoriginkey[50] = "lalt o", resetoriginkey[50] = "lalt r", showhidekey[50] = "lalt h";
  100. char title[10], dispstring[12], language[20] = "";
  101. char programname[110], iffpath[256] = "ram:Lupe.iff", iffname[110];
  102. char *Template = "CX_PRIORITY=P/N/K, FAST=F/S/K, MAXSCALEFACTOR=M/N/K, SCALEFACTOR=S/N/K, "
  103.                  "WINLEFT=L/N/K, WINTOP=T/N/K, WINWIDTH=W/N/K, WINHEIGHT=H/N/K, "
  104.                  "COORDINATES=C/S/K, CROSSHAIR=R/S/K, SETORIGINKEY=O/K, RESETORIGINKEY=K/K, "
  105.                  "FIXED=D/S/K, SHOWHIDEKEY=SH/K, ICONIFY=I/S/K, ICONIFYONCLOSE=IOC/S/K, "
  106.                  "GRID=G/S/K, SHOWRGB=RGB/S/K, IFFFILE=IF/K, JUMPTOACTIVESCREEN=JAS/S/K, "
  107.                  "LANGUAGE=U";
  108.  
  109. struct BitScaleArgs bsa = {
  110.    // Src Koords
  111.    0, 0,
  112.    innerwidth / scalefac,
  113.    innerheight / scalefac,
  114.    // Src Faktoren
  115.    1, 1,
  116.    0, 0,
  117.    innerwidth,
  118.    innerheight,
  119.    // Dest Faktoren
  120.    scalefac, scalefac,
  121.    // Bitmaps
  122.    NULL, NULL,
  123.    0,
  124.    0, 0,
  125.    0, 0
  126. };
  127.  
  128. struct TextAttr topaz_attr = {
  129.    "topaz.font",
  130.    8,
  131.    0,
  132.    FPF_ROMFONT
  133. };
  134.  
  135. struct NewBroker newbroker = {
  136.    NB_VERSION,
  137.    "Lupe",
  138.    VERSION " © 1995-97 Frank Toepper",
  139.    0,
  140.    3,
  141.    COF_SHOW_HIDE,
  142.    0,
  143.    NULL,
  144.    0
  145. };
  146.  
  147. extern struct IntuitionBase *IntuitionBase;
  148.  
  149. // function declarations for menu
  150. BOOL jumpFunc ();
  151. BOOL jumptoactiveFunc ();
  152. BOOL saveFunc ();
  153. BOOL fastFunc ();
  154. BOOL AboutFunc ();
  155. BOOL enableFunc ();
  156. BOOL coordsFunc ();
  157. BOOL crosshairFunc ();
  158. BOOL gridFunc ();
  159. BOOL showrgbFunc ();
  160. BOOL fixedFunc ();
  161. BOOL QuitFunc ();
  162. BOOL hideFunc ();
  163. BOOL hideoncloseFunc ();
  164.  
  165. //----------------------------------------------
  166.  
  167. void Putchar (register __d0 char zeichen, register __a3 char *putchdata)
  168. {
  169.    *putchdata++ = zeichen;
  170. }
  171.  
  172. void error (char *formatstring, ...)
  173. {
  174.  APTR args = &formatstring + 1;
  175.  struct EasyStruct easystruct = {
  176.     sizeof (struct EasyStruct),
  177.     0,
  178.     GetString (TXT_ERROR),
  179.     formatstring,
  180.     GetString (TXT_OK)
  181.  };
  182.  
  183.    if (Cli ())
  184.    {
  185.       VPrintf (formatstring, (LONG *) args);
  186.       FPutC (Output (), '\n');
  187.       Flush (Output ());
  188.    }
  189.    else
  190.    {
  191.       EasyRequestArgs (NULL, &easystruct, NULL, args);
  192.    }
  193. }
  194.  
  195. //----------------------------------------------
  196.  
  197. BOOL lockaspublicscreen (struct Screen *screen)
  198. {
  199.  struct List *pubscreenlist;
  200.  struct PubScreenNode *pubscreennode;
  201.  
  202.    pubscreenlist = LockPubScreenList ();
  203.    if (pubscreenlist)
  204.    {
  205.       pubscreennode = (struct PubScreenNode *) pubscreenlist->lh_Head;
  206.       while (pubscreennode)
  207.       {
  208.          if (pubscreennode->psn_Screen == screen)
  209.          {
  210.             if (LockPubScreen (pubscreennode->psn_Node.ln_Name))
  211.             {
  212.                UnlockPubScreenList ();
  213.                return TRUE;
  214.             }
  215.          }
  216.          pubscreennode = (struct PubScreenNode *) pubscreennode->psn_Node.ln_Succ;
  217.       }
  218.       UnlockPubScreenList ();
  219.    }
  220.    return FALSE;
  221. }
  222.  
  223. int setupscreen (struct Screen *selectedscreen)
  224. {
  225.  ULONG id;
  226.  
  227.    jumpdirect = FALSE;
  228.    if (selectedscreen)
  229.    {
  230.       jumpdirect = TRUE;
  231.       if (scr)
  232.       {
  233.          if (VisualInfo)
  234.          {
  235.             FreeVisualInfo (VisualInfo);
  236.          }
  237.          if (pubscreenlocked)
  238.          {
  239.             UnlockPubScreen (NULL, scr);
  240.          }
  241.       }
  242.       if (lockaspublicscreen (selectedscreen))
  243.       {
  244.          pubscreenlocked = TRUE;
  245.       }
  246.       else
  247.       {
  248.          pubscreenlocked = FALSE;
  249.       }
  250.       scr = selectedscreen;
  251.    }
  252.    else if (scr)
  253.    {
  254.       tmpscr = scr->NextScreen;
  255.       if (tmpscr)
  256.       {
  257.          FreeVisualInfo (VisualInfo);
  258.          VisualInfo = NULL;
  259.          if (pubscreenlocked)
  260.          {
  261.             UnlockPubScreen (NULL, scr);
  262.             pubscreenlocked = FALSE;
  263.          }
  264.          if (lockaspublicscreen (tmpscr))
  265.          {
  266.             pubscreenlocked = TRUE;
  267.          }
  268.       }
  269.       else
  270.       {
  271.          error (GetString (TXT_ERROR_NOOTHERSCREEN));
  272.          return SAMESCREEN;
  273.       }
  274.       scr = tmpscr;
  275.    }
  276.    else if ((scr = LockPubScreen (NULL)) != 0)
  277.    {
  278.       pubscreenlocked = TRUE;
  279.    }
  280.    else
  281.    {
  282.       error (GetString (TXT_ERROR_LOCKPUBSCREEN));
  283.       throw 1;
  284.    }
  285.    VisualInfo = GetVisualInfoA (scr, NULL);
  286.    if (!VisualInfo)
  287.    {
  288.       error (GetString (TXT_ERROR_VISUALINFO));
  289.       throw 2;
  290.    }
  291.    cybergfxscreen = FALSE;
  292.    if (CyberGfxBase)
  293.       if ((id = GetVPModeID (&scr->ViewPort)) != INVALID_ID)
  294.          if (IsCyberModeID (id))
  295.             if (GetCyberIDAttr (CYBRIDATTR_BPPIX, id) > 1)
  296.                cybergfxscreen = TRUE;
  297.    return NEWSCREEN;
  298. }
  299.  
  300. void CloseDownScreen ()
  301. {
  302.    if (VisualInfo)
  303.    {
  304.       FreeVisualInfo (VisualInfo);
  305.       VisualInfo = NULL;
  306.    }
  307.    if (scr && pubscreenlocked)
  308.    {
  309.       UnlockPubScreen (NULL, scr);
  310.       pubscreenlocked = FALSE;
  311.    }
  312. }
  313.  
  314. void getoffsets ()
  315. {
  316.  struct DrawInfo *drawinfo;
  317.  APTR sizeobject;
  318.  ULONG attr;
  319.  
  320.    if (screenfont)
  321.    {
  322.       CloseFont (screenfont);
  323.       screenfont = NULL;
  324.    }
  325.    hires = (scr->Flags & SCREENHIRES) != 0;
  326.    hires ? (rightoff = 18) : (rightoff = 13);
  327.    SetAPen (&maskrp, 1);
  328.    drawinfo = GetScreenDrawInfo (scr);
  329.    if (drawinfo)
  330.    {
  331.       // dimension of the border
  332.       sizeobject = NewObject (NULL, SYSICLASS,
  333.        SYSIA_Which, SIZEIMAGE, SYSIA_DrawInfo, drawinfo,
  334.        SYSIA_Size, hires ? SYSISIZE_MEDRES : SYSISIZE_LOWRES, TAG_END);
  335.       if (sizeobject)
  336.       {
  337.          if (GetAttr (IA_Width, sizeobject, &attr))
  338.          {
  339.             sizeiw = attr;
  340.             rightoff =  (UWORD) attr;
  341.          }
  342.          if (GetAttr (IA_Height, sizeobject, &attr))
  343.          {
  344.             sizeih = attr;
  345.          }
  346.          newlook = (drawinfo->dri_Flags & DRIF_NEWLOOK) && (drawinfo->dri_Depth != 1);
  347.          SetAPen (&maskrp, drawinfo->dri_Pens[SHADOWPEN]);
  348.          DisposeObject (sizeobject);
  349.       }
  350.       pens[0] = drawinfo->dri_Pens[FILLTEXTPEN];
  351.       pens[1] = drawinfo->dri_Pens[FILLPEN];
  352.       pens[2] = drawinfo->dri_Pens[TEXTPEN];
  353.       pens[3] = drawinfo->dri_Pens[BACKGROUNDPEN];
  354.       pens[4] = drawinfo->dri_Pens[SHINEPEN];
  355.       pens[5] = drawinfo->dri_Pens[SHADOWPEN];
  356.       FreeScreenDrawInfo (scr, drawinfo);
  357.    }
  358.    else
  359.    {
  360.       // default pens
  361.       pens[0] = 2;
  362.       pens[1] = 3;
  363.       pens[2] = 1;
  364.       pens[3] = 0;
  365.       pens[4] = 2;
  366.       pens[5] = 1;
  367.    }  // if (drawinfo)
  368.    scrrp = &scr->RastPort;
  369.    topoff = scrrp->TxHeight + (UWORD) scr->WBorTop + 1;
  370.    leftoff = scr->WBorLeft;
  371.    scrbm = scrrp->BitMap;
  372.    scrdepth = GetBitMapAttr (scrbm, BMA_DEPTH);
  373.    fontX = topazfont->tf_XSize;
  374.    fontY = topazfont->tf_YSize;
  375.    minwidth = MINWIDTH;
  376.    coordsstringlen = 1;
  377.    if (scr->Width > 999)
  378.    {
  379.       coordsstringlen += 5;
  380.    }
  381.    else
  382.    {
  383.       coordsstringlen += 4;
  384.    }
  385.    if (scr->Height > 999)
  386.    {
  387.       coordsstringlen += 5;
  388.    }
  389.    else
  390.    {
  391.       coordsstringlen += 4;
  392.    }
  393.    if (coords || showrgb)
  394.    {
  395.       bottomoff = sizeih;
  396.       // center the text in the bottomborder
  397.       textoff = (bottomoff + fontY >> 1) - topazfont->tf_Baseline;
  398.       minwidth = 0;
  399.       if (coords)
  400.       {
  401.          minwidth = coordsstringlen * (fontX);
  402.       }
  403.       if (showrgb)
  404.       {
  405.          minwidth += 13 * (fontX);
  406.       }
  407.       // SysIHack or height of screenfont <= 8?
  408.       if ((bottomoff - 2) >= scr->Font->ta_YSize)
  409.       {
  410.          screenfont = OpenFont (scr->Font);
  411.          if (screenfont)
  412.          {
  413.             if (!(screenfont->tf_Flags & FPF_PROPORTIONAL))
  414.             {
  415.                fontX = screenfont->tf_XSize;
  416.                fontY = screenfont->tf_YSize;
  417.                minwidth = 0;
  418.                if (coords)
  419.                {
  420.                   minwidth = coordsstringlen * (fontX);
  421.                }
  422.                if (showrgb)
  423.                {
  424.                   minwidth += 13 * (fontX);
  425.                }
  426.                // center the text in the bottomborder
  427.                textoff = (bottomoff + fontY >> 1) - screenfont->tf_Baseline;
  428.             }
  429.             else
  430.             {
  431.                CloseFont (screenfont);
  432.                screenfont = NULL;               
  433.             }
  434.          }
  435.       }
  436.    }  // if (coords
  437.    else
  438.    {
  439.       bottomoff = scr->WBorBottom;
  440.    }
  441. }
  442.  
  443. void setwintitle ()
  444. {
  445.  LONG args[] = { (LONG) "Lupe", scalefac };
  446.  
  447.    RawDoFmt ("%s %ld:1", args, (void (*)()) Putchar, title);
  448.    SetWindowTitles (mywin, title, (STRPTR) ~0);
  449. }
  450.  
  451. void setmenu ()
  452. {
  453.  struct MenuItem *mitem;
  454.  
  455.    if (mywin)
  456.    {
  457.       ClearMenuStrip (mywin);
  458.  
  459.       mitem = ItemAddress (menu, FULLMENUNUM (0, 2, NOSUB));
  460.       if (jumptoactivescreen) mitem->Flags |= CHECKED;
  461.       else mitem->Flags &= ~CHECKED;
  462.  
  463.       mitem = ItemAddress (menu, FULLMENUNUM (0, 6, NOSUB));
  464.       if (enable) mitem->Flags |= CHECKED;
  465.       else mitem->Flags &= ~CHECKED;
  466.  
  467.       mitem = mitem->NextItem;
  468.       if (fixed) mitem->Flags |= CHECKED;
  469.       else mitem->Flags &= ~CHECKED;
  470.  
  471.       mitem = mitem->NextItem;
  472.       if (fast) mitem->Flags |= CHECKED;
  473.       else mitem->Flags &= ~CHECKED;
  474.  
  475.       mitem = mitem->NextItem;
  476.       if (coords) mitem->Flags |= CHECKED;
  477.       else mitem->Flags &= ~CHECKED;
  478.  
  479.       mitem = mitem->NextItem;
  480.       if (crosshair) mitem->Flags |= CHECKED;
  481.       else mitem->Flags &= ~CHECKED;
  482.  
  483.       mitem = mitem->NextItem;
  484.       if (grid) mitem->Flags |= CHECKED;
  485.       else mitem->Flags &= ~CHECKED;
  486.  
  487.       mitem = mitem->NextItem;
  488.       if (showrgb) mitem->Flags |= CHECKED;
  489.       else mitem->Flags &= ~CHECKED;
  490.  
  491.       mitem = ItemAddress (menu, FULLMENUNUM (0, 16, NOSUB));
  492.       if (hideonclose) mitem->Flags |= CHECKED;
  493.       else mitem->Flags &= ~CHECKED;
  494.  
  495.       ResetMenuStrip (mywin, menu);
  496.    }
  497. }
  498.  
  499. void setupgrid ()
  500. {
  501.  LONG i, j;
  502.  
  503.    if (maskbm)
  504.    {
  505.       WaitBlit ();
  506.       FreeBitMap (maskbm);
  507.       maskbm = NULL;
  508.    }
  509.    if (grid)
  510.    {
  511.       maskbm = AllocBitMap (innerwidth, innerheight, 1, BMF_CLEAR, destbm);
  512.       if (!maskbm)
  513.       {
  514.          error (GetString (TXT_ERROR_GRIDMASK));
  515.          grid = FALSE;
  516.          setmenu ();
  517.       }
  518.       else
  519.       {
  520.          maskrp.BitMap = maskbm;
  521.          for (i = scalefac - 1; i < innerwidth; i += scalefac)
  522.          {
  523.             RectFill (&maskrp, i, 0, i, innerheight - 1)
  524.          }
  525.          for (i = scalefac - 1; i < innerheight; i += scalefac)
  526.          {
  527.             for (j = 0; j <= (innerwidth - scalefac); j += scalefac)
  528.             {
  529.                RectFill (&maskrp, j, i, j + scalefac - 2, i);
  530.             }
  531.          }
  532.       }
  533.    }
  534. }
  535.  
  536. void allocbm ()
  537. {
  538.    if (srcbm)
  539.    {
  540.       FreeBitMap (srcbm);
  541.       srcbm = NULL;
  542.    }
  543.    if (destbm)
  544.    {
  545.       FreeBitMap (destbm);
  546.       destbm = NULL;
  547.    }
  548.    winx = mywin->Width;
  549.    winy = mywin->Height;
  550.    innerwidth = winx - (leftoff + rightoff);
  551.    innerheight = winy - (topoff + bottomoff);
  552.    sourcewidth = innerwidth / scalefac;
  553.    sourceheight = innerheight / scalefac;
  554.    if (scalefac > 1)
  555.    {
  556.       if (!(srcbm = AllocBitMap (sourcewidth, sourceheight, cybergfxscreen ? 24 : scrdepth, cybergfxscreen ? (BMF_CLEAR | BMF_MINPLANES | PIXFMT_RGB24) : BMF_CLEAR, scrbm)))
  557.       {
  558.          error (GetString (TXT_ERROR_SOURCEBMP));
  559.          throw 1;
  560.       }
  561.       if (!(destbm = AllocBitMap (innerwidth, innerheight, cybergfxscreen ? 24 : scrdepth, cybergfxscreen ? (BMF_CLEAR | BMF_MINPLANES | PIXFMT_RGB24) : BMF_CLEAR, srcbm)))
  562.       {
  563.          error (GetString (TXT_ERROR_DESTBMP));
  564.          throw 2;
  565.       }
  566.       bsa.bsa_SrcWidth = sourcewidth;
  567.       bsa.bsa_SrcHeight = sourceheight;
  568.       bsa.bsa_DestWidth = innerwidth;
  569.       bsa.bsa_DestHeight = innerheight;
  570.       bsa.bsa_SrcBitMap = srcbm;
  571.       bsa.bsa_DestBitMap = destbm;
  572.       bsa.bsa_XDestFactor = bsa.bsa_YDestFactor = scalefac;
  573.       setupgrid ();
  574.       destrp.BitMap = destbm;
  575.    }
  576. }
  577.  
  578. void makescreenmenu ()
  579. {
  580.  struct NewMenu tmpmenu[] = {
  581.   { NM_SUB, 0, 0, 0, 0, 0 },
  582.   { NM_END, 0, 0, 0, 0, 0 }
  583.  };
  584.  ULONG lock;
  585.  struct List *pubscreenlist;
  586.  struct PubScreenNode *pubscreennode;
  587.  struct MenuItem **itempointer = &menu->FirstItem->NextItem->SubItem;
  588.  
  589.    lock = LockIBase (0);
  590.    tmpscr = IntuitionBase->FirstScreen;
  591.    if (tmpscr->NextScreen)
  592.    {
  593.       while ((tmpscr = tmpscr->NextScreen) != 0)
  594.       {
  595.          (*tmpmenu).nm_Label = tmpscr->DefaultTitle;
  596.          pubscreenlist = LockPubScreenList ();
  597.          if (pubscreenlist)
  598.          {
  599.             pubscreennode = (struct PubScreenNode *) pubscreenlist->lh_Head;
  600.             while (pubscreennode)
  601.             {
  602.                if (pubscreennode->psn_Screen == tmpscr)
  603.                {
  604.                   if (pubscreennode->psn_Node.ln_Name)
  605.                   {
  606.                      tmpmenu->nm_Label = pubscreennode->psn_Node.ln_Name;
  607.                   }
  608.                   break;
  609.                }
  610.                pubscreennode = (struct PubScreenNode *) pubscreennode->psn_Node.ln_Succ;
  611.             }
  612.             UnlockPubScreenList ();
  613.          }
  614.          if (!tmpmenu->nm_Label)
  615.          {
  616.             tmpmenu->nm_Label = GetString (TXT_UNNAMED);
  617.          }
  618.          tmpmenu->nm_UserData = tmpscr;
  619.          // each item single created
  620.          *itempointer = (struct MenuItem *) CreateMenusA (tmpmenu, NULL);
  621.          if (*itempointer)
  622.          {
  623.             itempointer = &(*itempointer)->NextItem;
  624.          }
  625.          else
  626.          {
  627.             error (GetString (TXT_ERROR_SCREENMENUITEM));
  628.          }
  629.       }
  630.    }
  631.    else
  632.    {
  633.       tmpmenu->nm_Label = GetString (TXT_NOOTHERSCREEN);
  634.       *itempointer = (struct MenuItem *) CreateMenusA (tmpmenu, NULL);
  635.       if (*itempointer)
  636.       {
  637.          (*itempointer)->Flags |= HIGHNONE;
  638.          itempointer = &(*itempointer)->NextItem;
  639.       }
  640.       else
  641.       {
  642.          error (GetString (TXT_ERROR_SCREENMENU));
  643.       }
  644.    }
  645.    UnlockIBase (lock);
  646.    if (!LayoutMenus (menu, VisualInfo, GTMN_NewLookMenus, TRUE, TAG_DONE))
  647.    {
  648.       error (GetString (TXT_ERROR_LAYOUTMENU));
  649.       throw 1;
  650.    }
  651. }
  652.  
  653. void freescreenmenu (struct MenuItem *menuitem)
  654. {
  655.    if (menuitem)
  656.    {
  657.       freescreenmenu (menuitem->NextItem);
  658.       FreeMenus ((struct Menu *) menuitem);
  659.    }
  660. }
  661.  
  662. void openwin ()
  663. { 
  664.  struct NewMenu standardmenu[] = {
  665.    { NM_TITLE, GetString (TXT_PROJECT), 0, 0, 0, 0 },
  666.    {  NM_ITEM, GetString (TXT_JUMP), GetString (KEY_JUMP), 0, 0, jumpFunc },
  667.    {  NM_ITEM, GetString (TXT_JUMPTOSCREEN), 0, 0, 0, 0 },
  668.    {  NM_ITEM, GetString (TXT_JUMPTOACTIVESCREEN), GetString (KEY_JUMPTOACTIVESCREEN), CHECKIT | MENUTOGGLE, 0, jumptoactiveFunc },
  669.    {  NM_ITEM, NM_BARLABEL, 0, 0, 0, 0 },
  670.    {  NM_ITEM, GetString (TXT_SAVEIFF), GetString (KEY_SAVEIFF), 0, 0, saveFunc },
  671.    {  NM_ITEM, NM_BARLABEL, 0, 0, 0, 0 },
  672.    {  NM_ITEM, GetString (TXT_ENABLE), GetString (KEY_ENABLE), CHECKIT | MENUTOGGLE, 0, enableFunc },
  673.    {  NM_ITEM, GetString (TXT_FIXED), GetString (KEY_FIXED), CHECKIT | MENUTOGGLE, 0, fixedFunc },
  674.    {  NM_ITEM, GetString (TXT_FAST), GetString (KEY_FAST), CHECKIT | MENUTOGGLE, 0, fastFunc },
  675.    {  NM_ITEM, GetString (TXT_COORDINATES), GetString (KEY_COORDINATES), CHECKIT | MENUTOGGLE, 0, coordsFunc },
  676.    {  NM_ITEM, GetString (TXT_CROSSHAIR), GetString (KEY_CROSSHAIR), CHECKIT | MENUTOGGLE, 0, crosshairFunc },
  677.    {  NM_ITEM, GetString (TXT_GRID), GetString (KEY_GRID), CHECKIT | MENUTOGGLE, 0, gridFunc },
  678.    {  NM_ITEM, GetString (TXT_SHOWRGB), GetString (KEY_SHOWRGB), CHECKIT | MENUTOGGLE, 0, showrgbFunc },
  679.    {  NM_ITEM, NM_BARLABEL, 0, 0, 0, 0 },
  680.    {  NM_ITEM, GetString (TXT_ABOUT), GetString (KEY_ABOUT), 0, 0, AboutFunc },
  681.    {  NM_ITEM, NM_BARLABEL, 0, 0, 0, 0 },
  682.    {  NM_ITEM, GetString (TXT_ICONIFYONCLOSE), GetString (KEY_ICONIFYONCLOSE), CHECKIT | MENUTOGGLE, 0, hideoncloseFunc },
  683.    {  NM_ITEM, GetString (TXT_ICONIFY), GetString (KEY_ICONIFY), 0, 0, hideFunc },
  684.    {  NM_ITEM, GetString (TXT_QUIT), GetString (KEY_QUIT), 0, 0, QuitFunc },
  685.    {  NM_END, 0, 0, 0, 0, 0 }
  686.  };
  687.  ULONG lock;
  688.  WORD bw, rh;
  689.  struct Rectangle zoom = {
  690.     minwidth + leftoff + rightoff,
  691.     MINHEIGHT + topoff + bottomoff + sizeih,
  692.     9999, 9999
  693.  };
  694.  
  695.    if (!mywin)
  696.    {
  697.       if (hires)
  698.       {
  699.          bw = rh = 2;
  700.       }
  701.       else
  702.       {
  703.          bw = rh = 1;
  704.       }
  705.       if (screentofront)
  706.       {
  707.          // first bring the screen to front
  708.          //  -> screen order in menu correct
  709.          lock = LockIBase (0);
  710.          tmpscr = IntuitionBase->FirstScreen;
  711.          UnlockIBase (lock);
  712.          if (tmpscr != scr)
  713.          {
  714.             if (jumpdirect)
  715.             {
  716.                ScreenToFront (scr);
  717.             }
  718.             else
  719.             {
  720.                ScreenToBack (tmpscr);
  721.             }
  722.          }
  723.       }
  724.       else
  725.       {
  726.          // auto jump
  727.          screentofront = TRUE;
  728.       }
  729.       menu = CreateMenusA (standardmenu, NULL);
  730.       if (!menu)
  731.       {
  732.          error (GetString (TXT_ERROR_MENU));
  733.          throw (1);
  734.       }
  735.       makescreenmenu ();
  736.       propgadget = (Object *) NewObject (NULL, PROPGCLASS,
  737.         PGA_Freedom,     FREEVERT,
  738.         ICA_TARGET,      ICTARGET_IDCMP,
  739.         PGA_NewLook,     TRUE,
  740.         PGA_Borderless,  newlook,
  741.         PGA_Total,       maxscalefac,
  742.         PGA_Visible,     1,
  743.         PGA_Top,         scalefac - 1,
  744.         GA_RelRight,     bw - sizeiw + 3,
  745.         GA_Top,          topoff + rh,
  746.         GA_Width,        sizeiw - bw - bw - 4,
  747.         GA_RelHeight,    -topoff - sizeih - rh - rh,
  748.         GA_RightBorder,  TRUE,
  749.         TAG_DONE);
  750.       if (!propgadget)
  751.       {
  752.          error (GetString (TXT_ERROR_PROPGADGET));
  753.          throw (2);
  754.       }
  755.       if (innerwidth < minwidth)
  756.       {
  757.          innerwidth = minwidth;
  758.       }
  759.       mywin = OpenWindowTags (NULL,
  760.         WA_Flags,          WFLG_ACTIVATE | WFLG_CLOSEGADGET | WFLG_DEPTHGADGET
  761.                             | WFLG_DRAGBAR | WFLG_SIZEGADGET | WFLG_SIMPLE_REFRESH
  762.                             | WFLG_NEWLOOKMENUS | WFLG_REPORTMOUSE | WFLG_SIZEBRIGHT
  763.                             | ((coords || showrgb) ? WFLG_SIZEBBOTTOM : 0),
  764.         WA_AutoAdjust,     1,
  765.         WA_MaxHeight,      9999,
  766.         WA_MaxWidth,       9999,
  767.         WA_MinHeight,      MINHEIGHT + topoff + bottomoff,
  768.         WA_MinWidth,       minwidth + leftoff + rightoff,
  769.         WA_IDCMP,          IDCMP_CLOSEWINDOW | IDCMP_IDCMPUPDATE | IDCMP_NEWSIZE
  770.                             | IDCMP_MENUPICK | IDCMP_ACTIVEWINDOW
  771.                             | IDCMP_INACTIVEWINDOW | IDCMP_MOUSEBUTTONS
  772.                             | IDCMP_MOUSEMOVE | IDCMP_VANILLAKEY | IDCMP_RAWKEY
  773.                             | IDCMP_REFRESHWINDOW,
  774.         WA_InnerHeight,    innerheight,
  775.         WA_InnerWidth,     innerwidth,
  776.         WA_Left,           winleft,
  777.         WA_Gadgets,        propgadget,
  778.         WA_Top,            wintop,
  779.         pubscreenlocked ? WA_PubScreen : WA_CustomScreen, scr,
  780.         WA_Zoom,           &zoom,
  781.         TAG_DONE);
  782.       if (!mywin)
  783.       {
  784.          error (GetString (TXT_ERROR_WINDOW));
  785.          throw (3);
  786.       }
  787.       // shit patches
  788.       leftoff = mywin->BorderLeft;
  789.       bottomoff = mywin->BorderBottom;
  790.       SetMenuStrip (mywin, menu);
  791.       setmenu ();
  792.       setwintitle ();
  793.       userport = mywin->UserPort;
  794.       winrp = mywin->RPort;
  795.       if (screenfont)
  796.       {
  797.          SetFont (winrp, screenfont);
  798.       }
  799.       else
  800.       {
  801.          SetFont (winrp, topazfont);
  802.       }
  803.       SetAPen (winrp, pens[0]);
  804.       SetBPen (winrp, pens[1]);
  805.       waitmask |= 1 << userport->mp_SigBit;
  806.    }
  807. }
  808.  
  809. void closewin ()
  810. {
  811.    if (mywin)
  812.    {
  813.       if (menu)
  814.       {
  815.          ClearMenuStrip (mywin);
  816.       }
  817.       wintop = mywin->TopEdge;
  818.       winleft = mywin->LeftEdge;
  819.       waitmask &= ~(1 << userport->mp_SigBit);
  820.       CloseWindow (mywin);
  821.       mywin = NULL;
  822.       userport = NULL;
  823.       jump = TRUE;
  824.    }
  825.    if (menu)
  826.    {
  827.       freescreenmenu (ItemAddress (menu, FULLMENUNUM (0, 1, 0)));
  828.       FreeMenus (menu);
  829.       menu = NULL;
  830.    }
  831.    if (propgadget)
  832.    {
  833.       DisposeObject (propgadget);
  834.       propgadget = NULL;
  835.    }
  836.    if (srcbm)
  837.    {
  838.       FreeBitMap (srcbm);
  839.       srcbm = NULL;
  840.    }
  841.    if (destbm)
  842.    {
  843.       FreeBitMap (destbm);
  844.       destbm = NULL;
  845.    }
  846.    if (maskbm)
  847.    {
  848.       FreeBitMap (maskbm);
  849.       maskbm = NULL;
  850.    }
  851. }
  852.  
  853. BOOL screen_is_still_open ()
  854. {
  855.    tmpscr = IntuitionBase->FirstScreen;
  856.    while (tmpscr)
  857.    {
  858.       if (tmpscr == scr)
  859.       {
  860.          return TRUE;
  861.       }
  862.       tmpscr = tmpscr->NextScreen;
  863.    }
  864.    return FALSE;
  865. }
  866.  
  867. void freeappicon ()
  868. {
  869.    if (appicon)
  870.    {
  871.       RemoveAppIcon (appicon);
  872.       appicon = NULL;
  873.    }
  874.    if (app_mp)
  875.    {
  876.       waitmask &= ~(1 << app_mp->mp_SigBit);
  877.       DeleteMsgPort (app_mp);
  878.       app_mp = NULL;
  879.    }
  880.    if (icon)
  881.    {
  882.       FreeDiskObject (icon);
  883.       icon = NULL;
  884.    }
  885. }
  886.  
  887. void showwindow ()
  888. {
  889.    if (!mywin)
  890.    {
  891.       if (!screen_is_still_open ())
  892.       {
  893.          scr = NULL;
  894.       }
  895.       setupscreen (scr);
  896.       getoffsets ();
  897.       openwin ();
  898.       allocbm ();
  899.       freeappicon ();
  900.    }
  901. }
  902.  
  903. void hidewindow ()
  904. {
  905.    closewin ();
  906.    CloseDownScreen ();
  907.  
  908.    freeappicon ();
  909.  
  910.    if (Cli ())
  911.    {
  912.       GetProgramName (programname, 108);
  913.    }
  914.    else
  915.    {
  916.       strncpy (programname, thistask->tc_Node.ln_Name, 108);
  917.    }
  918.    icon = GetDiskObject ("ENV:sys/def_Lupe");
  919.    if (!icon)
  920.    {
  921.       icon = GetDiskObject (programname);
  922.       if (!icon)
  923.       {
  924.          icon = GetDefDiskObject (WBTOOL);
  925.       }
  926.    }
  927.    if (icon)
  928.    {
  929.       app_mp = CreateMsgPort ();
  930.       if (app_mp)
  931.       {
  932.          appicon = AddAppIcon (1, 0, "Lupe", app_mp, NULL, icon, NULL);
  933.          if (appicon)
  934.          {
  935.             waitmask |= 1 << app_mp->mp_SigBit;
  936.          }
  937.       }
  938.    }
  939. }
  940.  
  941. //- refresh ------------------------------------
  942.  
  943. void printcoords (LONG x, LONG y)
  944. {
  945.    if (coords)
  946.    {
  947.     LONG args[] = {x - originX, y - originY};
  948.  
  949.       memset (dispstring, ' ', coordsstringlen);
  950.       RawDoFmt ("%ld,%ld", args, (void (*)()) Putchar, dispstring);
  951.       dispstring[strlen (dispstring)] = ' ';
  952.       mywin->Flags &= ~SIZEGADGET;
  953.       if ((winx == mywin->Width) && (winy == mywin->Height))
  954.       {
  955.          Move (winrp, leftoff, mywin->Height - textoff);
  956.          Text (winrp, dispstring, coordsstringlen);
  957.       }
  958.       mywin->Flags |= SIZEGADGET;
  959.    }
  960. }
  961.  
  962. void printrgb (LONG x, LONG y)
  963. {
  964.  ULONG colorreg, colors[3], apen, textlen, cybercolor;
  965.  
  966.    if (showrgb)
  967.    {
  968.       colorreg = ReadPixel (scrrp, x, y);
  969.       if (cybergfxscreen)
  970.       {
  971.          cybercolor = ReadRGBPixel (scrrp, x, y);
  972.          colors[0] = (cybercolor >> 16) & 0xff;
  973.          colors[1] = (cybercolor >> 8) & 0xff;
  974.          colors[2] = cybercolor & 0xff;
  975.       }
  976.       else
  977.       {
  978.          GetRGB32 (scr->ViewPort.ColorMap, colorreg, 1, colors);
  979.          colors[0] &= 0xff;
  980.          colors[1] &= 0xff;
  981.          colors[2] &= 0xff;
  982.       }
  983.       RawDoFmt ("%3ld,%3ld,%3ld", colors, (void (*)()) Putchar, dispstring);
  984.       textlen = TextLength (winrp, dispstring, 11);
  985.       apen = GetAPen (winrp);
  986.       mywin->Flags &= ~SIZEGADGET;
  987.       if ((winx == mywin->Width) && (winy == mywin->Height))
  988.       {        
  989.          Move (winrp, innerwidth - textlen, mywin->Height - textoff);
  990.          Text (winrp, dispstring, 11);
  991.          SetAPen (winrp, pens[5]);
  992.          Move (winrp, innerwidth - textlen - fontX - 1, mywin->Height - (bottomoff - fontY >> 1) - 2);
  993.          Draw (winrp, innerwidth - textlen - fontX - 1, mywin->Height - (bottomoff - fontY >> 1) - fontY);
  994.          Draw (winrp, innerwidth - textlen - 2, mywin->Height - (bottomoff - fontY >> 1) - fontY);
  995.          SetAPen (winrp, pens[4]);
  996.          Move (winrp, innerwidth - textlen - 1, mywin->Height - (bottomoff - fontY >> 1) - fontY + 1);
  997.          Draw (winrp, innerwidth - textlen - 1, mywin->Height - (bottomoff - fontY >> 1) - 1);
  998.          Draw (winrp, innerwidth - textlen - fontX, mywin->Height - (bottomoff - fontY >> 1) - 1);
  999.          if (cybergfxscreen)
  1000.          {
  1001.             FillPixelArray (winrp, innerwidth - textlen - fontX, mywin->Height - (bottomoff - fontY >> 1) - fontY + 1,
  1002.               fontX - 1, fontY - 2, cybercolor);
  1003.          }
  1004.          else
  1005.          {
  1006.             SetAPen (winrp, colorreg);
  1007.             RectFill (winrp, innerwidth - textlen - fontX, mywin->Height - (bottomoff - fontY >> 1) - fontY + 1,
  1008.               innerwidth - textlen - 2, mywin->Height - (bottomoff - fontY >> 1) - 2);
  1009.          }
  1010.       }
  1011.       mywin->Flags |= SIZEGADGET;
  1012.       SetAPen (winrp, apen);
  1013.    }  // if (showrgb)
  1014. }
  1015.  
  1016. LONG adjustX (LONG &x)
  1017. {
  1018.  LONG xoff = 0;
  1019.  
  1020.    x -= sourcewidth >> 1;
  1021.    if (x < 0)
  1022.    {
  1023.       xoff = x;
  1024.       x = 0;
  1025.    }
  1026.    else if (x > (scr->Width - sourcewidth))
  1027.    {
  1028.       xoff = -(scr->Width - sourcewidth - x);
  1029.       x = scr->Width - sourcewidth;
  1030.    }
  1031.    return xoff;
  1032. }
  1033.  
  1034. LONG adjustY (LONG &y)
  1035. {
  1036.  LONG yoff = 0;
  1037.  
  1038.    y -= sourceheight >> 1;
  1039.    if (y < 0)
  1040.    {
  1041.       yoff = y;
  1042.       y = 0;
  1043.    }
  1044.    else if (y > (scr->Height - sourceheight))
  1045.    {
  1046.       yoff = -(scr->Height - sourceheight - y);
  1047.       y = scr->Height - sourceheight;
  1048.    }
  1049.    return yoff;
  1050. }
  1051.  
  1052. void refresh ()
  1053. {
  1054.  LONG x, y, xoff, yoff;
  1055.  
  1056.    if (mywin)
  1057.    {
  1058.       // set the coordinates
  1059.       if (enable)
  1060.       {
  1061.          if (fixed)
  1062.          {
  1063.             x = fixedX;
  1064.             y = fixedY;
  1065.          }
  1066.          else
  1067.          {
  1068.             x = scr->MouseX;
  1069.             y = scr->MouseY;
  1070.          }
  1071.          oldx = x;
  1072.          oldy = y;
  1073.       }
  1074.       else
  1075.       {
  1076.          x = oldx;
  1077.          y = oldy;
  1078.       }
  1079.       
  1080.       printcoords (x, y);
  1081.       printrgb (x, y);
  1082.  
  1083.       xoff = adjustX (x);
  1084.       yoff = adjustY (y);
  1085.  
  1086.       // calculate the crosshair
  1087.       if (crosshair)
  1088.       {
  1089.          xoff = scalefac * ((sourcewidth >> 1) + xoff) + (scalefac - 1 >> 1);
  1090.          yoff = scalefac * ((sourceheight >> 1) + yoff) + (scalefac - 1 >> 1);
  1091.       }
  1092.  
  1093.       if (scalefac > 1)
  1094.       {
  1095.          // blit and scale
  1096.          BltBitMap (scrbm, x, y, srcbm, 0, 0, sourcewidth, sourceheight, ABNC | ABC, ~0, NULL);
  1097.          BitMapScale (&bsa);
  1098.          // draw the grid
  1099.          if (grid)
  1100.          {
  1101.             SetDrMd (&destrp, JAM1);
  1102.             BltTemplate (maskbm->Planes[0], 0, maskbm->BytesPerRow, &destrp, 0, 0, sourcewidth * scalefac, sourceheight * scalefac);
  1103.          }
  1104.          // draw the crosshair
  1105.          if (crosshair)
  1106.          {
  1107.             SetDrMd (&destrp, COMPLEMENT);
  1108.             RectFill (&destrp, xoff, 0, xoff, sourceheight * scalefac - 1);
  1109.             RectFill (&destrp, 0, yoff, sourcewidth * scalefac - 1, yoff);
  1110.          }
  1111.          mywin->Flags &= ~SIZEGADGET;
  1112.          if ((winx == mywin->Width) && (winy == mywin->Height))
  1113.          {
  1114.             BltBitMapRastPort (destbm, 0, 0, winrp, leftoff, topoff, innerwidth, innerheight, ABNC | ABC);
  1115.          }
  1116.          mywin->Flags |= SIZEGADGET;
  1117.       }
  1118.       else  // 1:1
  1119.       {
  1120.          mywin->Flags &= ~SIZEGADGET;
  1121.          if ((winx == mywin->Width) && (winy == mywin->Height))
  1122.          {
  1123.             BltBitMapRastPort (scrbm, x, y, winrp, leftoff, topoff, innerwidth, innerheight, ABNC | ABC);
  1124.             // draw the crosshair in 1:1
  1125.             if (crosshair)
  1126.             {
  1127.                SetDrMd (winrp, COMPLEMENT);
  1128.                RectFill (winrp, leftoff + xoff, topoff, leftoff + xoff, topoff + innerheight - 1);
  1129.                RectFill (winrp, leftoff, topoff + yoff, leftoff + innerwidth - 1, topoff + yoff);
  1130.                SetDrMd (winrp, JAM2);
  1131.             }
  1132.          }
  1133.          mywin->Flags |= SIZEGADGET;
  1134.       }
  1135.       if (!fast)
  1136.       {
  1137.          SetSignal (0, 1 << timesig);
  1138.       }
  1139.    }
  1140. }
  1141.  
  1142. //----------------------------------------------
  1143.  
  1144. void CxFunction (CxMsg *cxm, CxObj *co)
  1145. {
  1146.  struct InputEvent *ie = (struct InputEvent *) CxMsgData (cxm);
  1147.  
  1148.    if (origin)
  1149.    {
  1150.       if (MatchIX (ie, &setoriginix))
  1151.       {
  1152.          originX = scr->MouseX;
  1153.          originY = scr->MouseY;
  1154.          DisposeCxMsg (cxm);
  1155.          return;
  1156.       }
  1157.       if (MatchIX (ie, &resetoriginix))
  1158.       {
  1159.          originX = originY = 0;
  1160.          DisposeCxMsg (cxm);
  1161.          return;
  1162.       }
  1163.    }
  1164.    if (showhide)
  1165.    {
  1166.       if (MatchIX (ie, &showhideix))
  1167.       {
  1168.          Signal (thistask, 1 << showhidesig);
  1169.       }
  1170.    }
  1171.    if ((ie->ie_Class == IECLASS_TIMER) || fast)
  1172.    {
  1173.       Signal (thistask, 1 << timesig);
  1174.    }
  1175. }
  1176.  
  1177. void initbroker ()
  1178. {
  1179.  LONG errorcode;
  1180.  
  1181.    broker_mp = CreateMsgPort ();
  1182.    if (!broker_mp)
  1183.    {
  1184.       error (GetString (TXT_ERROR_COMMODITYMP));
  1185.       throw (1);
  1186.    }
  1187.    newbroker.nb_Port = broker_mp;
  1188.    newbroker.nb_Descr = GetString (TXT_DESCRIPTION),
  1189.    cxsigflag = 1 << broker_mp->mp_SigBit;
  1190.    broker = CxBroker (&newbroker, &errorcode);
  1191.    if (!broker)
  1192.    {
  1193.       if (errorcode == CBERR_SYSERR)
  1194.       {
  1195.          error (GetString (TXT_ERROR_COMMODITYBROKER));
  1196.       }
  1197.       throw (2);
  1198.    }
  1199.    customcxobj = CxCustom (CxFunction, 0);
  1200.    if (!customcxobj)
  1201.    {
  1202.       error (GetString (TXT_ERROR_COMMODITYCUSTOM));
  1203.       throw (3);
  1204.    }
  1205.    AttachCxObj (broker, customcxobj);
  1206.    if (CxObjError (customcxobj))
  1207.    {
  1208.       error (GetString (TXT_ERROR_COMMODITYBROKER));
  1209.       throw (4);
  1210.    }
  1211.    if (ParseIX (setoriginkey, &setoriginix) || ParseIX (resetoriginkey, &resetoriginix))
  1212.    {
  1213.       origin = FALSE;
  1214.       error (GetString (TXT_ERROR_HOTKEY), "'Set Origin'");
  1215.    }
  1216.    if (ParseIX (showhidekey, &showhideix))
  1217.    {
  1218.       showhide = FALSE;
  1219.       error (GetString (TXT_ERROR_HOTKEY), "'Show/Hide Window'");
  1220.    }
  1221.    ActivateCxObj (broker, 1);
  1222. }
  1223.  
  1224. void reopenwin ()
  1225. {
  1226.    closewin ();
  1227.    getoffsets ();
  1228.    openwin ();
  1229.    allocbm ();
  1230. }
  1231.  
  1232. void setpropgad ()
  1233. {
  1234.    allocbm ();
  1235.    SetAttrs (propgadget, PGA_Top, scalefac - 1);
  1236.    RefreshGList ((struct Gadget *) propgadget, mywin, NULL, 1);
  1237.    setwintitle ();
  1238. }
  1239.  
  1240. BOOL menupick (UWORD code)
  1241. {
  1242.  static BOOL (*func)();
  1243.  
  1244.    while ((code != MENUNULL) && !jump)
  1245.    {
  1246.       item = ItemAddress (menu, code);
  1247.       if (SUBNUM (code) != NOSUB)
  1248.       {
  1249.          if (GTMENUITEM_USERDATA (item))  // 'no other screen'-submenu == 0
  1250.          {
  1251.             setupscreen ((struct Screen *) GTMENUITEM_USERDATA (item));
  1252.             reopenwin ();
  1253.          }
  1254.       }
  1255.       else
  1256.       {
  1257.          func = (BOOL (*)()) GTMENUITEM_USERDATA (item);
  1258.          if (func () == FALSE)
  1259.          {
  1260.             return FALSE;
  1261.          }
  1262.       }
  1263.       if (!jump) code = item->NextSelect;
  1264.    }
  1265.    return TRUE;
  1266. }
  1267.  
  1268. BOOL vanillakey (UWORD code)
  1269. {
  1270.  BOOL returnvalue = TRUE;
  1271.  
  1272.    code = ToUpper (code);
  1273.  
  1274.    if (code == ToUpper (*GetString (KEY_JUMP)))
  1275.    {
  1276.       returnvalue = jumpFunc ();    
  1277.    }
  1278.    else if (code == ToUpper (*GetString (KEY_JUMPTOACTIVESCREEN)))
  1279.    {
  1280.       jumptoactivescreen = !jumptoactivescreen;
  1281.       setmenu ();    
  1282.    }
  1283.    else if (code == ToUpper (*GetString (KEY_SAVEIFF)))
  1284.    {
  1285.       returnvalue = saveFunc ();
  1286.    }
  1287.    else if (code == ToUpper (*GetString (KEY_ENABLE)))
  1288.    {
  1289.       enable = !enable;
  1290.       ActivateCxObj (broker, enable);
  1291.       setmenu ();
  1292.    }
  1293.    else if (code == ToUpper (*GetString (KEY_FIXED)))
  1294.    {
  1295.       fixed = !fixed;
  1296.       fixedX = scr->MouseX;
  1297.       fixedY = scr->MouseY;
  1298.       setmenu ();
  1299.    }
  1300.    else if (code == ToUpper (*GetString (KEY_FAST)))
  1301.    {
  1302.       fast = !fast;
  1303.       setmenu ();
  1304.    }
  1305.    else if (code == ToUpper (*GetString (KEY_COORDINATES)))
  1306.    {
  1307.       coords = !coords;
  1308.       reopenwin ();
  1309.    }
  1310.    else if (code == ToUpper (*GetString (KEY_CROSSHAIR)))
  1311.    {
  1312.       crosshair = !crosshair;
  1313.       setmenu ();
  1314.    }
  1315.    else if (code == ToUpper (*GetString (KEY_GRID)))
  1316.    {
  1317.       grid = !grid;
  1318.       setupgrid ();
  1319.       setmenu ();
  1320.    }
  1321.    else if (code == ToUpper (*GetString (KEY_SHOWRGB)))
  1322.    {
  1323.       showrgb = !showrgb;
  1324.       reopenwin ();
  1325.    }
  1326.    else if (code == ToUpper (*GetString (KEY_ABOUT)))
  1327.    {
  1328.       returnvalue = AboutFunc ();
  1329.    }
  1330.    else if (code == ToUpper (*GetString (KEY_ICONIFYONCLOSE)))
  1331.    {
  1332.       hideonclose = !hideonclose;
  1333.       setmenu ();
  1334.    }
  1335.    else if (code == ToUpper (*GetString (KEY_ICONIFY)))
  1336.    {
  1337.       returnvalue = hideFunc ();
  1338.    }
  1339.    else if (code == ToUpper (*GetString (KEY_QUIT)))
  1340.    {
  1341.       returnvalue = FALSE;
  1342.    }
  1343.    else switch (code)
  1344.    {
  1345.     case 27:  // ESC
  1346.       if (hideonclose)
  1347.       {
  1348.          hidewindow ();
  1349.          jump = TRUE;
  1350.       }
  1351.       else
  1352.       {
  1353.          returnvalue = FALSE;
  1354.       }
  1355.       break;
  1356.     case '+':
  1357.       if (scalefac < maxscalefac)
  1358.       {
  1359.          scalefac++;
  1360.          setpropgad ();
  1361.       }
  1362.       break;
  1363.     case '-':
  1364.       if (scalefac > 1)
  1365.       {
  1366.          scalefac--;
  1367.          setpropgad ();
  1368.       }
  1369.       break;
  1370.    }
  1371.    return returnvalue;
  1372. }
  1373.  
  1374. void rawkey (UWORD code, UWORD qualifier)
  1375. {
  1376.    switch (code)
  1377.    {
  1378.     // up
  1379.     case 76:
  1380.       if (qualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
  1381.       {
  1382.          fixedY -= sourceheight - 1;
  1383.          if (fixedY < 0)
  1384.          {
  1385.             fixedY = 0;
  1386.          }
  1387.       }
  1388.       else if (qualifier & (IEQUALIFIER_LALT | IEQUALIFIER_RALT))
  1389.       {
  1390.          fixedY = 0;
  1391.       }
  1392.       else if (fixedY)
  1393.       {
  1394.          fixedY--;
  1395.       }
  1396.       break;
  1397.     // down
  1398.     case 77:
  1399.       if (qualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
  1400.       {
  1401.          fixedY += sourceheight - 1;
  1402.          if (fixedY > (scr->Height - 1))
  1403.          {
  1404.             fixedY = scr->Height - 1;
  1405.          }
  1406.       }
  1407.       else if (qualifier & (IEQUALIFIER_LALT | IEQUALIFIER_RALT))
  1408.       {
  1409.          fixedY = scr->Height - 1;
  1410.       }
  1411.       else if (fixedY < (scr->Height - 1))
  1412.       {
  1413.          fixedY++;
  1414.       }
  1415.       break;
  1416.     // right
  1417.     case 78:
  1418.       if (qualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
  1419.       {
  1420.          fixedX += sourcewidth - 1;
  1421.          if (fixedX > (scr->Width - 1))
  1422.          {
  1423.             fixedX = scr->Width - 1;
  1424.          }
  1425.       }
  1426.       else if (qualifier & (IEQUALIFIER_LALT | IEQUALIFIER_RALT))
  1427.       {
  1428.          fixedX = scr->Width - 1;
  1429.       }
  1430.       else if (fixedX < (scr->Width - 1))
  1431.       {
  1432.          fixedX++;
  1433.       }
  1434.       break;
  1435.     // left
  1436.     case 79:
  1437.       if (qualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
  1438.       {
  1439.          fixedX -= sourcewidth - 1;
  1440.          if (fixedX < 0)
  1441.          {
  1442.             fixedX = 0;
  1443.          }
  1444.       }
  1445.       else if (qualifier & (IEQUALIFIER_LALT | IEQUALIFIER_RALT))
  1446.       {
  1447.          fixedX = 0;
  1448.       }
  1449.       else if (fixedX)
  1450.       {
  1451.          fixedX--;
  1452.       }
  1453.       break;
  1454.    }
  1455. }
  1456.  
  1457. void processmsg ()
  1458. {
  1459.  struct IntuiMessage *intuimsg = NULL, m;
  1460.  CxMsg *msg;
  1461.  BOOL cont = TRUE, fixedmove = FALSE, app_clicked = FALSE;
  1462.  LONG sigmask, msgid, msgtype;;
  1463.  ULONG lock;
  1464.  
  1465.    waitmask |= (1 << timesig) | (1 << showhidesig) | cxsigflag | SIGBREAKF_CTRL_C;
  1466.    while (cont)
  1467.    {
  1468.       sigmask = Wait (waitmask);
  1469.       if (sigmask & cxsigflag)
  1470.       {
  1471.          while ((msg = (CxMsg *) GetMsg (broker_mp)) != 0)
  1472.          {
  1473.             msgid = CxMsgID (msg);
  1474.             msgtype = CxMsgType (msg);
  1475.             ReplyMsg ((struct Message *) msg);
  1476.             switch (msgtype)
  1477.             {
  1478.              case CXM_COMMAND:
  1479.                switch (msgid)
  1480.                {
  1481.                 case CXCMD_APPEAR:
  1482.                   showwindow ();
  1483.                   break;
  1484.                 case CXCMD_DISAPPEAR:
  1485.                   hidewindow ();
  1486.                   break;
  1487.                 case CXCMD_DISABLE:
  1488.                   ActivateCxObj (broker, 0);
  1489.                   enable = FALSE;
  1490.                   setmenu ();
  1491.                   break;
  1492.                 case CXCMD_ENABLE:
  1493.                   ActivateCxObj (broker, 1);
  1494.                   enable = TRUE;
  1495.                   setmenu ();
  1496.                   break;
  1497.                 case CXCMD_UNIQUE:
  1498.                   showwindow ();
  1499.                   break;
  1500.                 case CXCMD_KILL:
  1501.                   cont = FALSE;
  1502.                   break;
  1503.                }
  1504.             }
  1505.          }  // while ((msg
  1506.       }
  1507.       if (userport)
  1508.       {
  1509.          if (sigmask & (1 << userport->mp_SigBit))
  1510.          {
  1511.             jump = FALSE;
  1512.             while ((intuimsg = (struct IntuiMessage *) GetMsg (userport)) != 0)
  1513.             {
  1514.                CopyMem ((char *) intuimsg, (char *) &m, (long) sizeof (struct IntuiMessage));
  1515.                ReplyMsg ((struct Message *) intuimsg);
  1516.                switch (m.Class)
  1517.                {
  1518.                 case IDCMP_CLOSEWINDOW:
  1519.                   if (hideonclose)
  1520.                   {
  1521.                      hidewindow ();
  1522.                   }
  1523.                   else
  1524.                   {
  1525.                      cont = FALSE;
  1526.                   }
  1527.                   break;
  1528.                 case IDCMP_NEWSIZE:
  1529.                   allocbm ();
  1530.                   break;
  1531.                 case IDCMP_IDCMPUPDATE:
  1532.                   ULONG h;
  1533.                   GetAttr (PGA_Top, propgadget, &h);
  1534.                   if (++h != scalefac)
  1535.                   {
  1536.                      scalefac = h;
  1537.                      allocbm ();
  1538.                      setwintitle ();
  1539.                      setmenu ();
  1540.                   }
  1541.                   break;
  1542.                 case IDCMP_MENUPICK:
  1543.                   cont = menupick (m.Code);
  1544.                   break;
  1545.                 case IDCMP_ACTIVEWINDOW:
  1546.                   SetAPen (winrp, pens[0]);
  1547.                   SetBPen (winrp, pens[1]);
  1548.                   printcoords (oldx, oldy);
  1549.                   printrgb (oldx, oldy);
  1550.                   ClearMenuStrip (mywin);
  1551.                   freescreenmenu (ItemAddress (menu, FULLMENUNUM (0, 1, 0)));
  1552.                   makescreenmenu ();
  1553.                   SetMenuStrip (mywin, menu);
  1554.                   break;
  1555.                 case IDCMP_INACTIVEWINDOW:
  1556.                   SetAPen (winrp, pens[2]);
  1557.                   SetBPen (winrp, pens[3]);
  1558.                   printcoords (oldx, oldy);
  1559.                   printrgb (oldx, oldy);
  1560.                   break;
  1561.                 case IDCMP_MOUSEBUTTONS:
  1562.                   if (fixed)
  1563.                   {
  1564.                      if (m.Code == SELECTDOWN)
  1565.                      {
  1566.                         fixedmove = TRUE;
  1567.                      }
  1568.                      else
  1569.                      {
  1570.                         fixedmove = FALSE;
  1571.                      }
  1572.                   }
  1573.                   break;
  1574.                 case IDCMP_MOUSEMOVE:
  1575.                   if (fixedmove)
  1576.                   {
  1577.                      fixedX = scr->MouseX;
  1578.                      fixedY = scr->MouseY;
  1579.                   }
  1580.                   break;
  1581.                 case IDCMP_VANILLAKEY:
  1582.                   cont = vanillakey (m.Code);
  1583.                   break;
  1584.                 case IDCMP_RAWKEY:
  1585.                   rawkey (m.Code, m.Qualifier);
  1586.                   break;
  1587.                 case IDCMP_REFRESHWINDOW:
  1588.                   refresh ();
  1589.                   break;
  1590.                }
  1591.                if (jump)
  1592.                {
  1593.                   break;
  1594.                }
  1595.             }  // while (intuimsg
  1596.          }
  1597.       }  // if (userport)
  1598.       if (app_mp)
  1599.       {
  1600.          if (sigmask & (1 << app_mp->mp_SigBit))
  1601.          {
  1602.             app_clicked = FALSE;
  1603.             while ((appmsg = (struct AppMessage *) GetMsg (app_mp)) != 0)
  1604.             {
  1605.                ReplyMsg ((struct Message *) appmsg);
  1606.                app_clicked = TRUE;
  1607.             }
  1608.             if (app_clicked)
  1609.             {
  1610.                showwindow ();
  1611.             }
  1612.          }
  1613.       }
  1614.       if ((sigmask & (1 << showhidesig)) && cont)
  1615.       {
  1616.          if (mywin)
  1617.          {
  1618.             hidewindow ();
  1619.          }
  1620.          else
  1621.          {
  1622.             showwindow ();
  1623.          }
  1624.       }
  1625.       if ((sigmask & (1 << timesig)) && cont)
  1626.       {
  1627.          if (mywin)
  1628.          {
  1629.             // refresh only if we living on the active screen
  1630.             lock = LockIBase (0);
  1631.             tmpscr = IntuitionBase->ActiveScreen;
  1632.             UnlockIBase (lock);
  1633.             if (scr == tmpscr)
  1634.             {
  1635.                refresh ();
  1636.             }
  1637.             else if (jumptoactivescreen)
  1638.             {
  1639.                setupscreen (tmpscr);
  1640.                screentofront = FALSE;
  1641.                reopenwin ();
  1642.             }
  1643.          }
  1644.       }
  1645.       if (sigmask & SIGBREAKF_CTRL_C)
  1646.       {
  1647.          cont = FALSE;
  1648.       }
  1649.    }  // while (cont)
  1650. }
  1651.  
  1652. //- iff save -----------------------------------
  1653.  
  1654. BOOL openfilereq ()
  1655. {
  1656.  APTR request;
  1657.  
  1658.    request = AllocAslRequestTags (ASL_FileRequest,
  1659.     ASLFR_InitialHeight, scr->Height / 2,
  1660.     ASLFR_Screen, scr,
  1661.     ASLFR_SleepWindow, TRUE,
  1662.     ASLFR_Window, mywin,
  1663.     ASLFR_TitleText, GetString (TXT_SAVEIFF),
  1664.     ASLFR_InitialDrawer, iffpath,
  1665.     ASLFR_InitialFile, iffname,
  1666.     ASLFR_DoSaveMode, TRUE,
  1667.     ASLFR_RejectIcons, TRUE,
  1668.     ASLFR_Screen, OpenWorkBench (),
  1669.     TAG_DONE);
  1670.    if (request)
  1671.    {
  1672.       if (AslRequest (request, NULL))
  1673.       {
  1674.          strncpy (iffpath, ((struct FileRequester *) request)->fr_Drawer, 255);
  1675.          strncpy (iffname, ((struct FileRequester *) request)->fr_File, 108);
  1676.          FreeAslRequest (request);
  1677.          return TRUE;
  1678.       }
  1679.    }
  1680.    return FALSE;
  1681. }
  1682.  
  1683. void write (register __d4 APTR buffer, register __d5 LONG size)
  1684. {
  1685.    if (Write (fh, buffer, size) != size)
  1686.    {
  1687.       throw (1);
  1688.    }
  1689. }
  1690.  
  1691. ULONG compressline (register __a3 UBYTE *src, register __a4 UBYTE *dest, ULONG size)
  1692. {
  1693.  register UBYTE x, y, *tmp, *deststart;
  1694.    
  1695.    deststart = dest;
  1696.    while (size > 1)
  1697.    {
  1698.       x = 0;
  1699.       y = *src++;
  1700.       if (y == *src)
  1701.       {
  1702.          size--;
  1703.          while (size && (x < 127) && (*src == y))
  1704.          {
  1705.             size--;
  1706.             x++;
  1707.             src++;
  1708.          }
  1709.          *dest++ = -x;
  1710.          *dest++ = y;
  1711.       }
  1712.       else
  1713.       {
  1714.          tmp = dest++;
  1715.          while (size && (x < 128) && (*src != y))
  1716.          {
  1717.             size--;
  1718.             x++;
  1719.             *dest++ = y;
  1720.             y = *src++;
  1721.          }
  1722.          *tmp = x - 1;
  1723.          src--;
  1724.       }
  1725.    }
  1726.    if (size)
  1727.    {
  1728.       *dest++ = 0;
  1729.       *dest++ = *src;
  1730.    }
  1731.    return dest - deststart;
  1732. }
  1733.  
  1734. void savetruecolor ()
  1735. {
  1736.  UWORD bpr = ((innerwidth >> 3) + 2) & 0xfffe, byteoff, i, j;
  1737.  UBYTE *mem, *mem2, *offset, r, g, b;
  1738.  ULONG packlen;
  1739.  register UWORD x, y;
  1740.  struct BitMap *bm = NULL;
  1741.  BOOL ownbitmap = FALSE;
  1742.  
  1743.    if (GetBitMapAttr (destbm, BMA_FLAGS) & PIXFMT_RGB24)
  1744.    {
  1745.       bm = destbm;
  1746.    }
  1747.    else
  1748.    {
  1749.       bm = AllocBitMap (innerwidth, innerheight, 24, BMF_CLEAR | BMF_MINPLANES | PIXFMT_RGB24, 0);
  1750.       if (!bm)
  1751.       {
  1752.          error (GetString (TXT_ERROR_ALLOCBITMAPSAVE));
  1753.          throw (1);
  1754.       }
  1755.       ownbitmap = TRUE;
  1756.       BltBitMap (destbm, 0, 0, bm, 0, 0, innerwidth, innerheight, ABNC | ABC, ~0, NULL);
  1757.    }
  1758.    mem = (UBYTE *) AllocVec (bpr * 24, 0);
  1759.    if (!mem)
  1760.    {
  1761.       throw (2);
  1762.    }
  1763.    mem2 = (UBYTE *) AllocVec (bpr << 1, 0);
  1764.    if (!mem2)
  1765.    {
  1766.       throw (3);
  1767.    }
  1768.    for (i = 0; i < destbm->Rows; i++)
  1769.    {
  1770.       memset (mem, 0, bpr * 24);
  1771.       offset = bm->Planes[0] + i * bpr * 24;
  1772.       for (j = 0, y = 7; j < (bpr * 24); j++, y--)
  1773.       {
  1774.          r = *(offset + j++);
  1775.          g = *(offset + j++);
  1776.          b = *(offset + j);
  1777.          if (y > 7) y = 7;
  1778.          byteoff = j / 24;
  1779.          for (x = 0; x < 8; x++)
  1780.          {
  1781.             mem[x*bpr+byteoff] |= ((r >> x) & 1u) << y;
  1782.             mem[(x+8)*bpr+byteoff] |= ((g >> x) & 1u) << y;
  1783.             mem[(x+16)*bpr+byteoff] |= ((b >> x) & 1u) << y;
  1784.          }
  1785.       }
  1786.       for (j = 0; j < (bpr * 24); j += bpr)
  1787.       {
  1788.          packlen = compressline (&mem[j], mem2, bpr);
  1789.          write (mem2, packlen);
  1790.       }
  1791.       RectFill (winrp, leftoff, i + topoff, innerwidth + leftoff - 1, i + topoff);
  1792.    }
  1793.    FreeVec (mem);
  1794.    FreeVec (mem2);
  1795.    if (ownbitmap && bm)
  1796.    {
  1797.       FreeBitMap (bm);
  1798.    }
  1799. }
  1800.  
  1801. void saveiff ()
  1802. {
  1803.  ULONG len, bodylen, packlen, vpmodeid, colors[3];;
  1804.  UWORD i, j, depth;
  1805.  UBYTE cmap[3], *mem;
  1806.  struct BitMapHeader bh;
  1807.  struct DisplayInfo di;
  1808.  char header[] = "FORM....ILBMANNO";
  1809.  char anno[] = "Written by " VERSION "\0";
  1810.  
  1811.    try
  1812.    {
  1813.       // save header
  1814.       depth = GetBitMapAttr (destbm, BMA_DEPTH);
  1815.       write (header, strlen (header));
  1816.       len = (strlen (anno) + 2) & 0xfe;
  1817.       write (&len, 4);
  1818.       write (anno, len);
  1819.       write ("BMHD", 4);
  1820.       len = sizeof (struct BitMapHeader);
  1821.       write (&len, 4);
  1822.       bh.bmh_Width = innerwidth;
  1823.       bh.bmh_Height = innerheight;
  1824.       bh.bmh_Left = bh.bmh_Top = 0;
  1825.       bh.bmh_Depth = cybergfxscreen ? 24 : depth;
  1826.       bh.bmh_Masking = 0;
  1827.       bh.bmh_Compression = 1;
  1828.       bh.bmh_Pad = 0;
  1829.       bh.bmh_Transparent = 0;
  1830.       vpmodeid = GetVPModeID (&scr->ViewPort);
  1831.       if (GetDisplayInfoData (NULL, (UBYTE *) &di, sizeof (struct DisplayInfo), DTAG_DISP, vpmodeid))
  1832.       {
  1833.          bh.bmh_XAspect = di.Resolution.x;
  1834.          bh.bmh_YAspect = di.Resolution.y;
  1835.       }
  1836.       else
  1837.       {
  1838.          bh.bmh_XAspect = bh.bmh_YAspect = 0;
  1839.       }
  1840.       bh.bmh_PageWidth = innerwidth;
  1841.       bh.bmh_PageHeight = innerheight;
  1842.       write (&bh, len);
  1843.       write ("CAMG", 4);
  1844.       len = 4;
  1845.       write (&len, 4);
  1846.       write (&vpmodeid, 4);
  1847.       // no "CMAP" in true color
  1848.       if (!cybergfxscreen)
  1849.       {
  1850.          write ("CMAP", 4);
  1851.          len = 3 * (1 << depth);
  1852.          write (&len, 4);
  1853.          for (i = 0; i < (1 << depth); i++)
  1854.          {
  1855.             GetRGB32 (scr->ViewPort.ColorMap, i, 1, colors);
  1856.             cmap[0] = colors[0] & 0xff;
  1857.             cmap[1] = colors[1] & 0xff;
  1858.             cmap[2] = colors[2] & 0xff;
  1859.             write (cmap, 3);
  1860.          }
  1861.       }
  1862.       write ("BODY....", 8);
  1863.       bodylen = Seek (fh, 0, OFFSET_CURRENT) - 4;
  1864.       
  1865.       if (cybergfxscreen)
  1866.       {
  1867.          savetruecolor ();
  1868.       }
  1869.       else
  1870.       {
  1871.          mem = (UBYTE *) AllocVec (destbm->BytesPerRow << 1, 0);
  1872.          if (mem)
  1873.          {
  1874.             if (GetBitMapAttr (destbm, BMA_FLAGS) & BMF_INTERLEAVED)
  1875.             {
  1876.                // interleaved
  1877.                for (i = 0, len = 0; i < (destbm->Rows * depth); i++, len += destbm->BytesPerRow / depth)
  1878.                {
  1879.                   packlen = compressline (destbm->Planes[0] + len, mem, destbm->BytesPerRow / depth);
  1880.                   write (mem, packlen);
  1881.                   if (!(i % depth))
  1882.                   {
  1883.                      RectFill (winrp, leftoff, i / depth + topoff, innerwidth + leftoff - 1, i / depth + topoff);
  1884.                   }
  1885.                }
  1886.             }
  1887.             else
  1888.             {
  1889.                len = 0;
  1890.                for (i = 0; i < destbm->Rows; i++)
  1891.                {
  1892.                   for (j = 0; j < depth; j++)
  1893.                   {
  1894.                      packlen = compressline (destbm->Planes[j] + len, mem, destbm->BytesPerRow);
  1895.                      write (mem, packlen);
  1896.                   }
  1897.                   len += destbm->BytesPerRow;
  1898.                   RectFill (winrp, leftoff, i + topoff, innerwidth + leftoff - 1, i + topoff);
  1899.                }
  1900.             }
  1901.             FreeVec (mem);
  1902.          }
  1903.          else
  1904.          {
  1905.             throw (3);
  1906.          }
  1907.       }  // if (cybergfxscreen)
  1908.       if (Seek (fh, 0, OFFSET_CURRENT) & 1)
  1909.       {
  1910.          *cmap = 0x80;
  1911.          write (cmap, 1);
  1912.       }
  1913.       len = Seek (fh, 4, OFFSET_BEGINNING) - 8;
  1914.       write (&len, 4);
  1915.       Seek (fh, bodylen, OFFSET_BEGINNING);
  1916.       len = len - bodylen + 4;
  1917.       write (&len, 4);
  1918.    }
  1919.    catch (int) { }
  1920. }
  1921.  
  1922. //- menu ---------------------------------------
  1923.  
  1924. BOOL fixedFunc ()
  1925. {
  1926.    if (!fixed && (item->Flags & CHECKED))
  1927.    {
  1928.       fixed = TRUE;
  1929.       fixedX = scr->MouseX;
  1930.       fixedY = scr->MouseY;
  1931.    }
  1932.    else if (fixed && !(item->Flags & CHECKED))
  1933.    {
  1934.       fixed = FALSE;
  1935.    }
  1936.    return TRUE;
  1937. }
  1938.  
  1939. BOOL fastFunc ()
  1940. {
  1941.    fast = (item->Flags & CHECKED) != 0;
  1942.    return TRUE;
  1943. }
  1944.  
  1945. BOOL crosshairFunc ()
  1946. {
  1947.    crosshair = (item->Flags & CHECKED) != 0;
  1948.    return TRUE;
  1949. }
  1950.  
  1951. BOOL AboutFunc ()
  1952. {
  1953.  static struct EasyStruct es_about = {
  1954.    20, 0,
  1955.    "Lupe",
  1956.    "%s%s%s%s",
  1957.    "%s"
  1958.  };
  1959.  
  1960.  char *era_about[] = {
  1961.    VERSION " (" __DATE__ ")\n\n",
  1962.    GetString (TXT_ABOUT_WRITTENBY),
  1963.    "\n"
  1964.    "  Frank Toepper\n"
  1965.    "  Maxim Gorki Straße 5A\n"
  1966.    "  Greifswald\n"
  1967.    "  17491\n"
  1968.    "  GERMANY\n\n"
  1969.    "E-Mail:\n"
  1970.    "  toepper@rz.uni-greifswald.de\n"
  1971.    "WWW:\n"
  1972.    "  http://www.user.fh-stralsund.de/~rwermke/di.html\n\n",
  1973.    GetString (TXT_ABOUT_PD),
  1974.    "Ok"
  1975.  };
  1976.  
  1977.    EasyRequestArgs (NULL, &es_about, NULL, era_about);
  1978.    return TRUE;
  1979. }
  1980.  
  1981. BOOL jumpFunc ()
  1982. {
  1983.    if (setupscreen (NULL) == NEWSCREEN)
  1984.    {
  1985.       reopenwin ();
  1986.    }
  1987.    return TRUE;
  1988. }
  1989.  
  1990. BOOL jumptoactiveFunc ()
  1991. {
  1992.    jumptoactivescreen = (item->Flags & CHECKED) != 0;
  1993.    return TRUE;
  1994. }
  1995.  
  1996. BOOL saveFunc ()
  1997. {
  1998.  BPTR dirlock, olddirlock;
  1999.  ULONG reg;
  2000.  
  2001.    if (scalefac == 1)
  2002.    {
  2003.     LONG x = oldx, y = oldy;
  2004.       if (!(destbm = AllocBitMap (innerwidth, innerheight, cybergfxscreen ? 24 : scrdepth, cybergfxscreen ? (BMF_CLEAR | BMF_MINPLANES | PIXFMT_RGB24) : BMF_CLEAR, 0)))
  2005.       {
  2006.          error (GetString (TXT_ERROR_ALLOCBITMAPSAVE));
  2007.          return TRUE;
  2008.       }
  2009.       adjustX (x);
  2010.       adjustY (y);
  2011.       BltBitMap (scrbm, x, y, destbm, 0, 0, innerwidth, innerheight, ABNC | ABC, ~0, NULL);
  2012.    }
  2013.    if (openfilereq ())
  2014.    {
  2015.       BltBitMapRastPort (destbm, 0, 0, winrp, leftoff, topoff, innerwidth, innerheight, ABNC | ABC);
  2016.       dirlock = Lock (iffpath, SHARED_LOCK);
  2017.       if (dirlock)
  2018.       {
  2019.          olddirlock = CurrentDir (dirlock);
  2020.          fh = Open (iffname, MODE_NEWFILE);
  2021.          if (fh)
  2022.          {
  2023.             mywin->Flags &= ~SIZEGADGET;
  2024.             reg = GetAPen (winrp);
  2025.             SetAPen (winrp, 0);
  2026.             saveiff ();
  2027.             Close (fh);
  2028.             BltBitMapRastPort (destbm, 0, 0, winrp, leftoff, topoff, innerwidth, innerheight, ABNC | ABC);
  2029.             SetAPen (winrp, reg);
  2030.             mywin->Flags |= SIZEGADGET;
  2031.          }
  2032.          else
  2033.          {
  2034.             error (GetString (TXT_ERROR_CREATE), iffname);
  2035.          }
  2036.          CurrentDir (olddirlock);
  2037.          UnLock (dirlock);
  2038.       }
  2039.       else
  2040.       {
  2041.          error (GetString (TXT_ERROR_LOCK), iffpath);
  2042.       }
  2043.    }
  2044.    if ((scalefac == 1) && destbm)
  2045.    {
  2046.       FreeBitMap (destbm);
  2047.       destbm = NULL;
  2048.    }
  2049.    return TRUE;
  2050. }
  2051.  
  2052. BOOL coordsFunc ()
  2053. {
  2054.    if (!coords && (item->Flags & CHECKED))
  2055.    {
  2056.       coords = TRUE;
  2057.    }
  2058.    else if (coords && !(item->Flags & CHECKED))
  2059.    {
  2060.       coords = FALSE;
  2061.    }
  2062.    else
  2063.    {
  2064.       return TRUE;  // nothing changed
  2065.    }
  2066.    reopenwin ();
  2067.    return TRUE;
  2068. }
  2069.  
  2070. BOOL gridFunc ()
  2071. {
  2072.    grid = (item->Flags & CHECKED) != 0;
  2073.    setupgrid ();
  2074.    return TRUE;
  2075. }
  2076.  
  2077. BOOL showrgbFunc ()
  2078. {
  2079.    if (!showrgb && (item->Flags & CHECKED))
  2080.    {
  2081.       showrgb = TRUE;
  2082.    }
  2083.    else if (showrgb && !(item->Flags & CHECKED))
  2084.    {
  2085.       showrgb = FALSE;
  2086.    }
  2087.    else
  2088.    {
  2089.       return TRUE;  // nothing changed
  2090.    }
  2091.    reopenwin ();
  2092.    return TRUE;
  2093. }
  2094.  
  2095. BOOL enableFunc ()
  2096. {
  2097.    if (item->Flags & CHECKED)
  2098.    {
  2099.       ActivateCxObj (broker, 1);
  2100.       enable = TRUE;
  2101.    }
  2102.    else if (!(item->Flags & CHECKED))
  2103.    {
  2104.       ActivateCxObj (broker, 0);
  2105.       enable = FALSE;
  2106.    }
  2107.    return TRUE;
  2108. }
  2109.  
  2110. BOOL hideoncloseFunc ()
  2111. {
  2112.    hideonclose = (item->Flags & CHECKED) != 0;
  2113.    return TRUE;
  2114. }
  2115.  
  2116. BOOL hideFunc ()
  2117. {
  2118.    hidewindow ();
  2119.    jump = TRUE;
  2120.    return TRUE;
  2121. }
  2122.  
  2123. BOOL QuitFunc ()
  2124. {
  2125.    return FALSE;
  2126. }
  2127.  
  2128. //- args ---------------------------------------
  2129.  
  2130. BOOL argbool (char **argv, char *name, BOOL def)
  2131. {
  2132.  char *value;
  2133.  
  2134.    value = (char *) FindToolType ((UBYTE **) argv, name);
  2135.    if (value)
  2136.    {
  2137.       if (MatchToolValue (value, "YES") || MatchToolValue (value, "ON")) return TRUE;
  2138.       if (MatchToolValue (value, "OFF") || MatchToolValue (value, "NO")) return FALSE;
  2139.    }
  2140.    return def;
  2141. }
  2142.  
  2143. LONG argint (char **argv, UBYTE *name, LONG def)
  2144. {
  2145.  LONG returnvalue;
  2146.  APTR value;
  2147.  
  2148.    value = FindToolType ((UBYTE **) argv, name);
  2149.    if (value)
  2150.    {
  2151.       if (StrToLong ((UBYTE *) value, &returnvalue))
  2152.       {
  2153.          return returnvalue;
  2154.       }
  2155.    }
  2156.    return def;
  2157. }
  2158.  
  2159. void argstring (char *result, char **argv, char *name, size_t size = 49)
  2160. {
  2161.  char *value;
  2162.  
  2163.    value = FindToolType ((UBYTE **) argv, name);
  2164.    if (value)
  2165.    {
  2166.       strncpy (result, value, size);
  2167.    }
  2168. }
  2169.  
  2170. void readargs ()
  2171. {
  2172.  // first time always the tooltypes will be evaluated
  2173.  // if we started from Cli the tooltypes can be overloaded
  2174.  char **argv;
  2175.  struct DiskObject *programicon;
  2176.  struct RDArgs * rdargs;
  2177.  struct DrawInfo *drawinfo;
  2178.  LONG a[21];
  2179.  long *args = a;
  2180.  
  2181.    wintop = scr->RastPort.TxHeight + (UWORD) scr->WBorTop + 1;
  2182.    // make the window as square as possible
  2183.    drawinfo = GetScreenDrawInfo (scr);
  2184.    if (drawinfo)
  2185.    {
  2186.       innerheight = innerwidth * drawinfo->dri_Resolution.X / drawinfo->dri_Resolution.Y;
  2187.       FreeScreenDrawInfo (scr, drawinfo);
  2188.    }
  2189.    if (Cli ())
  2190.    {
  2191.       GetProgramName (programname, 108);
  2192.    }
  2193.    else
  2194.    {
  2195.       strcpy (programname, thistask->tc_Node.ln_Name);
  2196.    }
  2197.    IconBase = OpenLibrary ("icon.library", 37);
  2198.    if (IconBase)
  2199.    {
  2200.       programicon = GetDiskObject (programname);
  2201.       if (programicon)
  2202.       {
  2203.          argv = programicon->do_ToolTypes;
  2204.          newbroker.nb_Pri = argint (argv, "CX_Priority", newbroker.nb_Pri);
  2205.          fast = argbool (argv, "Fast", fast);
  2206.          maxscalefac = argint (argv, "MaxScaleFactor", maxscalefac);
  2207.          scalefac = argint (argv, "ScaleFactor", scalefac);
  2208.          winleft = argint (argv, "WinLeft", winleft);
  2209.          wintop = argint (argv, "WinTop", wintop);
  2210.          innerheight = argint (argv, "WinHeight", innerheight);
  2211.          innerwidth = argint (argv, "WinWidth", innerwidth);
  2212.          coords = argbool (argv, "Coordinates", coords);
  2213.          crosshair = argbool (argv, "Crosshair", crosshair);
  2214.          argstring (setoriginkey, argv, "SetOriginKey");
  2215.          argstring (resetoriginkey, argv, "ResetOriginKey");
  2216.          fixed = argbool (argv, "Fixed", fixed);
  2217.          argstring (showhidekey, argv, "ShowHideKey");
  2218.          hide = argbool (argv, "Iconify", hide);
  2219.          hideonclose = argbool (argv, "IconifyOnClose", hideonclose);
  2220.          grid = argbool (argv, "Grid", grid);
  2221.          showrgb = argbool (argv, "ShowRGB", showrgb);
  2222.          argstring (iffpath, argv, "IFFFile", 255);
  2223.          jumptoactivescreen = argbool (argv, "JumpToActiveScreen", jumptoactivescreen);
  2224.          argstring (language, argv, "LANGUAGE", 20);
  2225.          FreeDiskObject (programicon);
  2226.       }
  2227.       CloseLibrary (IconBase);
  2228.    }
  2229.    if (Cli ())
  2230.    {
  2231.       memset (args, '\0', 21 * sizeof (LONG));
  2232.       args[1] = fast;
  2233.       args[8] = coords;
  2234.       args[9] = crosshair;
  2235.       args[12] = fixed;
  2236.       args[14] = hide;
  2237.       args[15] = hideonclose;
  2238.       args[16] = grid;
  2239.       args[17] = showrgb;
  2240.       args[19] = jumptoactivescreen;
  2241.       rdargs = ReadArgs (Template, args, NULL);
  2242.       if (rdargs)
  2243.       {
  2244.          if (*args) newbroker.nb_Pri = *args;
  2245.          args++;
  2246.          fast = *args++;
  2247.          if (*args) maxscalefac = *(LONG *) *args;
  2248.          if (*++args) scalefac = *(LONG *) *args;
  2249.          if (*++args) winleft = *(LONG *) *args;
  2250.          if (*++args) wintop = *(LONG *) *args;
  2251.          if (*++args) innerwidth = *(LONG *) *args;
  2252.          if (*++args) innerheight = *(LONG *) *args;
  2253.          args++;
  2254.          coords = *args++;
  2255.          crosshair = *args++;
  2256.          if (*args) strncpy (setoriginkey, (char *) *args, 49);
  2257.          if (*++args) strncpy (resetoriginkey, (char *) *args, 49);
  2258.          args++;
  2259.          fixed = *args++;
  2260.          if (*args) strncpy (showhidekey, (char *) *args, 49);
  2261.          args++;
  2262.          hide = *args++;
  2263.          hideonclose = *args++;
  2264.          grid = *args++;
  2265.          showrgb = *args++;
  2266.          if (*args) strncpy (iffpath, (char *) *args, 255);
  2267.          args++;
  2268.          jumptoactivescreen = *args++ != 0;
  2269.          if (*args) strncpy (language, (char *) *args, 19);
  2270.          FreeArgs (rdargs);
  2271.       }
  2272.    }
  2273.    if (maxscalefac < 5) maxscalefac = 5;
  2274.    // not lower than innerheight or innerwidth
  2275.    // otherwise 'innerheight / scalefac' or 'innerwidth / scalefac'
  2276.    // can go to 0 -> 'AllocBitMap ()' failed
  2277.    if (maxscalefac > MINHEIGHT) maxscalefac = MINHEIGHT;
  2278.    if (scalefac > maxscalefac) scalefac = maxscalefac;
  2279.    if (innerheight < MINHEIGHT) innerheight = MINHEIGHT;
  2280.    if (innerwidth < MINWIDTH) innerwidth = MINWIDTH;
  2281.    
  2282.    char *str;
  2283.    str = strrchr (iffpath, '/');
  2284.    if (str)
  2285.    {
  2286.       strncpy (iffname, str + 1, 108);
  2287.       *str = '\0';
  2288.    }
  2289.    else if ((str = strrchr (iffpath, ':')) != 0)
  2290.    {
  2291.       strncpy (iffname, ++str, 108);
  2292.       *str = '\0';
  2293.    }
  2294.    else
  2295.    {
  2296.       strncpy (iffname, iffpath, 108);
  2297.       iffpath[0] = '\0';
  2298.    }
  2299. }
  2300.  
  2301. //- main ---------------------------------------
  2302.  
  2303. struct Library *openlib (char *libname, ULONG ver)
  2304. {
  2305.  struct Library *lib;
  2306.    
  2307.    lib = OpenLibrary (libname, ver);
  2308.    if (!lib)
  2309.    {
  2310.       error (GetString (TXT_ERROR_LIBRARY), libname, ver);
  2311.       throw (1);
  2312.    }
  2313.    return lib;
  2314. }
  2315.  
  2316. void main ()
  2317. {
  2318.    try
  2319.    {
  2320.       CxBase = openlib ("commodities.library", 37);
  2321.       GfxBase = (struct GfxBase *) openlib ("graphics.library", 39);
  2322.       GadToolsBase = openlib ("gadtools.library", 37);
  2323.       WorkbenchBase = openlib ("workbench.library", 37);
  2324.       AslBase = openlib ("asl.library", 37);
  2325.       UtilityBase = openlib ("utility.library", 37);
  2326.       CyberGfxBase = OpenLibrary ("cybergraphics.library", 40);
  2327.       LocaleBase = OpenLibrary ("locale.library", 38);
  2328.       InitRastPort (&destrp);
  2329.       SetAPen (&destrp, 0);
  2330.       InitRastPort (&maskrp);
  2331.       SetDrMd (&maskrp, COMPLEMENT);
  2332.       thistask = FindTask (NULL);
  2333.       if ((topazfont = OpenFont (&topaz_attr)) != 0)
  2334.       {
  2335.          try
  2336.          {
  2337.             setupscreen (NULL);  // needed before readargs ()
  2338.             readargs ();
  2339.             OpenlupeCatalog (0, language[0] ? language : 0);
  2340.             getoffsets ();
  2341.             if (hide)
  2342.             {
  2343.                hidewindow ();
  2344.             }
  2345.             else
  2346.             {
  2347.                openwin ();
  2348.                allocbm ();
  2349.             }
  2350.             if ((timesig = AllocSignal (-1L)) != -1)
  2351.             {
  2352.                if ((showhidesig = AllocSignal (-1L)) != -1)
  2353.                {
  2354.                   try
  2355.                   {
  2356.                      initbroker ();
  2357.                      processmsg ();
  2358.                   }
  2359.                   catch (int) { };
  2360.                   if (broker)
  2361.                   {
  2362.                      DeleteCxObjAll (broker);
  2363.                      broker = NULL;
  2364.                   }
  2365.                   if (broker_mp)
  2366.                   {
  2367.                      DeleteMsgPort (broker_mp);
  2368.                      broker_mp = NULL;
  2369.                   }
  2370.                   FreeSignal (showhidesig);
  2371.                }
  2372.                else
  2373.                {
  2374.                   error (GetString (TXT_ERROR_SIGNAL));
  2375.                }
  2376.                FreeSignal (timesig);
  2377.             }
  2378.             else
  2379.             {
  2380.                error (GetString (TXT_ERROR_SIGNAL));
  2381.             }
  2382.          }  // try
  2383.          catch (int) { }
  2384.          closewin ();
  2385.          CloseDownScreen ();
  2386.          freeappicon ();
  2387.          CloseFont (topazfont);
  2388.          if (screenfont)
  2389.          {
  2390.             CloseFont (screenfont);
  2391.          }
  2392.       }
  2393.       else
  2394.       {
  2395.          error (GetString (TXT_ERROR_FONT));
  2396.       }
  2397.       CloselupeCatalog ();
  2398.       if (LocaleBase)
  2399.       {
  2400.          CloseLibrary (LocaleBase);
  2401.       }
  2402.       if (CyberGfxBase)
  2403.       {
  2404.          CloseLibrary (CyberGfxBase);
  2405.       }
  2406.       CloseLibrary (UtilityBase);
  2407.       CloseLibrary (AslBase);
  2408.       CloseLibrary (WorkbenchBase);
  2409.       CloseLibrary (GadToolsBase);
  2410.       CloseLibrary ((struct Library *) GfxBase);
  2411.       CloseLibrary (CxBase);
  2412.    }
  2413.    catch (int) { }
  2414. }
  2415.  
  2416.