home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / BENCH.ZIP / BENCH.C next >
Text File  |  1990-12-09  |  61KB  |  1,975 lines
  1. /*    Bench.c (c) Axel Salomon, 1990, Public Domain   */
  2.  
  3. #define INCL_DOS  /* inlude what we need */
  4. #define INCL_WIN
  5. #define INCL_GPI
  6.  
  7. #include <os2.h>
  8. #include <stdio.h>
  9. #include <stdlib.h>
  10. #include <string.h>
  11. #include <time.h>
  12. #include "bench.h" /* recource definitons */
  13.  
  14.  
  15. /* not that much interesting macros */
  16.  
  17. #define FLOAT float
  18. #define MIN(a,b)     ( a<b ? a : b )
  19. #define IRAND(a)     ( rand() % a )
  20. #define LRAND(a)     ( (LONG)rand() % a )
  21.  
  22. #define MS_HUNDREDTHS   10L
  23. #define MS_SECONDS    1000L  
  24. #define MS_MINUTES   60000L
  25. #define MS_HOUR    3600000L 
  26.  
  27. #define CALC_MSEC( dt ) dt->hours      * MS_HOUR    + \
  28.                         dt->minutes    * MS_MINUTES + \
  29.                         dt->seconds    * MS_SECONDS + \
  30.                         dt->hundredths * MS_HUNDREDTHS
  31.  
  32.  
  33. /* let us start with prototyping */
  34.  
  35. MRESULT EXPENTRY BenchWinProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2); /* the main client window proc */
  36. MRESULT EXPENTRY BenchDlgProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2); /* the standard dialog proc */
  37.  
  38. VOID cdecl main (VOID);        /* the main function, everything starts here */
  39. VOID do_paint   (HWND hwnd);   /* execute when a WM_PAINT message occure    */
  40. VOID do_size    (MPARAM mp2);  /* execute when a WM_SIZE message occure (someone was playing with the sizeframe or with the min/max-buttons */
  41. VOID do_command (HWND hwnd, MPARAM mp1);       /* Execute a menu selection  */
  42.  
  43.  
  44. /* here are all the benchmark functions */
  45.  
  46.  
  47. VOID do_gpi_fonts_all     (HWND hwnd);   
  48. VOID do_gpi_fonts_box     (HWND hwnd);  /* GpiSetCharBox() */
  49. VOID do_gpi_fonts_chars   (HWND hwnd);  /* FATTR.usSelection */
  50. VOID do_gpi_fonts_direct  (HWND hwnd);  /* GpiSetCharDirection() */ 
  51. VOID do_gpi_fonts_angle   (HWND hwnd);  /* GpiSetCharAngle() */
  52. VOID do_gpi_fonts_shear   (HWND hwnd);  /* GpiSetCharShear() */
  53.  
  54. VOID do_gpi_lines_all     (HWND hwnd);  
  55. VOID do_gpi_lines_arcs    (HWND hwnd);  /* GpiFullArc() */
  56. VOID do_gpi_lines_boxes   (HWND hwnd);  /* GpiBox() */
  57. VOID do_gpi_lines_fillets (HWND hwnd);  /* GpiPolyFillet() */
  58. VOID do_gpi_lines_lines   (HWND hwnd);  /* GpiLine() */
  59. VOID do_gpi_lines_splines (HWND hwnd);  /* GpiPolySpline() */
  60. VOID do_gpi_lines_styles  (HWND hwnd);  /* GpiSetLineType() */
  61.  
  62. VOID do_gpi_marker_all    (HWND hwnd); 
  63. VOID do_gpi_marker_box    (HWND hwnd);  /* GpiSetMarkerBox() */
  64. VOID do_gpi_marker_poly   (HWND hwnd);  /* GpiPolyMarker() */
  65. VOID do_gpi_marker_single (HWND hwnd);  /* GpiMarker() */
  66. VOID do_gpi_marker_userdef(HWND hwnd);  /* GpiSetMarkerSet() */
  67.  
  68. VOID do_gpi_paths_all     (HWND hwnd);
  69. VOID do_gpi_paths_ends    (HWND hwnd);  /* GpiSetLineEnd() */
  70. VOID do_gpi_paths_fill    (HWND hwnd);  /* GpiFillPath() */
  71. VOID do_gpi_paths_join    (HWND hwnd);  /* GpiSetLineJoin() */
  72. VOID do_gpi_paths_lines   (HWND hwnd);  /* GpiStrokePath() */
  73. VOID do_gpi_paths_pattern (HWND hwnd);  /* GpiSetPattern() */
  74. VOID do_gpi_paths_width   (HWND hwnd);  /* GpiSetLineWidthGeom() */
  75.  
  76. VOID do_gpi_all           (HWND hwnd);
  77.  
  78. VOID do_gpi_extend        (HWND hwnd);  /* A sample GPI-programm */
  79.  
  80. VOID do_win_dialog_all    (HWND hwnd);
  81. VOID do_win_dialog_buttons(HWND hwnd);  /* Some pushbutton functions */
  82. VOID do_win_dialog_entrys (HWND hwnd);  /* Play with entryfields */
  83. VOID do_win_dialog_listbox(HWND hwnd);  /* Listbox messages */
  84. VOID do_win_dialog_scrollb(HWND hwnd);  /* Scrollbar messages */ 
  85. VOID do_win_dialog_statics(HWND hwnd);  /* Look at different statics */
  86.  
  87. VOID do_win_menus_all     (HWND hwnd);
  88. VOID do_win_menus_attrib  (HWND hwnd);  /* MM_SETITEMATTR - Msg */
  89. VOID do_win_menus_bitmap  (HWND hwnd);  /* MM_SETITEM     - Msg */
  90. VOID do_win_menus_items   (HWND hwnd);  /* Some MM_?ITEM? - Msg */
  91. VOID do_win_menus_show    (HWND hwnd);  /* MM_SELECTITEM  - Msg */
  92.  
  93. VOID do_win_all           (HWND hwnd);
  94.  
  95. /* global functions to help me programm all this, also helpful for you */
  96.  
  97. VOID do_clear_screen( HWND hwnd ); /* clear the window */
  98. INT  do_init(VOID);                /* PM init function */
  99.  
  100. VOID Display_Time(HWND hwnd, PDATETIME start, PDATETIME ende);     /* Displays the Benchmark result in the window title bar */
  101.  
  102. #define TMA_INC_SUBMENU   1    /* Definition for ToggleMenuAttr() */
  103. #define TMA_INC_SYSMENU   2
  104.  
  105. SHORT ToggleMenuAttr( HWND frame, USHORT flags, SHORT id_of_menuitem, SHORT menuitem_attribute ); /* Toggles the attribute of a minuitem */
  106.  
  107. BOOL GpiSetFont (HPS hps, LONG fontid, CHAR *fontname);
  108. BOOL GpiSetCharPointSize(HPS hps, SHORT pointwidth, SHORT pointhight);
  109. BOOL GpiSetCharSelection(HPS hps, LONG fontid, CHAR *fontname, SHORT select);
  110.  
  111.  
  112. /* global variables */
  113.   
  114. HAB      hab;     /* the handle of the anchor block, main connection to PM */
  115. HMQ      hmq;     /* the message queue handle */
  116. HDC      hdc;     /* the handle for a device context, not yet used */
  117. HWND     hwndMainFrame,hwndMainClient;  /* Frame and Client Window handle */
  118.  
  119. POINTL   center;  /* The center of the client window */
  120. INT      cx,cy;   /* The x and y size of the client window */
  121.  
  122. DATETIME start_dt,ende_dt; /* Date and Time of our Benchmark Start and End */
  123.  
  124.  
  125. /* Constants for use in the Benchmark prog. */
  126.  
  127. LONG colors[16] = { CLR_BLACK,        /* the standard colors */
  128.                     CLR_DARKBLUE,
  129.                     CLR_DARKGREEN,
  130.                     CLR_DARKCYAN,
  131.                     CLR_DARKPINK,
  132.                     CLR_DARKRED,
  133.                     CLR_BROWN,
  134.                     CLR_PALEGRAY,
  135.                     CLR_DARKGRAY,
  136.                     CLR_BLUE,
  137.                     CLR_GREEN, 
  138.                     CLR_CYAN,
  139.                     CLR_PINK,
  140.                     CLR_RED,
  141.                     CLR_YELLOW,
  142.                     CLR_WHITE };
  143.  
  144. LONG linetype[8] = { LINETYPE_DEFAULT, /* the standard line styles */
  145.                      LINETYPE_DOT,
  146.                      LINETYPE_SHORTDASH,
  147.                      LINETYPE_DASHDOT,
  148.                      LINETYPE_DOUBLEDOT,
  149.                      LINETYPE_LONGDASH,
  150.                      LINETYPE_DASHDOUBLEDOT,
  151.                      LINETYPE_SOLID };
  152.  
  153. CHAR linetext[8][15] = { "DEFAULT",  /* the text of the lintypes */
  154.                          "DOT",
  155.                          "SHORTDASH",
  156.                          "DASHDOT",
  157.                          "DOUBLEDOT",
  158.                          "LONGDASH",
  159.                          "DASHDOUBLEDOT",
  160.                          "SOLID" };
  161.  
  162. LONG endstyles[4] = { LINEEND_DEFAULT, /* line ending types */
  163.                       LINEEND_FLAT,
  164.                       LINEEND_ROUND,
  165.                       LINEEND_SQUARE };
  166.  
  167. LONG markertype[11] = { MARKSYM_DEFAULT, /* standard marker symbols */
  168.                         MARKSYM_CROSS,
  169.                         MARKSYM_PLUS,
  170.                         MARKSYM_DIAMOND,
  171.                         MARKSYM_SQUARE,
  172.                         MARKSYM_SIXPOINTSTAR,
  173.                         MARKSYM_EIGHTPOINTSTAR,
  174.                         MARKSYM_SOLIDDIAMOND,
  175.                         MARKSYM_SOLIDSQUARE,
  176.                         MARKSYM_DOT,
  177.                         MARKSYM_SMALLCIRCLE };
  178.  
  179. LONG pattern[19] = { PATSYM_BLANK,  /* standard fill pattern */
  180.                      PATSYM_DEFAULT,
  181.                      PATSYM_DENSE1,
  182.                      PATSYM_DENSE2,
  183.                      PATSYM_DENSE3,
  184.                      PATSYM_DENSE4,
  185.                      PATSYM_DENSE5,
  186.                      PATSYM_DENSE6,
  187.                      PATSYM_DENSE7,
  188.                      PATSYM_DENSE8,
  189.                      PATSYM_DIAG1,
  190.                      PATSYM_DIAG2,
  191.                      PATSYM_DIAG3,
  192.                      PATSYM_DIAG4,
  193.                      PATSYM_HALFTONE,
  194.                      PATSYM_HORIZ,
  195.                      PATSYM_NOSHADE,
  196.                      PATSYM_SOLID,
  197.                      PATSYM_VERT };
  198.  
  199. SHORT select[15] = { 0,                 /* all possible selections for font attributes */
  200.                      FATTR_SEL_ITALIC,
  201.                      FATTR_SEL_ITALIC ^ FATTR_SEL_UNDERSCORE,
  202.                      FATTR_SEL_ITALIC ^ FATTR_SEL_STRIKEOUT,
  203.                      FATTR_SEL_ITALIC ^ FATTR_SEL_BOLD,
  204.                      FATTR_SEL_ITALIC ^ FATTR_SEL_UNDERSCORE ^ FATTR_SEL_STRIKEOUT,
  205.                      FATTR_SEL_ITALIC ^ FATTR_SEL_UNDERSCORE ^ FATTR_SEL_BOLD,
  206.                      FATTR_SEL_ITALIC ^ FATTR_SEL_UNDERSCORE ^ FATTR_SEL_STRIKEOUT ^ FATTR_SEL_BOLD,
  207.                      FATTR_SEL_UNDERSCORE,
  208.                      FATTR_SEL_UNDERSCORE ^ FATTR_SEL_STRIKEOUT,
  209.                      FATTR_SEL_UNDERSCORE ^ FATTR_SEL_BOLD,
  210.                      FATTR_SEL_UNDERSCORE ^ FATTR_SEL_STRIKEOUT ^ FATTR_SEL_BOLD,
  211.                      FATTR_SEL_STRIKEOUT,
  212.                      FATTR_SEL_STRIKEOUT ^ FATTR_SEL_BOLD,
  213.                      FATTR_SEL_BOLD };
  214.  
  215. LONG direct[4] = { CHDIRN_LEFTRIGHT, /* the standard char directions */
  216.                    CHDIRN_RIGHTLEFT,
  217.                    CHDIRN_TOPBOTTOM,
  218.                    CHDIRN_BOTTOMTOP };
  219.  
  220.  
  221. CHAR lbsamp[30][40] = { "House of the rising sun",
  222.                         "With a little help from your friends",
  223.                         "The year of the cat",
  224.                         "Bad Moon Rising",
  225.                         "Papa was a rolling stone",
  226.                         "Why can't we live together",
  227.                         "Under the broadwalk",
  228.                         "MacArther park",
  229.                         "Venus",
  230.                         "Aquarius",
  231.                         "Stairways to heaven",
  232.                         "Bat out of hell",
  233.                         "Sounds of silence",
  234.                         "Woman in love",
  235.                         "Never gonna give you up",
  236.                         "Crazy for you",
  237.                         "In the mood",
  238.                         "Nikita",
  239.                         "Even the bad times are good",
  240.                         "See you later alligator",
  241.                         "Running for our lives",
  242.                         "Somewhere in africa",
  243.                         "Wonderful world",
  244.                         "Midnight special",
  245.                         "Hit the road jack",
  246.                         "Babooshka",
  247.                         "I heard it through the grapevine",
  248.                         "Madame de la luna",
  249.                         "If i had a hammer",
  250.                         "C'mon everybody" };
  251.  
  252. /*-----------------------------------------------------------------*/
  253. /*                          M A I N                                */
  254. /*-----------------------------------------------------------------*/
  255. void cdecl main()
  256. {
  257.  QMSG qmsg;    /* a message queue item */
  258.  
  259.  srand( (unsigned) time(NULL) ); /* initialize the random number generator */
  260.  
  261.  if ( do_init() ){               /* do the init stuff */
  262.     while(WinGetMsg(hab, &qmsg, NULL, 0, 0)) /* make the PM workfor you */
  263.        WinDispatchMsg(hab, &qmsg);
  264.  
  265.     WinDestroyWindow( hwndMainFrame ); /* clean up everything */
  266.     WinDestroyMsgQueue( hmq );
  267.     WinTerminate( hab );
  268.  }
  269.  
  270. }
  271.  
  272. /*-----------------------------------------------------------------*/
  273. /*                  Initialisierungs-Prozedur                      */
  274. /*-----------------------------------------------------------------*/
  275. INT do_init()
  276. {
  277.   BOOL ok;
  278.   ULONG flFlags = FCF_STANDARD;
  279.  
  280.   hab = WinInitialize( NULL );         /* Handle Anchor Block to the PM */
  281.   hmq = WinCreateMsgQueue( hab,0 );    /* The Message Queue ... */
  282.  
  283.   ok = GpiLoadFonts( hab, "C:\\OS2\\DLL\\TIMES.FON" ); /* Load Fonts here */
  284.  
  285.   /* Register our window proc. */
  286.   if (!(WinRegisterClass(hab,"BenchWinProc", BenchWinProc, CS_SIZEREDRAW, 0))) {
  287.      WinDestroyMsgQueue( hmq );
  288.      WinTerminate( hab );
  289.      return FALSE;
  290.   }
  291.  
  292.   /* Open the main window */
  293.   if (!(hwndMainFrame = WinCreateStdWindow(HWND_DESKTOP,WS_VISIBLE,&flFlags,
  294.                        "BenchWinProc",NULL,WS_CLIPSIBLINGS,(HMODULE)NULL,MID_MAIN,&hwndMainClient))) {
  295.      WinDestroyMsgQueue( hmq );
  296.      WinTerminate( hab );
  297.      return FALSE;
  298.   }
  299.  
  300.   /* and give it a title */
  301.   WinSetWindowText(hwndMainFrame,"Benchmark Program");
  302.   return TRUE;
  303. }
  304.  
  305. /*-----------------------------------------------------------------*/
  306. /*                 M A I N C L I E N T P R O C                     */
  307. /*-----------------------------------------------------------------*/
  308. MRESULT EXPENTRY BenchWinProc(HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
  309. {
  310.   switch (msg)
  311.    {
  312.      case WM_CREATE:       /* Do what you need on creation */
  313.           break; 
  314.      case WM_COMMAND:      /* Menu selection and Accelerator keys are handled here */
  315.           do_command(hwnd,mp1);
  316.           return 0;
  317.      case WM_PAINT:        /* Do painting here */
  318.           do_paint(hwnd);
  319.           return 0;
  320.      case WM_SIZE:         /* The size of the screen has changed */
  321.           do_size(mp2);
  322.           return 0;
  323.      case WM_CLOSE:        /* We want to close the screen now */
  324.           WinPostMsg( hwnd, WM_QUIT, 0L, 0L);
  325.           return 0;
  326.      default:              /* The rest is the best */
  327.           break;
  328.    }
  329.     return (WinDefWindowProc(hwnd, msg, mp1, mp2 )); /* so don't worry about it */
  330. }
  331.  
  332.  
  333. /*-----------------------------------------------------------------*/
  334. /*                          BenchDlgProc                           */
  335. /*-----------------------------------------------------------------*/
  336. MRESULT EXPENTRY BenchDlgProc(HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
  337. {
  338.    USHORT dialogdata;
  339.  
  340.    switch (msg) {
  341.      case WM_INITDLG:
  342.           WinPostMsg( hwnd, MID_BENCHMARK, mp2, (MPARAM) NULL );
  343.           break;
  344.      case WM_PAINT:
  345.           break;
  346.      case WM_CONTROL:
  347.           break;
  348.      case WM_SETFOCUS:
  349.           break;
  350.      case WM_CHAR:
  351.           break; 
  352.      case WM_COMMAND:
  353.           break;
  354.      case MID_BENCHMARK:
  355.           memcpy(&dialogdata, mp1, sizeof(USHORT));
  356.           switch (dialogdata) {
  357.             case MID_WIN_DIALOGS_BUTTONS: 
  358.                  do_win_dialog_buttons( hwnd );
  359.                  break;
  360.             case MID_WIN_DIALOGS_ENTRYS:
  361.                  do_win_dialog_entrys( hwnd );
  362.                  break;
  363.             case MID_WIN_DIALOGS_LISTBOX:
  364.                  do_win_dialog_listbox( hwnd );
  365.                  break;
  366.             case MID_WIN_DIALOGS_SCROLLB:
  367.                  do_win_dialog_scrollb( hwnd );
  368.                  break;
  369.             case MID_WIN_DIALOGS_STATICS:
  370.                  do_win_dialog_statics( hwnd );
  371.                  break;
  372.             default:
  373.                  return;
  374.           }
  375.           WinDismissDlg( hwnd, TRUE );
  376.           break;
  377.      default:
  378.           break;
  379.    }
  380.   
  381.   return ( WinDefDlgProc( hwnd, msg, mp1, mp2 ) );
  382. }
  383.  
  384.  
  385. /*-----------------------------------------------------------------*/
  386. /*                       Command-Prozeduren                        */
  387. /*-----------------------------------------------------------------*/
  388. VOID do_command(HWND hwnd, MPARAM mp1)
  389. {
  390.    HPOINTER hptr;  /* get a handle for the mouse-pointer */
  391.    USHORT dialogdata;
  392.  
  393.    hptr = WinQueryPointer( HWND_DESKTOP ); /* Query the actual Pointer and save it */
  394.    WinSetPointer( HWND_DESKTOP, (HPOINTER) NULL ); /* Erase the Pointer */
  395.  
  396.    DosGetDateTime(&start_dt); /* Get the current date and time for calculation */
  397.  
  398.    switch (SHORT1FROMMP(mp1))       /* And now : the Messages */
  399.    { 
  400.      case MID_GPI_FONTS_BOX:        /* Draw Text in different Character sizes */ 
  401.           do_gpi_fonts_box(hwnd);
  402.           break;
  403.      case MID_GPI_FONTS_CHARS:      /* Draw Text with different standard attributes */
  404.           do_gpi_fonts_chars(hwnd);
  405.           break;
  406.      case MID_GPI_FONTS_DIRECT:     /* Draw Text in different directions */
  407.           do_gpi_fonts_direct(hwnd);
  408.           break;
  409.      case MID_GPI_FONTS_ANGLE:      /* Draw Text with different angles */
  410.           do_gpi_fonts_angle(hwnd);
  411.           break;
  412.      case MID_GPI_FONTS_SHEAR:      /* Draw Text with shears (like shadows) */
  413.           do_gpi_fonts_shear(hwnd);
  414.           break;
  415.      case MID_GPI_FONTS_ALL:        /* Execute all font benchmark tests */
  416.           do_gpi_fonts_all(hwnd);
  417.           break;
  418.  
  419.      case MID_GPI_LINES_ARCS:       /* Draw filled arcs like spots */
  420.           do_gpi_lines_arcs(hwnd);
  421.           break;
  422.      case MID_GPI_LINES_BOXES:      /* Draw random boxes, you know that ... */
  423.           do_gpi_lines_boxes(hwnd);
  424.           break;
  425.      case MID_GPI_LINES_FILLETS:    /* Draw 3-Point curves, like your baby sister did */
  426.           do_gpi_lines_fillets(hwnd);
  427.           break;
  428.      case MID_GPI_LINES_LINES:      /* Draw some lines around the center, and check your Monitor ! */
  429.           do_gpi_lines_lines(hwnd); /* you'll get "flimmer" on interlaced monitors ! */
  430.           break;
  431.      case MID_GPI_LINES_SPLINES:    /* Draw 4-Point curves, like you do !? <g> */
  432.           do_gpi_lines_splines(hwnd);
  433.           break;
  434.      case MID_GPI_LINES_STYLES:     /* Draw different line-styles */
  435.           do_gpi_lines_styles(hwnd);
  436.           break;
  437.      case MID_GPI_LINES_ALL:        /* execute all line benchmark tests */
  438.           do_gpi_lines_all(hwnd);
  439.           break;
  440.  
  441.      case MID_GPI_MARKER_BOX :      /* draw markers with different sizes */
  442.           do_gpi_marker_box(hwnd); 
  443.           break;
  444.      case MID_GPI_MARKER_POLY :     /* draw 30 Markers each call */
  445.           do_gpi_marker_poly(hwnd);
  446.           break;
  447.      case MID_GPI_MARKER_SINGLE :   /* draw 1 marker each call */
  448.           do_gpi_marker_single(hwnd);
  449.           break;
  450.      case MID_GPI_MARKER_USERDEF :  /* draws very small character markers */
  451.           do_gpi_marker_userdef(hwnd);
  452.           break;
  453.      case MID_GPI_MARKER_ALL :      /* execute all marker benchmark tests */
  454.           do_gpi_marker_all(hwnd);
  455.           break;
  456.  
  457.      case MID_GPI_PATHS_ENDS:       /* draw stroked lines with different endings */
  458.           do_gpi_paths_ends(hwnd);
  459.           break;
  460.      case MID_GPI_PATHS_FILL:       /* draw filled triangles using GpiFillPath() */
  461.           do_gpi_paths_fill(hwnd);
  462.           break;
  463.      case MID_GPI_PATHS_JOIN:       /* draw stroked triangles with different line join attributes */
  464.           do_gpi_paths_join(hwnd);
  465.           break;
  466.      case MID_GPI_PATHS_LINES:      /* draw filled partial arcs, 3-point and 4-point curves and 4-line areas */
  467.           do_gpi_paths_lines(hwnd); /* using GpiPartialArc(), GpiPolyFillet(), GpiPolySpline(), GpiPolyLine() */
  468.           break;
  469.      case MID_GPI_PATHS_PATTERN:    /* same as do_gpi_paths_line, but filled with pattern */
  470.           do_gpi_paths_pattern(hwnd);
  471.           break;
  472.      case MID_GPI_PATHS_WIDTH:      /* same as do_gpi_paths_line, but stroked, not filled, that means only the */
  473.           do_gpi_paths_width(hwnd); /* bounding curve is drawn with a defined line width using GpiSetLineWidthGeom() */
  474.           break;
  475.      case MID_GPI_PATHS_ALL:        /* execute all paths benchmark tests */
  476.           do_gpi_paths_all(hwnd);
  477.           break;
  478.  
  479.      case MID_GPI_ALL:              /* execute all gpi benchmark tests */
  480.           do_gpi_all(hwnd);
  481.           break;
  482.  
  483.      case MID_GPI_EXTEND:           /* draw a extended demo, to see what you can dow with gpi function calls */
  484.           do_gpi_extend(hwnd);
  485.           break;
  486.  
  487.      case MID_WIN_DIALOGS_ALL:
  488.           do_win_dialog_all(hwnd);
  489.           break;
  490.      case MID_WIN_DIALOGS_BUTTONS:
  491.           dialogdata = SHORT1FROMMP(mp1);
  492.           WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH1_DLG, (PVOID) &dialogdata ) );
  493.           break;
  494.      case MID_WIN_DIALOGS_ENTRYS:
  495.           dialogdata = SHORT1FROMMP(mp1);
  496.           WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH2_DLG, (PVOID) &dialogdata ) );
  497.           break;
  498.      case MID_WIN_DIALOGS_LISTBOX:
  499.           dialogdata = SHORT1FROMMP(mp1);
  500.           WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH3_DLG, (PVOID) &dialogdata ) );
  501.           break;
  502.      case MID_WIN_DIALOGS_SCROLLB:
  503.           dialogdata = SHORT1FROMMP(mp1);
  504.           WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH4_DLG, (PVOID) &dialogdata ) );
  505.           break;
  506.      case MID_WIN_DIALOGS_STATICS:
  507.           dialogdata = SHORT1FROMMP(mp1);
  508.           WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH5_DLG, (PVOID) &dialogdata ) );
  509.           break;
  510.  
  511.      case MID_WIN_MENUS_ALL:     
  512.           do_win_menus_all(hwndMainFrame);
  513.           break;
  514.      case MID_WIN_MENUS_ATTRIB:     /* Enable and Disable different menu attributs */
  515.           do_win_menus_attrib(hwndMainFrame);
  516.           break;
  517.      case MID_WIN_MENUS_BITMAPS:    /* Load a bitmap and displays it as a Menuitem */
  518.           do_win_menus_bitmap(hwndMainFrame);
  519.           break;
  520.      case MID_WIN_MENUS_ITEMS:      /* Work on menu items with different messages */
  521.           do_win_menus_items(hwndMainFrame);
  522.           break;
  523.      case MID_WIN_MENUS_SHOW:      /* Selects different Menuitems */
  524.           do_win_menus_show(hwndMainFrame);
  525.           break;
  526.      case MID_WIN_ALL:
  527.           do_win_all(hwndMainFrame);
  528.           break;
  529.  
  530.      case CMD_CLEAR:                /* Clear the screen */
  531.           do_clear_screen(hwnd);
  532.           break;
  533.  
  534.      case CMD_EXIT:                 /* Leave the benchmark test */
  535.           WinPostMsg(hwnd,WM_CLOSE,(MPARAM) NULL,(MPARAM) NULL);
  536.           return;
  537.  
  538.      default:
  539.           return;
  540.      }
  541.  
  542.    DosGetDateTime(&ende_dt);        /* Get the actual time and date */
  543.    Display_Time(hwnd, &start_dt, &ende_dt); /* Calculate and display the time in [ms] in the title bar */
  544.  
  545.    WinSetPointer(HWND_DESKTOP, hptr); /* restore the pointer */
  546.  
  547. }
  548.  
  549.  
  550. /* This function Calculates the difference between start and end of a bench-
  551.    marktest. The result is formatted with sprintf and stored in a buffer.
  552.    The buffer is displayed in title bar. */
  553.  
  554. VOID Display_Time(HWND hwnd, PDATETIME start, PDATETIME ende)     
  555. {
  556.   CHAR buffer[50];
  557.  
  558.   sprintf( buffer, "Benchmark result : %lu ms", (CALC_MSEC(ende))-(CALC_MSEC(start)));
  559.  
  560.   WinSetWindowText( hwndMainFrame, buffer );
  561.  
  562. }
  563.  
  564.  
  565. /*-----------------------------------------------------------------*/
  566. /*                       drawing-procedures                        */
  567. /*-----------------------------------------------------------------*/
  568.  
  569. /* Fill the screen with color of a window */
  570.  
  571. VOID do_paint(HWND hwnd)
  572. {
  573.   RECTL rc; /* the window rectangle */
  574.   HPS hps;  /* the presantation space of the window */
  575.  
  576.   hps =  WinBeginPaint(hwnd, (HPS)NULL, &rc);    /* let us begin */
  577.          WinFillRect( hps, &rc, SYSCLR_WINDOW);  /* fill the space */
  578.          WinEndPaint(hps);                       /* that∩s all */
  579. }
  580.  
  581.  
  582. /* Clear the screen, please */
  583.  
  584. VOID do_clear_screen( HWND hwnd )
  585. {
  586.   HPS hps;
  587.   RECTL rc;
  588.  
  589.   rc.xLeft  = rc.yBottom = 0L;
  590.   rc.xRight = cx;
  591.   rc.yTop   = cy;
  592.  
  593.   hps = WinGetPS( hwnd );                             /* Get the PS */
  594.         WinFillRect( hps, &rc, colors[ IRAND(16) ] ); /* and fill it with a random color */ 
  595.         WinReleasePS( hwnd );                         /* release the PS again */
  596.  
  597. }
  598.  
  599.  
  600. /* store the actual sizes in public varibles, when the WM_SIZE message occur
  601.    also calculate the center of the screen */
  602.  
  603. VOID do_size( MPARAM mp2 )
  604. {
  605.   cx = SHORT1FROMMP(mp2);    /* get the width */
  606.   cy = SHORT2FROMMP(mp2);    /* and hight */
  607.   center.x = (LONG)cx/2;     /* and calculate the */
  608.   center.y = (LONG)cy/2;     /* the center of the screen */
  609. } 
  610.  
  611.  
  612. /*-----------------------------------------------------------------*/
  613. /*                      benchmark-procedures                       */
  614. /*-----------------------------------------------------------------*/
  615.  
  616. /* Fonts */
  617.  
  618. VOID do_gpi_fonts_box(HWND hwnd)
  619. {
  620.   INT i,j;
  621.   POINTL pkt;
  622.   SIZEF size;
  623.   BOOL ok;
  624.   HPS hps;
  625.  
  626.   hps = WinGetPS( hwnd );
  627.  
  628.   ok = GpiSetFont( hps, 1L, (CHAR *)"Tms Rmn" );
  629.  
  630.   for (i=0; i<100; i++ ) {
  631.       pkt.x = LRAND( cx/3 );
  632.       pkt.y = LRAND( cy );
  633.       size.cx = MAKEFIXED( IRAND(200) ,0 );
  634.       size.cy = MAKEFIXED( IRAND(200) ,0 );
  635.       ok = GpiSetColor( hps, colors[ IRAND(16) ] );
  636.       ok = GpiMove( hps, &pkt );
  637.       ok = GpiSetCharBox( hps, &size );
  638.       ok = GpiCharString( hps, 10, "Benchmark");
  639.   }
  640.  
  641.   ok = GpiSetCharSet( hps, 0 );
  642.   ok = GpiDeleteSetId( hps, 1);
  643.  
  644.   WinReleasePS( hwnd );
  645.  
  646. }
  647.  
  648. VOID do_gpi_fonts_direct(HWND hwnd)
  649. {
  650.   INT i,j;
  651.   POINTL pkt;
  652.   SIZEF size;
  653.   BOOL ok;
  654.   HPS hps;
  655.  
  656.   size.cx = MAKEFIXED( 50,0 );
  657.   size.cy = MAKEFIXED( 50,0 );
  658.  
  659.   hps = WinGetPS( hwnd );
  660.  
  661.   ok = GpiSetFont( hps, 1L, (CHAR *)"Tms Rmn" );
  662.   ok = GpiSetCharBox( hps, &size );
  663.  
  664.   for (i=0; i<100; i++ ) {
  665.       pkt.x = LRAND( cx );
  666.       pkt.y = LRAND( cy );
  667.       ok = GpiSetColor( hps, colors[IRAND(16)] );
  668.       ok = GpiSetCharDirection( hps, direct[IRAND(4)] );
  669.       ok = GpiMove( hps, &pkt );
  670.       ok = GpiCharString( hps, 10, "Benchmark");
  671.   }
  672.  
  673.   ok = GpiSetCharSet( hps, 0 );
  674.   ok = GpiDeleteSetId( hps, 1);
  675.  
  676.   WinReleasePS( hwnd );
  677.  
  678. }
  679.  
  680. VOID do_gpi_fonts_chars(HWND hwnd)
  681. {
  682.   INT i,j;
  683.   POINTL pkt;
  684.   SIZEF size;
  685.   BOOL ok;
  686.   HPS hps;
  687.  
  688.   size.cx = MAKEFIXED( 50,0 );
  689.   size.cy = MAKEFIXED( 50,0 );
  690.  
  691.   hps = WinGetPS( hwnd );
  692.  
  693.   for (i=0; i<100; i++ ) {
  694.       pkt.x = LRAND( cx );
  695.       pkt.y = LRAND( cy );
  696.       ok = GpiSetCharSelection( hps, 1L, (CHAR *)"Tms Rmn", select[IRAND(15)] );
  697.       ok = GpiSetCharBox( hps, &size );
  698.       ok = GpiSetColor( hps, colors[IRAND(16)] );
  699.       ok = GpiMove( hps, &pkt );
  700.       ok = GpiCharString( hps, 10, "Benchmark");
  701.       ok = GpiSetCharSet( hps, 0 );
  702.       ok = GpiDeleteSetId( hps, 1);
  703.   }
  704.  
  705.   WinReleasePS( hwnd );
  706.  
  707. }
  708.  
  709. VOID do_gpi_fonts_angle(HWND hwnd)
  710. {
  711.   INT i;
  712.   POINTL pkt;
  713.   GRADIENTL grad;
  714.   SIZEF size;
  715.   BOOL ok;
  716.   HPS hps;
  717.  
  718.   size.cx = MAKEFIXED( 50,0 );
  719.   size.cy = MAKEFIXED( 50,0 );
  720.  
  721.   hps = WinGetPS( hwnd );
  722.  
  723.   ok = GpiSetFont( hps, 1L, (CHAR *)"Tms Rmn" );
  724.   ok = GpiSetCharBox( hps, &size );
  725.  
  726.   for (i=0; i<100; i++ ) {
  727.       pkt.x = LRAND( cx );
  728.       pkt.y = LRAND( cy );
  729.       grad.x = (LONG)(25-rand() % 50 );
  730.       grad.y = (LONG)(25-rand() % 50 );
  731.       ok = GpiSetColor( hps, colors[rand() % 16] );
  732.       ok = GpiMove( hps, &pkt );
  733.       ok = GpiSetCharAngle( hps, &grad );      
  734.       ok = GpiCharString( hps, 10, "Benchmark" );
  735.   }
  736.  
  737.   ok = GpiSetCharSet( hps, 0 );
  738.   ok = GpiDeleteSetId( hps, 1);
  739.  
  740.   WinReleasePS( hwnd );
  741.  
  742. }
  743.  
  744. VOID do_gpi_fonts_shear(HWND hwnd)
  745. {
  746.   INT i;
  747.   POINTL pkt,shear;
  748.   SIZEF size;
  749.   BOOL ok;
  750.   HPS hps;
  751.  
  752.   size.cx = MAKEFIXED( 50,0 );
  753.   size.cy = MAKEFIXED( 50,0 );
  754.  
  755.   hps = WinGetPS( hwnd );
  756.  
  757.   ok = GpiSetFont( hps, 1L, (CHAR *)"Tms Rmn" );
  758.   ok = GpiSetCharBox( hps, &size );
  759.  
  760.   for (i=0; i<100; i++ ) {
  761.       pkt.x = LRAND( cx );
  762.       pkt.y = LRAND( cy );
  763.       shear.x = (LONG)(25-rand() % 50 );
  764.       shear.y = (LONG)(25-rand() % 50 );
  765.       ok = GpiSetColor( hps, colors[rand() % 16] );
  766.       ok = GpiMove( hps, &pkt );
  767.       ok = GpiSetCharShear( hps, &shear );      
  768.       ok = GpiCharString( hps, 10, "Benchmark" );
  769.   }
  770.  
  771.   ok = GpiSetCharSet( hps, 0 );
  772.   ok = GpiDeleteSetId( hps, 1);
  773.  
  774.   WinReleasePS( hwnd );
  775.  
  776. }
  777.  
  778. VOID do_gpi_fonts_all(HWND hwnd)
  779. {
  780.   do_gpi_fonts_box     (hwnd);
  781.   do_gpi_fonts_chars   (hwnd);
  782.   do_gpi_fonts_direct  (hwnd);
  783.   do_gpi_fonts_angle   (hwnd);
  784.   do_gpi_fonts_shear   (hwnd);
  785. }
  786.  
  787. /* Lines */
  788.  
  789. VOID do_gpi_lines_arcs(HWND hwnd)
  790. {
  791.  
  792.   INT i;
  793.   ARCPARAMS arcp = { 1, 1, 0, 0 };
  794.   POINTL pkt;
  795.   BOOL ok;
  796.   HPS hps;
  797.  
  798.   hps = WinGetPS( hwnd );
  799.  
  800.   ok = GpiSetArcParams( hps, &arcp );
  801.  
  802.   for (i=0; i<500; i++) {
  803.       pkt.x = LRAND( cx );
  804.       pkt.y = LRAND( cy );
  805.       ok = GpiSetColor( hps, colors[rand() % 16] );
  806.       ok = GpiMove( hps, &pkt );
  807.       ok = GpiFullArc( hps, DRO_OUTLINEFILL, MAKEFIXED( rand() % 64, 0 ) );
  808.   }
  809.  
  810.   WinReleasePS( hwnd );
  811.  
  812. }
  813.  
  814. VOID do_gpi_lines_boxes(HWND hwnd)
  815. {
  816.  
  817.   INT i;
  818.   BOOL ok;
  819.   HPS hps;
  820.   POINTL pkt;
  821.  
  822.   hps = WinGetPS( hwnd );
  823.  
  824.   ok = GpiMove( hps, ¢er );
  825.   ok = GpiSetColor( hps, CLR_DARKGRAY );
  826.  
  827.   for (i=0; i<500; i++) {
  828.       pkt.x = LRAND( cx );
  829.       pkt.y = LRAND( cy );
  830.       ok = GpiSetColor( hps, colors[rand() % 16] );
  831.       ok = GpiBox( hps, DRO_OUTLINEFILL, &pkt, NULL, NULL );
  832.       ok = GpiMove( hps, &pkt );
  833.   }
  834.  
  835.   WinReleasePS( hwnd );
  836.  
  837. }
  838.  
  839. VOID do_gpi_lines_fillets(HWND hwnd)
  840. { 
  841.   HPS hps;
  842.   POINTL Multipkt[2];
  843.   BOOL ok;
  844.   INT i,j;
  845.  
  846.   hps = WinGetPS( hwnd );
  847.  
  848.   ok =  GpiMove(hps, ¢er);
  849.   for (j=0; j<500; j++ ) {
  850.       for (i=0; i<2; i++ ) {
  851.           ok = GpiSetColor( hps, colors[rand() % 16] );
  852.           Multipkt[i].x = LRAND( cx );
  853.           Multipkt[i].y = LRAND( cy );
  854.           ok =  GpiPolyFillet(hps, 2, Multipkt);
  855.       }
  856.   }
  857.  
  858.   WinReleasePS( hwnd );
  859. }
  860.  
  861. VOID do_gpi_lines_lines(HWND hwnd)
  862. { 
  863.   BOOL ok;
  864.   POINTL p1;
  865.   INT i,c;
  866.   HPS hps;
  867.  
  868.   hps = WinGetPS( hwnd );
  869.  
  870.   p1.x = 0L;
  871.   p1.y = 0L;
  872.  
  873.   for (c=0; c<16; c++ ) {
  874.       ok = GpiSetColor( hps, colors[c] );
  875.       for (i=0 ; i<360; i++ ) {
  876.           ok = GpiMove( hps, ¢er );
  877.           if (i<90) {
  878.              p1.x =(LONG)((FLOAT)cx*(FLOAT)i/90.0);
  879.              }
  880.           else if ( i<180 ) {
  881.              p1.x = cx;
  882.              p1.y = (LONG)((FLOAT)cy*(FLOAT)(i-90)/90.0);
  883.              }
  884.           else if ( i<270 ) {
  885.              p1.x = (LONG)((FLOAT)cx*(FLOAT)(270-i)/90.0);
  886.              p1.y = cy;
  887.              }
  888.           else if ( i<360 ) {
  889.              p1.x = 0L;
  890.              p1.y = (LONG)((FLOAT)cy*(FLOAT)(360-i)/90.0);
  891.              }
  892.           ok = GpiLine( hps, &p1 );
  893.       }
  894.   } 
  895.   WinReleasePS( hwnd );
  896.  
  897. }
  898.  
  899. VOID do_gpi_lines_splines(HWND hwnd)
  900. {
  901.   HPS hps;
  902.   POINTL Multipkt[3];
  903.   BOOL ok;
  904.   INT i,j;
  905.  
  906.   hps = WinGetPS( hwnd );
  907.  
  908.   ok =  GpiSetColor(hps, CLR_CYAN);
  909.   ok =  GpiMove(hps, ¢er);   
  910.  
  911.   for (i=0; i<500; i++ ) {
  912.       for (j=0;j<3;j++) {
  913.           Multipkt[j].x = LRAND( cx );
  914.           Multipkt[j].y = LRAND( cy );
  915.       }
  916.       ok = GpiSetColor( hps, colors[rand() % 16] );
  917.       ok = GpiPolySpline(hps, 3, Multipkt);
  918.   } 
  919.  
  920.  
  921.   WinReleasePS( hwnd );
  922. }
  923.  
  924. VOID do_gpi_lines_styles(HWND hwnd)
  925. {
  926.   HPS hps;
  927.   BOOL ok;
  928.   POINTL pkt;
  929.   INT i,j;
  930.  
  931.   hps = WinGetPS( hwnd );
  932.   
  933.   for ( i=0; i<8; i++) {
  934.       pkt.y = (LONG)((FLOAT)cy/8.0*(FLOAT)i);
  935.       ok = GpiSetLineType(hps,linetype[i]);
  936.       for (j=0; j<(INT)((FLOAT)cy/8.0);j+=3) {
  937.           ok = GpiSetColor( hps, colors[rand() % 16] );
  938.           pkt.x = 0L;
  939.           ok = GpiMove(hps,&pkt);
  940.           pkt.x = cx;
  941.           ok = GpiLine(hps,&pkt);
  942.           pkt.y+=3;
  943.       }
  944.       ok = GpiSetColor( hps, colors[0] );
  945.       pkt.x = 10L;
  946.       pkt.y = (LONG)((FLOAT)cy/8.0*(FLOAT)i);
  947.       ok = GpiMove( hps, &pkt );
  948.       ok = GpiCharString( hps, strlen(linetext[i]), linetext[i] );
  949.   }
  950.  
  951.   WinReleasePS( hwnd );
  952. }
  953.  
  954. VOID do_gpi_lines_all(HWND hwnd)
  955. {
  956.   do_gpi_lines_arcs    (hwnd);
  957.   do_gpi_lines_boxes   (hwnd);
  958.   do_gpi_lines_fillets (hwnd);
  959.   do_gpi_lines_lines   (hwnd);
  960.   do_gpi_lines_splines (hwnd);
  961.   do_gpi_lines_styles  (hwnd);
  962. }
  963.  
  964.  
  965. /* marker */
  966.  
  967. VOID do_gpi_marker_box(HWND hwnd)
  968. {
  969.  
  970.   INT i,j;
  971.   POINTL pkt;
  972.   FATTRS fat;
  973.   SIZEF siz;
  974.   BOOL ok;
  975.   HPS hps;
  976.  
  977.   fat.usRecordLength = sizeof(FATTRS);
  978.   fat.fsSelection    = 0;
  979.   fat.lMatch         = 0;
  980.   fat.idRegistry     = 0;
  981.   fat.usCodePage     = 850;
  982.   fat.lMaxBaselineExt= 0L;
  983.   fat.lAveCharWidth  = 0L;
  984.   fat.fsType         = 0;
  985.   fat.fsFontUse      = FATTR_FONTUSE_OUTLINE;
  986.   strcpy(fat.szFacename,"Tms Rmn");
  987.  
  988.   hps = WinGetPS( hwnd );
  989.  
  990.   ok = GpiCreateLogFont( hps, (PSTR8) NULL, 1, &fat );
  991.   ok = GpiSetMarkerSet( hps, 1 );
  992.  
  993.   for (i=0; i<500; i++) {
  994.      pkt.x = LRAND( cx );
  995.      pkt.y = LRAND( cy );
  996.      siz.cx = MAKEFIXED( rand() % 200, 0 );
  997.      siz.cy = MAKEFIXED( rand() % 200, 0 );
  998.      ok = GpiSetColor( hps, colors[ rand() % 16 ] );
  999.      ok = GpiSetMarker( hps, rand() % 256 );
  1000.      ok = GpiSetMarkerBox( hps, &siz );
  1001.      ok = GpiMarker( hps, &pkt );
  1002.  
  1003.   }
  1004.  
  1005.   WinReleasePS( hwnd );
  1006.  
  1007. }
  1008.  
  1009. VOID do_gpi_marker_poly(HWND hwnd)
  1010. {
  1011.  
  1012.   INT i,j;
  1013.   POINTL pkt,pkte[30];
  1014.   BOOL ok;
  1015.   HPS hps;
  1016.  
  1017.   hps = WinGetPS( hwnd );
  1018.   for (i=0; i<17; i++) {
  1019.       for (j=0; j<30; j++ ) {
  1020.           pkte[j].x = LRAND( cx );
  1021.           pkte[j].y = LRAND( cy );
  1022.       }
  1023.      ok = GpiSetColor( hps, colors[ rand() % 16 ] );
  1024.      ok = GpiSetMarker( hps, markertype[ rand() % 11 ] );
  1025.      ok = GpiPolyMarker( hps, 30, pkte );
  1026.       
  1027.   }
  1028.   WinReleasePS( hwnd );
  1029.  
  1030. }
  1031.  
  1032. VOID do_gpi_marker_single(HWND hwnd)
  1033. {
  1034.  
  1035.   INT i;
  1036.   POINTL pkt;
  1037.   BOOL ok;
  1038.   HPS hps;
  1039.  
  1040.   hps = WinGetPS( hwnd );
  1041.   for( i=0; i<500; i++ ) {
  1042.      pkt.x = LRAND( cx );
  1043.      pkt.y = LRAND( cy );
  1044.      ok = GpiSetColor( hps, colors[ rand() % 16 ] );
  1045.      ok = GpiSetMarker( hps, markertype[ rand() % 11 ] );
  1046.      ok = GpiMarker( hps, &pkt );
  1047.   }
  1048.  
  1049.   WinReleasePS( hwnd );
  1050.  
  1051. }
  1052.  
  1053. VOID do_gpi_marker_userdef(HWND hwnd)
  1054. {
  1055.  
  1056.   INT i,j;
  1057.   POINTL pkt;
  1058.   FATTRS fat;
  1059.   BOOL ok;
  1060.   HPS hps;
  1061.  
  1062.   fat.usRecordLength = sizeof(FATTRS);
  1063.   fat.fsSelection    = 0;
  1064.   fat.lMatch         = 0;
  1065.   fat.idRegistry     = 0;
  1066.   fat.usCodePage     = 850;
  1067.   fat.lMaxBaselineExt= 0L;
  1068.   fat.lAveCharWidth  = 0L;
  1069.   fat.fsType         = 0;
  1070.   fat.fsFontUse      = FATTR_FONTUSE_OUTLINE;
  1071.  
  1072.   hps = WinGetPS( hwnd );
  1073.  
  1074.   ok = GpiCreateLogFont( hps, (PSTR8) NULL, 1, &fat );
  1075.   ok = GpiSetMarkerSet( hps, 1 );
  1076.  
  1077.   for (i=0; i<500; i++) {
  1078.      pkt.x = LRAND( cx );
  1079.      pkt.y = LRAND( cy );
  1080.      ok = GpiSetColor( hps, colors[ rand() % 16 ] );
  1081.      ok = GpiSetMarker( hps, rand() % 256 );
  1082.      ok = GpiMarker( hps, &pkt );
  1083.  
  1084.   }
  1085.  
  1086.   WinReleasePS( hwnd );
  1087.  
  1088. }
  1089.  
  1090. VOID do_gpi_marker_all(HWND hwnd)
  1091. {
  1092.   do_gpi_marker_box(hwnd);
  1093.   do_gpi_marker_poly(hwnd);
  1094.   do_gpi_marker_single(hwnd);
  1095.   do_gpi_marker_userdef(hwnd);
  1096. }
  1097.  
  1098.  
  1099. /* paths */
  1100.  
  1101. VOID do_gpi_paths_ends(HWND hwnd)
  1102. {
  1103.   HPS hps;
  1104.   BOOL ok;
  1105.   POINTL p1,p2;
  1106.   INT i,j;
  1107.  
  1108.   hps = WinGetPS( hwnd );
  1109.   
  1110.   for (i=0; i<4; i++ ) {
  1111.       for (j=0; j<125; j++) {
  1112.           p1.x = LRAND( cx );
  1113.           p1.y = LRAND( cy );
  1114.           p2.x = LRAND( cx );
  1115.           p2.y = LRAND( cy );
  1116.           ok = GpiBeginPath( hps, 1L );
  1117.           ok = GpiSetLineEnd( hps, endstyles[i] );
  1118.           ok = GpiSetLineWidthGeom( hps, 20L );
  1119.           ok = GpiSetColor( hps, colors[ rand() % 16 ] );
  1120.           ok = GpiMove( hps, &p1 );
  1121.           ok = GpiLine( hps, &p2 );
  1122.           ok = GpiEndPath( hps );
  1123.           ok = GpiStrokePath( hps, 1L, NULL );
  1124.       }
  1125.   }
  1126.  
  1127.   WinReleasePS( hwnd );
  1128.  
  1129. }
  1130.  
  1131. VOID do_gpi_paths_fill(HWND hwnd)
  1132. {
  1133.   HPS hps;
  1134.   BOOL ok;
  1135.   INT i;
  1136.   POINTL p1, pkt[2];
  1137.  
  1138.   hps = WinGetPS( hwnd );
  1139.   for (i=0; i<500; i++) {
  1140.       p1.x = LRAND( cx );
  1141.       p1.y = LRAND( cy );
  1142.       pkt[0].x = LRAND( cx );
  1143.       pkt[0].y = LRAND( cy );
  1144.       pkt[1].x = LRAND( cx );
  1145.       pkt[1].y = LRAND( cy );
  1146.       ok = GpiBeginPath( hps, 1L );
  1147.       ok = GpiSetColor( hps, colors[ rand() % 16 ] );
  1148.       ok = GpiMove( hps, &p1 );
  1149.       ok = GpiPolyLine( hps, 2, pkt );
  1150.       ok = GpiLine( hps, &p1 );
  1151.       ok = GpiEndPath( hps );
  1152.       ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1153.   }
  1154.  
  1155.   WinReleasePS( hwnd );
  1156.  
  1157. }
  1158.  
  1159. VOID do_gpi_paths_join(HWND hwnd)
  1160. {
  1161.   static LONG joinstyle[4] = { LINEJOIN_BEVEL,
  1162.                                LINEJOIN_DEFAULT,
  1163.                                LINEJOIN_MITRE,
  1164.                                LINEJOIN_ROUND };
  1165.   HPS hps;
  1166.   BOOL ok;
  1167.   INT i;
  1168.   POINTL p1, pkt[2];
  1169.  
  1170.   hps = WinGetPS( hwnd );
  1171.   for (i=0; i<500; i++) {
  1172.       p1.x = LRAND( cx );
  1173.       p1.y = LRAND( cy );
  1174.       pkt[0].x = LRAND( cx );
  1175.       pkt[0].y = LRAND( cy );
  1176.       pkt[1].x = LRAND( cx );
  1177.       pkt[1].y = LRAND( cy );
  1178.       ok = GpiBeginPath( hps, 1L );
  1179.       ok = GpiSetColor( hps, colors[ rand() % 16 ] );
  1180.       ok = GpiSetLineWidthGeom( hps, 10L );
  1181.       ok = GpiSetLineJoin( hps, joinstyle[ rand() % 4 ] ); 
  1182.       ok = GpiMove( hps, &p1 );
  1183.       ok = GpiPolyLine( hps, 2, pkt );
  1184.       ok = GpiLine( hps, &p1 );
  1185.       ok = GpiEndPath( hps );
  1186.       ok = GpiStrokePath( hps, 1L, NULL );
  1187.   }
  1188.  
  1189.   WinReleasePS( hwnd );
  1190.  
  1191. }
  1192.  
  1193. VOID do_gpi_paths_lines(HWND hwnd)
  1194. {
  1195.   HPS hps;
  1196.   BOOL ok;
  1197.   POINTL pkt,pa1[2],pa2[3];
  1198.   INT i,sa,ea,ra;
  1199.  
  1200.   hps = WinGetPS( hwnd );
  1201.   for (i=0; i<125; i++) {
  1202.       pkt.x = LRAND( cx );
  1203.       pkt.y = LRAND( cy );
  1204.       sa = (INT) LRAND( 360L );
  1205.       ea = (INT) LRAND( 360L );
  1206.       ra = (INT) LRAND( 200L );
  1207.       ok = GpiBeginPath( hps, 1L );
  1208.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1209.       ok = GpiMove( hps, &pkt ); 
  1210.       ok = GpiPartialArc( hps, &pkt, MAKEFIXED( ra, 0), MAKEFIXED( sa, 0 ), MAKEFIXED( ea,0) );
  1211.       ok = GpiLine( hps, &pkt );
  1212.       ok = GpiEndPath( hps );
  1213.       ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1214.   }
  1215.  
  1216.   for (i=0; i<125; i++) {
  1217.       pkt.x = LRAND( cx );
  1218.       pkt.y = LRAND( cy );
  1219.       pa1[0].x = LRAND( cx );
  1220.       pa1[0].y = LRAND( cy );
  1221.       pa1[1].x = LRAND( cx );
  1222.       pa1[1].y = LRAND( cy );
  1223.       ok = GpiBeginPath( hps, 1L );
  1224.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1225.       ok = GpiMove( hps, &pkt );
  1226.       ok = GpiPolyFillet( hps, 2, pa1 );
  1227.       ok = GpiLine( hps, &pkt );
  1228.       ok = GpiEndPath( hps );
  1229.       ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1230.   }
  1231.  
  1232.   for (i=0; i<125; i++) {
  1233.       pkt.x = LRAND( cx );
  1234.       pkt.y = LRAND( cy );
  1235.       pa2[0].x = LRAND( cx );
  1236.       pa2[0].y = LRAND( cy );
  1237.       pa2[1].x = LRAND( cx );
  1238.       pa2[1].y = LRAND( cy );
  1239.       pa2[2].x = LRAND( cx );
  1240.       pa2[2].y = LRAND( cy );
  1241.       ok = GpiBeginPath( hps, 1L );
  1242.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1243.       ok = GpiMove( hps, &pkt );
  1244.       ok = GpiPolySpline( hps, 3, pa2 );
  1245.       ok = GpiLine( hps, &pkt );
  1246.       ok = GpiEndPath( hps );
  1247.       ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1248.   }
  1249.  
  1250.   for (i=0; i<125; i++) {
  1251.       pkt.x = LRAND( cx );
  1252.       pkt.y = LRAND( cy );
  1253.       pa2[0].x = LRAND( cx );
  1254.       pa2[0].y = LRAND( cy );
  1255.       pa2[1].x = LRAND( cx );
  1256.       pa2[1].y = LRAND( cy );
  1257.       pa2[2].x = LRAND( cx );
  1258.       pa2[2].y = LRAND( cy );
  1259.       ok = GpiBeginPath( hps, 1L );
  1260.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1261.       ok = GpiMove( hps, &pkt );
  1262.       ok = GpiPolyLine( hps, 3, pa2 );
  1263.       ok = GpiLine( hps, &pkt );
  1264.       ok = GpiEndPath( hps );
  1265.       ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1266.   }
  1267.  
  1268.   WinReleasePS( hwnd );
  1269.  
  1270. }
  1271.  
  1272. VOID do_gpi_paths_pattern(HWND hwnd)
  1273. {
  1274.   HPS hps;
  1275.   BOOL ok;
  1276.   POINTL pkt,pa1[2],pa2[3];
  1277.   INT i,sa,ea,ra;
  1278.  
  1279.   hps = WinGetPS( hwnd );
  1280.   for (i=0; i<125; i++) {
  1281.       pkt.x = LRAND( cx );
  1282.       pkt.y = LRAND( cy );
  1283.       sa = (INT) LRAND( 360L );
  1284.       ea = (INT) LRAND( 360L );
  1285.       ra = (INT) LRAND( 200L );
  1286.       ok = GpiBeginPath( hps, 1L );
  1287.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1288.       ok = GpiSetPattern( hps, pattern[ rand() % 19 ] );
  1289.       ok = GpiMove( hps, &pkt ); 
  1290.       ok = GpiPartialArc( hps, &pkt, MAKEFIXED( ra, 0), MAKEFIXED( sa, 0 ), MAKEFIXED( ea,0) );
  1291.       ok = GpiLine( hps, &pkt );
  1292.       ok = GpiEndPath( hps );
  1293.       ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1294.   }
  1295.  
  1296.   for (i=0; i<125; i++) {
  1297.       pkt.x = LRAND( cx );
  1298.       pkt.y = LRAND( cy );
  1299.       pa1[0].x = LRAND( cx );
  1300.       pa1[0].y = LRAND( cy );
  1301.       pa1[1].x = LRAND( cx );
  1302.       pa1[1].y = LRAND( cy );
  1303.       ok = GpiBeginPath( hps, 1L );
  1304.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1305.       ok = GpiSetPattern( hps, pattern[ rand() % 19 ] );
  1306.       ok = GpiMove( hps, &pkt );
  1307.       ok = GpiPolyFillet( hps, 2, pa1 );
  1308.       ok = GpiLine( hps, &pkt );
  1309.       ok = GpiEndPath( hps );
  1310.       ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1311.   }
  1312.  
  1313.   for (i=0; i<125; i++) {
  1314.       pkt.x = LRAND( cx );
  1315.       pkt.y = LRAND( cy );
  1316.       pa2[0].x = LRAND( cx );
  1317.       pa2[0].y = LRAND( cy );
  1318.       pa2[1].x = LRAND( cx );
  1319.       pa2[1].y = LRAND( cy );
  1320.       pa2[2].x = LRAND( cx );
  1321.       pa2[2].y = LRAND( cy );
  1322.       ok = GpiBeginPath( hps, 1L );
  1323.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1324.       ok = GpiSetPattern( hps, pattern[ rand() % 19 ] );
  1325.       ok = GpiMove( hps, &pkt );
  1326.       ok = GpiPolySpline( hps, 3, pa2 );
  1327.       ok = GpiLine( hps, &pkt );
  1328.       ok = GpiEndPath( hps );
  1329.       ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1330.   }
  1331.  
  1332.   for (i=0; i<125; i++) {
  1333.       pkt.x = LRAND( cx );
  1334.       pkt.y = LRAND( cy );
  1335.       pa2[0].x = LRAND( cx );
  1336.       pa2[0].y = LRAND( cy );
  1337.       pa2[1].x = LRAND( cx );
  1338.       pa2[1].y = LRAND( cy );
  1339.       pa2[2].x = LRAND( cx );
  1340.       pa2[2].y = LRAND( cy );
  1341.       ok = GpiBeginPath( hps, 1L );
  1342.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1343.       ok = GpiSetPattern( hps, pattern[ rand() % 19 ] );
  1344.       ok = GpiMove( hps, &pkt );
  1345.       ok = GpiPolyLine( hps, 3, pa2 );
  1346.       ok = GpiLine( hps, &pkt );
  1347.       ok = GpiEndPath( hps );
  1348.       ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1349.   }
  1350.  
  1351.   WinReleasePS( hwnd );
  1352.  
  1353. }
  1354.  
  1355. VOID do_gpi_paths_width(HWND hwnd)
  1356. {
  1357.   HPS hps;
  1358.   BOOL ok;
  1359.   POINTL pkt,pa1[2],pa2[3];
  1360.   INT i,sa,ea,ra;
  1361.  
  1362.   hps = WinGetPS( hwnd );
  1363.  
  1364.   for (i=0; i<125; i++) {
  1365.       pkt.x = LRAND( cx );
  1366.       pkt.y = LRAND( cy );
  1367.       sa = (INT) LRAND( 360L );
  1368.       ea = (INT) LRAND( 360L );
  1369.       ra = (INT) LRAND( 200L );
  1370.       ok = GpiBeginPath( hps, 1L );
  1371.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1372.       ok = GpiSetLineWidthGeom( hps, LRAND( 64L ) );
  1373.       ok = GpiMove( hps, &pkt ); 
  1374.       ok = GpiPartialArc( hps, &pkt, MAKEFIXED( ra, 0), MAKEFIXED( sa, 0 ), MAKEFIXED( ea,0) );
  1375.       ok = GpiLine( hps, &pkt );
  1376.       ok = GpiEndPath( hps );
  1377.       ok = GpiStrokePath( hps, 1L, NULL );
  1378.   }
  1379.  
  1380.   for (i=0; i<125; i++) {
  1381.       pkt.x = LRAND( cx );
  1382.       pkt.y = LRAND( cy );
  1383.       pa1[0].x = LRAND( cx );
  1384.       pa1[0].y = LRAND( cy );
  1385.       pa1[1].x = LRAND( cx );
  1386.       pa1[1].y = LRAND( cy );
  1387.       ok = GpiBeginPath( hps, 1L );
  1388.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1389.       ok = GpiSetLineWidthGeom( hps, LRAND( 64L ) );
  1390.       ok = GpiMove( hps, &pkt );
  1391.       ok = GpiPolyFillet( hps, 2, pa1 );
  1392.       ok = GpiLine( hps, &pkt );
  1393.       ok = GpiEndPath( hps );
  1394.       ok = GpiStrokePath( hps, 1L, NULL );
  1395.   }
  1396.  
  1397.   for (i=0; i<125; i++) {
  1398.       pkt.x = LRAND( cx );
  1399.       pkt.y = LRAND( cy );
  1400.       pa2[0].x = LRAND( cx );
  1401.       pa2[0].y = LRAND( cy );
  1402.       pa2[1].x = LRAND( cx );
  1403.       pa2[1].y = LRAND( cy );
  1404.       pa2[2].x = LRAND( cx );
  1405.       pa2[2].y = LRAND( cy );
  1406.       ok = GpiBeginPath( hps, 1L );
  1407.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1408.       ok = GpiSetLineWidthGeom( hps, LRAND( 64L ) );
  1409.       ok = GpiMove( hps, &pkt );
  1410.       ok = GpiPolySpline( hps, 3, pa2 );
  1411.       ok = GpiLine( hps, &pkt );
  1412.       ok = GpiEndPath( hps );
  1413.       ok = GpiStrokePath( hps, 1L, NULL );
  1414.   }
  1415.  
  1416.   for (i=0; i<125; i++) {
  1417.       pkt.x = LRAND( cx );
  1418.       pkt.y = LRAND( cy );
  1419.       pa2[0].x = LRAND( cx );
  1420.       pa2[0].y = LRAND( cy );
  1421.       pa2[1].x = LRAND( cx );
  1422.       pa2[1].y = LRAND( cy );
  1423.       pa2[2].x = LRAND( cx );
  1424.       pa2[2].y = LRAND( cy );
  1425.       ok = GpiBeginPath( hps, 1L );
  1426.       ok = GpiSetColor( hps, colors[rand() % 16] );
  1427.       ok = GpiSetLineWidthGeom( hps, LRAND( 64L ) );
  1428.       ok = GpiMove( hps, &pkt );
  1429.       ok = GpiPolyLine( hps, 3, pa2 );
  1430.       ok = GpiLine( hps, &pkt );
  1431.       ok = GpiEndPath( hps );
  1432.       ok = GpiStrokePath( hps, 1L, NULL );
  1433.   }
  1434.  
  1435.   WinReleasePS( hwnd );
  1436.  
  1437. }
  1438.  
  1439. VOID do_gpi_paths_all(HWND hwnd)
  1440. {
  1441.   do_gpi_paths_ends    (hwnd);
  1442.   do_gpi_paths_fill    (hwnd);
  1443.   do_gpi_paths_join    (hwnd);
  1444.   do_gpi_paths_lines   (hwnd);
  1445.   do_gpi_paths_pattern (hwnd);
  1446.   do_gpi_paths_width   (hwnd);
  1447. }
  1448.  
  1449. VOID do_gpi_all(HWND hwnd)
  1450. { 
  1451.   do_gpi_fonts_all  (hwnd);
  1452.   do_gpi_lines_all  (hwnd);
  1453.   do_gpi_marker_all (hwnd);
  1454.   do_gpi_paths_all  (hwnd);
  1455. }
  1456.  
  1457. VOID do_gpi_extend(HWND hwnd)
  1458. {
  1459.   HPS hps;
  1460.   BOOL ok;
  1461.   POINTL pkt,shear;
  1462.   INT i,sa,ea,ra;
  1463.   FATTRS fat;
  1464.   SIZEF size;
  1465.   GRADIENTL grad;
  1466.  
  1467.   static INT  pie[5] = { 40, 60, 95, 65, 50 };
  1468.   static LONG col[5] = { CLR_PINK, CLR_DARKCYAN, CLR_YELLOW, CLR_DARKPINK, CLR_CYAN }; 
  1469.  
  1470.   fat.usRecordLength = sizeof(FATTRS);
  1471.   fat.fsSelection    = 0;
  1472.   fat.lMatch         = 0;
  1473.   fat.idRegistry     = 0;
  1474.   fat.usCodePage     = 850;
  1475.   fat.lMaxBaselineExt= 0L;
  1476.   fat.lAveCharWidth  = 0L;
  1477.   fat.fsType         = 0;
  1478.   fat.fsFontUse      = FATTR_FONTUSE_OUTLINE;
  1479.   strcpy(fat.szFacename,"Tms Rmn");
  1480.  
  1481.   size.cx = MAKEFIXED( 50,0 );
  1482.   size.cy = MAKEFIXED( 50,0 );
  1483.  
  1484.   shear.x = 20;
  1485.   shear.y = 20;
  1486.  
  1487.   pkt.x = 10;
  1488.   pkt.y = 10;
  1489.  
  1490.   hps = WinGetPS( hwnd );
  1491.  
  1492.   ok = GpiCreateLogFont( hps, (PSTR8) NULL, 1, &fat );
  1493.   ok = GpiSetCharSet( hps, 1 );
  1494.   ok = GpiSetCharBox( hps, &size );
  1495.   ok = GpiSetCharShear( hps, &shear );
  1496.   ok = GpiMove( hps, &pkt );
  1497.   ok = GpiSetColor( hps, CLR_DARKGRAY );
  1498.   ok = GpiCharString( hps, 10, "Benchmark" );
  1499.  
  1500.   shear.x = 0;
  1501.   shear.y = 0;
  1502.  
  1503.   ok = GpiMove( hps, &pkt );
  1504.   ok = GpiSetColor( hps, CLR_PALEGRAY );
  1505.   ok = GpiSetCharShear( hps, &shear );
  1506.   ok = GpiCharString( hps, 10, "Benchmark" );
  1507.  
  1508.   pkt.x = center.x/2;
  1509.   pkt.y = center.y;
  1510.  
  1511.   ra = 75; sa = 0; ea = 50;
  1512.  
  1513.   for (i=0; i<5; i++ ) {
  1514.      ok = GpiBeginPath( hps, 1L );
  1515.      ok = GpiSetColor( hps, col[i] );
  1516.      ok = GpiMove( hps, &pkt);
  1517.      ok = GpiPartialArc( hps, &pkt, MAKEFIXED( ra, 0 ), MAKEFIXED( sa, 0 ), MAKEFIXED( ea, 0 )  );
  1518.      ok = GpiLine( hps, &pkt);
  1519.      ok = GpiEndPath( hps );
  1520.      ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1521.      sa += ea; ea = pie[i];
  1522.   }
  1523.  
  1524.   pkt.x += 10;
  1525.   pkt.y -= 4;
  1526.  
  1527.   ok = GpiBeginPath( hps, 1L );
  1528.   ok = GpiSetColor( hps, CLR_BLUE );
  1529.   ok = GpiMove( hps, &pkt);
  1530.   ok = GpiPartialArc( hps, &pkt, MAKEFIXED( ra, 0 ), MAKEFIXED( sa, 0 ), MAKEFIXED( ea, 0 )  );
  1531.   ok = GpiLine( hps, &pkt);
  1532.   ok = GpiEndPath( hps );
  1533.   ok = GpiFillPath( hps, 1L, FPATH_ALTERNATE );
  1534.  
  1535.   grad.x =  50;
  1536.   grad.y = -25;
  1537.  
  1538.   size.cx = MAKEFIXED( 20,0 );
  1539.   size.cy = MAKEFIXED( 20,0 );
  1540.  
  1541.   pkt.x += 80;
  1542.   pkt.y -= 38;
  1543.  
  1544.   ok = GpiSetColor( hps, CLR_DARKBLUE );
  1545.   ok = GpiMove( hps, &pkt );
  1546.   ok = GpiSetCharAngle( hps, &grad );
  1547.   ok = GpiSetCharBox( hps, &size );
  1548.   ok = GpiCharString( hps, 14, "Extra Segment" );
  1549.  
  1550.   ok = GpiBeginPath( hps, 1L );
  1551.   ok = GpiSetColor( hps, CLR_BLACK );
  1552.   pkt.x = center.x+20;
  1553.   pkt.y = center.y-5;
  1554.   ok = GpiMove( hps, &pkt );
  1555.   pkt.y = cy-5;
  1556.   ok = GpiLine( hps, &pkt );
  1557.   pkt.x = center.x+15;
  1558.   pkt.y = center.y;
  1559.   ok = GpiMove( hps, &pkt );
  1560.   pkt.x = cx-5;
  1561.   ok = GpiLine( hps, &pkt );
  1562.   ok = GpiEndPath( hps );
  1563.   ok = GpiStrokePath( hps, 1L, FPATH_ALTERNATE );
  1564.  
  1565.   WinReleasePS( hwnd );
  1566.  
  1567. }
  1568.  
  1569.  
  1570. /* win-funcs */
  1571.  
  1572. VOID do_win_dialog_buttons( HWND hwnd )
  1573. {
  1574.   int i,j;
  1575.   CHAR bench[13] = "MBAERNKC H  ";
  1576.   CHAR c[2] = "A";
  1577.   LONG col1,col2;
  1578.  
  1579.   for (i=DID_BUTTONS_0; i<=DID_BUTTONS_B; i++) {
  1580.       WinShowWindow( WinWindowFromID( hwnd, i ), FALSE );
  1581.   }
  1582.   for (i=DID_BUTTONS_0; i<=DID_BUTTONS_B; i++) {
  1583.       WinShowWindow( WinWindowFromID( hwnd, i ), TRUE );
  1584.   }
  1585.  
  1586.   for (i=0; i<13; i++) {
  1587.       col1=colors[i+1]; col2=colors[14-i];
  1588.       WinSetPresParam( WinWindowFromID( hwnd, DID_BUTTONS_0+i ), PP_FOREGROUNDCOLORINDEX, sizeof(col1), &col1 );
  1589.       WinSetPresParam( WinWindowFromID( hwnd, DID_BUTTONS_0+i ), PP_BACKGROUNDCOLORINDEX, sizeof(col2), &col2 );
  1590.   }
  1591.  
  1592.   for (i=0; i<13; i++) {
  1593.       for (j=127; j>=bench[i]; j-- ) {
  1594.           c[0] = j;
  1595.           WinSetWindowText( WinWindowFromID( hwnd, DID_BUTTONS_0+i ), c );
  1596.       }
  1597.   }
  1598. }
  1599.  
  1600. VOID do_win_dialog_entrys ( HWND hwnd )
  1601. {
  1602.   HWND entry;
  1603.   int i;
  1604.  
  1605.   entry = WinWindowFromID( hwnd, DID_ENTRYFIELD );
  1606.  
  1607.   WinSendMsg( entry, EM_SETTEXTLIMIT, (MPARAM) 100, (MPARAM) NULL );
  1608.   WinSetWindowText( entry, "Benchmark Benchmark Benchmark Benchmark Benchmark Benchmark ");
  1609.  
  1610.   /* Clipbord messages */
  1611.   
  1612.   WinSendMsg( entry, EM_SETSEL, MPFROM2SHORT((USHORT) 10, (USHORT) 19), (MPARAM) NULL );
  1613.   WinSendMsg( entry, EM_CUT, (MPARAM) NULL, (MPARAM) NULL );
  1614.   WinSendMsg( entry, EM_SETSEL, MPFROM2SHORT((USHORT) 1, (USHORT) 1), (MPARAM) NULL );
  1615.   WinSendMsg( entry, EM_COPY, (MPARAM) NULL, (MPARAM) NULL ); 
  1616.   WinSendMsg( entry, EM_SETSEL, MPFROM2SHORT((USHORT) 2, (USHORT) 11), (MPARAM) NULL );
  1617.   WinSendMsg( entry, EM_PASTE, (MPARAM) NULL, (MPARAM) NULL );
  1618.   WinSendMsg( entry, EM_SETSEL, MPFROM2SHORT((USHORT) 5, (USHORT) 5), (MPARAM) NULL );
  1619.   WinSendMsg( entry, EM_COPY, (MPARAM) NULL, (MPARAM) NULL ); 
  1620.  
  1621.   /* Cursormovement and selection */
  1622.  
  1623.   for (i=0; i<60; i++) {
  1624.       WinSendMsg( entry, EM_SETFIRSTCHAR, MPFROMSHORT((SHORT) i), (MPARAM) NULL );
  1625.   }
  1626.  
  1627.   for (i=58; i>=0; i--) {
  1628.       WinSendMsg( entry, EM_SETFIRSTCHAR, MPFROMSHORT((SHORT) i), (MPARAM) NULL );
  1629.   }
  1630.  
  1631.   for (i=0; i<40; i++) {
  1632.       WinSendMsg( entry, EM_SETSEL, MPFROM2SHORT((USHORT) 0, (USHORT) i), (MPARAM) NULL );
  1633.   } 
  1634.  
  1635.   for (i=39; i>=0; i--) {
  1636.       WinSendMsg( entry, EM_SETSEL, MPFROM2SHORT((USHORT) 0, (USHORT) i), (MPARAM) NULL );
  1637.   } 
  1638.  
  1639.   for (i=0; i<100; i++) {
  1640.       WinSendMsg( entry, EM_SETINSERTMODE, MPFROMSHORT( (SHORT)(i%2) ), (MPARAM) NULL );
  1641.   }
  1642.  
  1643. }
  1644.  
  1645. VOID do_win_dialog_listbox( HWND hwnd )
  1646. {
  1647.   HWND listbox;
  1648.   CHAR buffer[40];
  1649.   int i;
  1650.  
  1651.   listbox = WinWindowFromID( hwnd, DID_LISTBOX );
  1652.  
  1653.   for (i=0; i<30; i++) {
  1654.       WinSendMsg( listbox, LM_INSERTITEM, MPFROMSHORT((SHORT) LIT_SORTASCENDING), MPFROMP( (PSZ) lbsamp[i] ) );
  1655.   }
  1656.  
  1657.   WinSendMsg( listbox, LM_DELETEALL, (MPARAM) NULL, (MPARAM) NULL );
  1658.  
  1659.   for (i=0; i<30; i++) {
  1660.       WinSendMsg( listbox, LM_INSERTITEM, MPFROMSHORT((SHORT) LIT_SORTASCENDING), MPFROMP( (PSZ) lbsamp[i] ) );
  1661.   }
  1662.  
  1663.   for (i=0; i<180; i++) {
  1664.       WinSendMsg( listbox, LM_SELECTITEM, MPFROMSHORT((SHORT) (i%30)), MPFROMSHORT((SHORT) TRUE) );
  1665.   }  
  1666.  
  1667.   for (i=0; i<80; i++) {
  1668.       WinSendMsg( listbox, LM_QUERYITEMTEXT, MPFROM2SHORT( (SHORT) 1, (SHORT) 40 ), MPFROMP( (PSZ) buffer ) );
  1669.       WinSendMsg( listbox, LM_DELETEITEM, MPFROMSHORT((SHORT) 1), (MPARAM) NULL );
  1670.       WinSendMsg( listbox, LM_INSERTITEM, MPFROMSHORT((SHORT) LIT_END), MPFROMP( (PSZ) buffer ) );
  1671.   }  
  1672.  
  1673. }
  1674.  
  1675. VOID do_win_dialog_scrollb( HWND hwnd )
  1676. {
  1677.   HWND sb1, sb2;
  1678.   int i;
  1679.  
  1680.   sb1 = WinWindowFromID( hwnd, DID_SCROLLBAR1 );
  1681.   sb2 = WinWindowFromID( hwnd, DID_SCROLLBAR2 );
  1682.  
  1683.   WinSendMsg( sb1, SBM_SETSCROLLBAR, (MPARAM) NULL, MPFROM2SHORT( (USHORT) 0, (USHORT) 255 ) );
  1684.   WinSendMsg( sb2, SBM_SETSCROLLBAR, (MPARAM) NULL, MPFROM2SHORT( (USHORT) 0, (USHORT) 255 ) );
  1685.  
  1686.   for (i=0; i<256; i++) {
  1687.       WinSendMsg( sb1, SBM_SETPOS, MPFROMSHORT( (USHORT) i ), (MPARAM) NULL );
  1688.       WinSendMsg( sb2, SBM_SETPOS, MPFROMSHORT( (USHORT) i ), (MPARAM) NULL );
  1689.   }
  1690.  
  1691.   for (i=255; i>=0; i--) {
  1692.       WinSendMsg( sb1, SBM_SETPOS, MPFROMSHORT( (USHORT) i ), (MPARAM) NULL );
  1693.       WinSendMsg( sb2, SBM_SETPOS, MPFROMSHORT( (USHORT) i ), (MPARAM) NULL );
  1694.   }
  1695.  
  1696.   for (i=0; i<256; i++) {
  1697.       WinSendMsg( sb1, SBM_SETTHUMBSIZE, MPFROM2SHORT( (USHORT) i, (USHORT) 256 ), (MPARAM) NULL );
  1698.       WinSendMsg( sb2, SBM_SETTHUMBSIZE, MPFROM2SHORT( (USHORT) i, (USHORT) 256 ), (MPARAM) NULL );
  1699.   }
  1700.  
  1701.   for (i=255; i>=0; i--) {
  1702.       WinSendMsg( sb1, SBM_SETTHUMBSIZE, MPFROM2SHORT( (USHORT) i, (USHORT) 256 ), (MPARAM) NULL );
  1703.       WinSendMsg( sb2, SBM_SETTHUMBSIZE, MPFROM2SHORT( (USHORT) i, (USHORT) 256 ), (MPARAM) NULL );
  1704.   }
  1705.  
  1706. }
  1707.  
  1708. VOID do_win_dialog_statics( HWND hwnd )
  1709. {
  1710.   HWND hStatic;
  1711.   HBITMAP hBmp1, hBmp2;
  1712.   HPS hps;
  1713.   int i;
  1714.  
  1715.   hps   = WinGetPS( hwnd );
  1716.   hBmp1 = GpiLoadBitmap( hps, (HMODULE) NULL, MID_BMP1, 58L, 48L );
  1717.   hBmp2 = GpiLoadBitmap( hps, (HMODULE) NULL, MID_BMP2, 58L, 48L );
  1718.   WinReleasePS( hps );
  1719.  
  1720.   hStatic = WinWindowFromID( hwnd, DID_STATIC_1 ); /* Get Bitmap */
  1721.  
  1722.   for (i=0; i<100; i++) {
  1723.       WinSendMsg( hStatic, SM_SETHANDLE, MPFROMLONG( (ULONG) hBmp2 ), (MPARAM) NULL );
  1724.       WinSendMsg( hStatic, SM_SETHANDLE, MPFROMLONG( (ULONG) hBmp1 ), (MPARAM) NULL );
  1725.   }  
  1726.  
  1727. }
  1728.  
  1729. VOID do_win_dialog_all( HWND hwnd )
  1730. {
  1731.   SHORT dialogdata;
  1732.  
  1733.   dialogdata = MID_WIN_DIALOGS_BUTTONS;
  1734.   WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH1_DLG, (PVOID) &dialogdata ) );
  1735.   dialogdata = MID_WIN_DIALOGS_ENTRYS;
  1736.   WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH2_DLG, (PVOID) &dialogdata ) );
  1737.   dialogdata = MID_WIN_DIALOGS_LISTBOX;
  1738.   WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH3_DLG, (PVOID) &dialogdata ) );
  1739.   dialogdata = MID_WIN_DIALOGS_SCROLLB;
  1740.   WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH4_DLG, (PVOID) &dialogdata ) );
  1741.   dialogdata = MID_WIN_DIALOGS_STATICS;
  1742.   WinProcessDlg( WinLoadDlg( HWND_DESKTOP, HWND_DESKTOP, (PFNWP) BenchDlgProc, (HMODULE) NULL, DID_BENCH5_DLG, (PVOID) &dialogdata ) );
  1743. }
  1744.  
  1745.  
  1746. /* This functions toggles the attributes of each menuitem in the actionbar.
  1747.    Everything works real fine, but MIA_CHECKED don∩t work. Why ? */
  1748.  
  1749. VOID do_win_menus_attrib( HWND hwnd )
  1750. {
  1751.   int i,j,k;
  1752.   SHORT mia[4] = { MIA_CHECKED, MIA_DISABLED, MIA_FRAMED, MIA_HILITED };
  1753.  
  1754.   for (i=0; i<4; i++) {
  1755.       for (j=1100; j<1900; j+=100) {
  1756.           for (k=0; k<10; k++ ) {
  1757.               ToggleMenuAttr( hwnd, 0, j, mia[i] );
  1758.               ToggleMenuAttr( hwnd, 0, j, mia[i] );
  1759.           }
  1760.       }
  1761.   }
  1762.  
  1763. }
  1764.  
  1765. VOID do_win_menus_bitmap( HWND hwnd )
  1766. {
  1767.   MENUITEM mi;
  1768.   SHORT retvalue;
  1769.   HWND menu;
  1770.   HBITMAP hBmp1, hBmp2;
  1771.   HPS hps;
  1772.   int i;
  1773.  
  1774.   hps   = WinGetPS( hwnd );
  1775.   hBmp1 = GpiLoadBitmap( hps, (HMODULE) NULL, MID_BMP1, 64L, 64L );
  1776.   hBmp2 = GpiLoadBitmap( hps, (HMODULE) NULL, MID_BMP2, 64L, 64L );
  1777.   WinReleasePS( hps );
  1778.  
  1779.   mi.iPosition   = MIT_END; 
  1780.   mi.afStyle     = MIS_BITMAP;    /* A bitmap menuitem will be inserted */
  1781.   mi.afAttribute = 0;
  1782.   mi.id          = MID_NEWITEM;  
  1783.   mi.hwndSubMenu = (HWND) NULL;   /* Specify a SubMenu handle if the menuitem is inserted in Submenu ! */
  1784.   mi.hItem       = (ULONG) hBmp1;
  1785.  
  1786.   menu = WinWindowFromID( hwnd, FID_MENU ); /* You may use FID_SYSMENU to effect the System menu here */
  1787.  
  1788.   retvalue = (SHORT) WinSendMsg( menu, MM_INSERTITEM, (MPARAM) &mi, MPFROMP( (PSZ) "~Bitmaps" ) );
  1789.  
  1790.   for (i=0; i<10; i++ ) {
  1791.       WinSendMsg( menu, MM_SETITEMHANDLE, MPFROMSHORT( MID_NEWITEM ), MPFROMLONG( (ULONG) hBmp1 ) );
  1792.       WinSendMsg( menu, MM_SETITEMHANDLE, MPFROMSHORT( MID_NEWITEM ), MPFROMLONG( (ULONG) hBmp2 ) );
  1793.  
  1794. /* you may also use :
  1795.       mi.hItem = (ULONG) hBmp2;
  1796.       WinSendMsg( menu, MM_SETITEM, (MPARAM) NULL, (MPARAM) &mi );
  1797.       mi.hItem = (ULONG) hBmp1;
  1798.       WinSendMsg( menu, MM_SETITEM, (MPARAM) NULL, (MPARAM) &mi );
  1799.    if you like ... */
  1800.  
  1801.   }
  1802.  
  1803.   WinSendMsg( menu, MM_DELETEITEM, MPFROM2SHORT(MID_NEWITEM, FALSE), (MPARAM) NULL );
  1804.  
  1805. }
  1806.  
  1807. VOID do_win_menus_items( HWND hwnd )
  1808. {
  1809.   MENUITEM mi;
  1810.   SHORT retvalue;
  1811.   HWND menu;
  1812.   int i,j;
  1813.  
  1814.   CHAR menutext[10][3]= { "~0", "~1", "~2", "~3", "~4", "~5", "~6", "~7", "~8", "~9" };
  1815.  
  1816.   mi.iPosition   = MIT_END; 
  1817.   mi.afStyle     = MIS_TEXT;    /* A simple menuitem is used first */
  1818.   mi.afAttribute = 0;
  1819.   mi.id          = MID_NEWITEM;  
  1820.   mi.hwndSubMenu = (HWND) NULL; /* Specify a SubMenu handle if the menuitem is inserted in Submenu ! */
  1821.   mi.hItem       = NULL; /* We have MIS_TEXT menuitem, so no handle is used */
  1822.  
  1823.   menu = WinWindowFromID( hwnd, FID_MENU ); /* You may use FID_SYSMENU to effect the System menu here */
  1824.  
  1825.   for (j=0; j<10; j++ ) {
  1826.       for (i=0; i<10; i++ ) {
  1827.           mi.id = MID_NEWITEM + i;
  1828.           retvalue = (SHORT) WinSendMsg( menu, MM_INSERTITEM, (MPARAM) &mi, MPFROMP( (PSZ) menutext[i] ) );
  1829.       }
  1830.       for (i=9; i>=0; i-- ) {
  1831.          WinSendMsg( menu, MM_DELETEITEM, MPFROM2SHORT(MID_NEWITEM + i, FALSE), (MPARAM) NULL );
  1832.       }
  1833.   }
  1834. }
  1835.  
  1836. VOID do_win_menus_show( HWND hwnd )
  1837. {
  1838.   HWND menu;
  1839.   int i,j;
  1840.  
  1841.   menu = WinWindowFromID( hwnd, FID_MENU );
  1842.  
  1843.   for (i=0; i<10; i++) {
  1844.       for (j=1100; j<1900; j+=100) {
  1845.           WinSendMsg( menu, MM_SELECTITEM, MPFROM2SHORT( (USHORT) j, FALSE), MPFROMSHORT( FALSE ) );
  1846.       }
  1847.   }
  1848.  
  1849. }
  1850.  
  1851. VOID do_win_menus_all( HWND hwnd )
  1852. {
  1853.   do_win_menus_attrib( hwnd );
  1854.   do_win_menus_bitmap( hwnd );
  1855.   do_win_menus_items ( hwnd );
  1856.   do_win_menus_show  ( hwnd );
  1857. }
  1858.  
  1859. VOID do_win_all( HWND hwnd )
  1860. {
  1861.   do_win_menus_all( hwnd );
  1862.   do_win_dialog_all( hwnd );
  1863. }
  1864.  
  1865.  
  1866. /* The helping hand */
  1867.  
  1868. /* Toggle the MIA_??? Attributes of your mneuitems with this function */
  1869.  
  1870. ToggleMenuAttr(HWND frame, USHORT flags, SHORT id, SHORT mia_id )
  1871. {
  1872.   HWND menu,submenu;                     /* menu handle and submenu handle */
  1873.   MENUITEM submenuinfo;                  /* information of the menuitem    */
  1874.   SHORT oldvalue,newvalue;               /* old and new attribute value    */
  1875.   BOOL submenues, sysmenu, ok;
  1876.  
  1877.   submenues = (flags & TMA_INC_SUBMENU);
  1878.   sysmenu   = (flags & TMA_INC_SYSMENU);
  1879.  
  1880.   if ( sysmenu ) {
  1881.      menu = WinWindowFromID( frame, FID_SYSMENU );     /* get the system menu handle */
  1882.   }
  1883.   else {
  1884.      menu = WinWindowFromID( frame, FID_MENU );        /* get the action bar menu handle */
  1885.   }
  1886.  
  1887.   if ( submenues ) {                                /* include submenues ? */
  1888.      WinSendMsg( menu, MM_QUERYITEM, MPFROM2SHORT( id, submenues ), (MPARAM) &submenuinfo ); /* info of menuitem */
  1889.      submenu = submenuinfo.hwndSubMenu;          /* save handle of submenu */
  1890.   }
  1891.   else {                                                   /* no submenues */
  1892.      submenu = menu;
  1893.   }
  1894.  
  1895.   oldvalue = (SHORT) WinSendMsg( submenu, MM_QUERYITEMATTR, MPFROM2SHORT( id, submenues ), MPFROMSHORT( mia_id ) ); /* retrieve old value */
  1896.   newvalue = oldvalue ^ mia_id; /* toggle value */
  1897.   ok = (BOOL) WinSendMsg( submenu, MM_SETITEMATTR, MPFROM2SHORT(id, submenues ),  MPFROM2SHORT(mia_id, newvalue) );
  1898.  
  1899.   return oldvalue;
  1900. }
  1901.  
  1902. BOOL GpiSetFont (HPS hps, LONG fontid, CHAR *fontname)
  1903. {
  1904.   FATTRS fat;
  1905.   BOOL ok;
  1906.  
  1907.   fat.usRecordLength  = sizeof(fat);
  1908.   fat.fsSelection     = 0;
  1909.   fat.lMatch          = 0;
  1910.   fat.idRegistry      = 0;
  1911.   fat.usCodePage      = GpiQueryCp(hps); /* get the Codepage */
  1912.   fat.lMaxBaselineExt = 0;
  1913.   fat.lAveCharWidth   = 0;
  1914.   fat.fsType          = 0;
  1915.   fat.fsFontUse       = FATTR_FONTUSE_OUTLINE | FATTR_FONTUSE_TRANSFORMABLE;
  1916.   strcpy (fat.szFacename, fontname);  /* Save the fontname */
  1917.  
  1918.   if (ok = GpiCreateLogFont( hps, (PSTR8) NULL, fontid, &fat )) /* Create the font */
  1919.      ok = GpiSetCharSet( hps, fontid ); /* make the font the active font */
  1920.  
  1921.   return ok;
  1922. }
  1923.  
  1924.  
  1925. /* Set the character box size using point-sizes. The pointsize is a multiple
  1926.    of 10. For example:  12 Points  equals 120. For more information look at
  1927.    the VECTFONT-Sample by Charles Petzold */
  1928.  
  1929. BOOL GpiSetCharPointSize(HPS hps, SHORT pointwidth, SHORT pointhight)
  1930. {
  1931.   HDC    hdc;                   /* you need a device context */
  1932.   LONG   dev_width, dev_hight;  /* physical device resolution */
  1933.   POINTL pkt;                   /* Use GpiConvert() to calculate for you */
  1934.   SIZEF  size;                  /* store the size of the font here */
  1935.  
  1936.   hdc = GpiQueryDevice (hps) ;  /* get the device context */
  1937.  
  1938.   DevQueryCaps( hdc, CAPS_HORIZONTAL_RESOLUTION, 1L, &dev_width ); /* get the width */
  1939.   DevQueryCaps( hdc, CAPS_VERTICAL_RESOLUTION,   1L, &dev_hight ); /* and high of your graphics card in pels */
  1940.  
  1941.   pkt.x = 254L * pointwidth * dev_width / 7200000L ; /* calculate the world coordinates */
  1942.   pkt.y = 254L * pointhight * dev_hight / 7200000L ; /* of the fontsize and store it as a point */ 
  1943.  
  1944.   GpiConvert( hps, CVTC_DEVICE, CVTC_PAGE, 1L, &pkt ); /* convert the point now */
  1945.  
  1946.   size.cx = MAKEFIXED( pkt.x, 0 );  /* save the converted values */
  1947.   size.cy = MAKEFIXED( pkt.y, 0 );
  1948.  
  1949.   return GpiSetCharBox( hps, &size ); /* and size the character box */
  1950. }
  1951.  
  1952. BOOL GpiSetCharSelection(HPS hps, LONG fontid, CHAR *fontname, SHORT select)
  1953. {
  1954.   FATTRS fat;
  1955.   BOOL ok;
  1956.  
  1957.   fat.usRecordLength  = sizeof(fat);
  1958.   fat.fsSelection     = select;
  1959.   fat.lMatch          = 0;
  1960.   fat.idRegistry      = 0;
  1961.   fat.usCodePage      = GpiQueryCp(hps); /* get the Codepage */
  1962.   fat.lMaxBaselineExt = 0;
  1963.   fat.lAveCharWidth   = 0;
  1964.   fat.fsType          = 0;
  1965.   fat.fsFontUse       = FATTR_FONTUSE_OUTLINE | FATTR_FONTUSE_TRANSFORMABLE;
  1966.   strcpy (fat.szFacename, fontname);  /* Save the fontname */
  1967.  
  1968.   if (ok = GpiCreateLogFont( hps, (PSTR8) NULL, fontid, &fat )) /* Create the font */
  1969.      ok = GpiSetCharSet( hps, fontid ); /* make the font the active font */
  1970.  
  1971.   return ok;
  1972. }
  1973.  
  1974.  
  1975.