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