Intel® Fortran Compiler with Windows-Based Applications

Download PDF
ID 757211
Date 6/30/2025
Public
Document Table of Contents
Document Table of Contents x
Use Intel® Fortran Compiler to Create and Build Windows-Based Applications
Use Intel® Fortran Compiler to Create and Build Windows-Based Applications x
Create Windowing Applications Create and Use DLLs Use QuickWin Use Dialog Boxes for Application Controls Notices and Disclaimers
Create Windowing Applications x
Understand Code Requirements for Fortran Windowing Applications Use Menus and Dialogs in SDI and MDI Fortran Windowing Applications Sample Fortran Windowing Applications Advanced Graphics with OpenGL
Create and Use DLLs x
Code Requirements to Share Procedures in DLLs Code Requirements for Sharing Data in DLLs Build Dynamic-Link Libraries Build Executables that Use DLLs
Use QuickWin x
Special Naming Convention for QuickWin and Windows Graphics Routines Compare QuickWin with Windows-Based Applications Use Windows API Routines with QuickWin Types of QuickWin Programs QuickWin User Interface USE Statement Needed for Fortran QuickWin Applications Create QuickWin Windows Use QuickWin Graphics Library Routines
Types of QuickWin Programs x
Fortran Standard Graphics Applications Fortran QuickWin Graphics Applications
QuickWin User Interface x
Default QuickWin Menus
Create QuickWin Windows x
Access Window Properties Create Child Windows Set the Active Window and Add Focus Keep a Child Window Open Control the Size and Position of Windows
Use QuickWin Graphics Library Routines x
Select Display Options Check the Current Graphics Mode Set the Graphics Mode Set Figure Properties Understand Coordinate Systems Add Color Write a Graphics Program Display a Graphics Output Store and Retrieve Images Customize QuickWin Applications QuickWin Programming Precautions Simulate Nonblocking I/O
Understand Coordinate Systems x
Text Coordinates Graphics Coordinates Set Graphics Coordinates Real Coordinates Sample Program
Add Color x
Color Mixing VGA Color Palette Use Text Colors
Write a Graphics Program x
Activate a Graphics Mode Draw Lines on the Screen Draw a Sine Curve Add Shapes
Display a Graphics Output x
Draw Graphics Display Character-Based Text Display Font-Based Characters Use Fonts from the Graphics Library
Use Fonts from the Graphics Library x
Available Typefaces Initialize Fonts Set the Font and Display the Text SHOWFONT.F90 Example
Store and Retrieve Images x
Transfer Images in Memory Load and Save Images to Files Edit Text and Graphics from the QuickWin Edit Menu
Customize QuickWin Applications x
Enhance QuickWin Applications Controlling Menus Change Status Bar and State Messages Display Message Boxes Define an About Box Use Custom Icons Using a Mouse
QuickWin Programming Precautions x
Use Blocking Procedures Use Callback Routines
Use Dialog Boxes for Application Controls x
Use the Resource Editor to Design a Dialog Box Write a Dialog Application Dialog Routine Summary Understand Dialog Controls Use Dialog Controls Use ActiveX Controls
Use the Resource Editor to Design a Dialog Box x
Set Control Properties Include Resources with Multiple Resource Files Include (.FD and .H) Files
Write a Dialog Application x
Initialize and Activate the Dialog Box Use Dialog Callback Routines Use a Modeless Dialog Box Use Fortran AppWizards to Help Add Modal Dialog Box Coding Use Fortran AppWizards to Help Add Modeless Dialog Box Coding Use Dialog Controls in a DLL
Understand Dialog Controls x
Use Control Indexes Available Indexes for Each Dialog Control Specify Control Indexes
Use Dialog Controls x
Use Static Text Use Edit Boxes Use Group Boxes Use Check Boxes and Radio Buttons Use Buttons Use List Boxes and Combo Boxes Use Scroll Bars Use Pictures Use Progress Bars Use Spin Controls Use Sliders Use Tab Controls Set Return Values and Exit
Use ActiveX Controls x
Use the Resource Editor to Insert an ActiveX Control Use the Intel® Fortran Module Wizard to Generate a Module Add Code to Your Application Register an ActiveX Control
Use Intel® Fortran Compiler to Create and Build Windows-Based Applications

Add Shapes

After drawing the sine curve, Write a Graphics Program calls drawshapesto put two rectangles and two ellipses on the screen. The fill flag alternates between $GBORDER and $GFILLINTERIOR: 

 ! DRAWSHAPES - Draws two boxes and two ellipses.
 !
  SUBROUTINE drawshapes( )
     USE IFQWIN
     EXTERNAL    newx, newy
     INTEGER(2)  dummy, newx, newy
  !
  !  Create a masking (fill) pattern.
  !
     INTEGER(1) diagmask(8), horzmask(8)
     DATA diagmask / #93, #C9, #64, #B2, #59, #2C, #96, #4B /
     DATA horzmask / #FF, #00, #7F, #FE, #00, #00, #00, #CC /
  !
  !  Draw the rectangles.
  !
     CALL SETLINESTYLE( INT2(#FFFF ))
     CALL SETFILLMASK( diagmask )
     dummy = RECTANGLE( $GBORDER,newx(INT2(50)),newy(INT2(-325)), &
     & newx(INT2(200)),newy(INT2(-425)))
     dummy = RECTANGLE( $GFILLINTERIOR,newx(INT2(550)), &
     & newy(INT2(-325)),newx(INT2(700)),newy(INT2(-425)))
  !
  !  Draw the ellipses.
  !
     CALL SETFILLMASK( horzmask )
     dummy = ELLIPSE( $GBORDER,newx(INT2(50)),newy(INT2(325)), &
     & newx(INT2(200)),newy(INT2(425)))
     dummy = ELLIPSE( $GFILLINTERIOR,newx(INT2(550)), &
     & znewy(INT2(325)),newx(INT2(700)),newy(INT2(425)))
   END SUBROUTINE

The call to SETLINESTYLE resets the line pattern to a solid line. Omitting this routine causes the first rectangle to appear with a dashed border, because the drawlines subroutine called earlier changed the line style to a dashed line.

The $GFILLINTERIOR constant fills the shape with the current fill pattern. To create a pattern, pass the address of an 8-byte array to SETFILLMASK. In drawshapes, the diagmaskarray is initialized with the pattern shown in the following example: 

Bit pattern                  Value in diagmask
Bit No. 7 6 5 4 3 2 1 0
      x o o x o o x x       diagmask(1) = #93
      x x o o x o o x       diagmask(2) = #C9
      o x x o o x o o       diagmask(3) = #64
      x o x x o o x o       diagmask(4) = #B2
      o x o x x o o x       diagmask(5) = #59
      o o x o x x o o       diagmask(6) = #2C
      x o o x o x x o       diagmask(7) = #96
      o x o o x o x x       diagmask(8) = #4B
Parent topic: Write a Graphics Program
Level Two Title