Sample GraphiC for Fortran Code:
Below is a copy of a simple Fortran program which generates an array of 300 data points and uses GraphiC to create a linear plot. This program demonstrates the ease of visualizing numerical data using built-in plotting functions. By leveraging the current capabilities of GraphiC, users can efficiently generate and customize plots to suit their analytical needs. Additionally, the program can be modified to experiment with different datasets and graphical styles for enhanced visualization.
View the equivalent ‘C’ GraphiC program.
View the equivalent Visual Basic GraphiC program.
View the program output.
*****************************************************************************
* (c) 1984-1993 by Scientific Endeavors Corporation.
* All rights reserved.
* This program plots a single curve on a set of 2-D linear axes. Except for
* color(), sympick(), and grid(), this simple example program uses only
* the minimum calls needed to produce a GraphiC plot.
****************************************************************************/
****************************************************************************
* Main subroutine MUST be called Application
****************************************************************************/
SUBROUTINE APPLICATION
USE GRAPHIC
INTEGER*4 i, nxdiv, nydiv, npts
PARAMETER( NPTS=301)
CHARACTER FONT_ID*10, FONT_CHAR*1
REAL*4 x(npts), y(npts)
CALL bgnplot(1, 'g', "sample.tkf") ! Parameters: 1 - draw plot on screen
! 'g' - graphics mode
!"sample.tkf" - .TKF file name
CALL startplot(WHITE)
CALL metricunits(0) ! Ensure scaling in inch units
FONT_CHAR = CHAR(CODE1) ! CODE1 through CODE4 are pre-defined byte chars
CALL font(1, "simplex.fnt", CODE1 ) ! Loads your chosen font
CALL page(9.0, 6.884) ! Sets the page size
! This is the same aspect ratio as 8191 by 6266
CALL area2d(7.6, 5.5) ! Sets the area of the plot
DO i = 1, npts ! Generate data
y(i) = .3 * i
x(i) = (y(i) * y(i)) / 2.
END DO
CALL color(BLACK) ! Axis names and heading will be black
FONT_ID = FONT_CHAR // "X-Axis"
CALL xname(FONT_ID)
CALL yname("Y-Axis")
CALL heading("SAMPLE PLOT")
CALL grid(9) ! Draws grid through tick marks, 9 - fine dot
nxdiv = 5 ! Sets the desired # of x-axis divisions
nydiv = 6 ! Sets the desired # of y-axis divisions
CALL color(GREEN) ! Green axes and labels
CALL scales(nxdiv, nydiv, x, y, npts) ! Draws and scales the axes
CALL color(RED) ! Red curve
CALL sympick(12) ! Filled circle symbols
CALL curve(x, y, npts, 10)
CALL DATEIT(CODE1)
I = endplot() ! Finishes plot and waits for instructions to exit or
! draw next plot. Resets file pointers and defaults
CALL stopplot ! Close files, return to text mode, exit program
RETURN
END
