dfgraphaxis2d_sample.f90

DXF producer by Fortran

Program dfGraphAxis2D_Sample

Use DXFortranStd
Use DXFortranGraph


Implicit None

Character(len=15), Dimension(:,:), allocatable  :: layer_def    ! Layers def 

Integer                                         ::	Alignh, &
													Alignv		! Other vars 

Character  *(*)									::	TextStyle*8, &
													Layer*8,     &
													Text*50


Integer	:: FileNum,		         &	!+ File number
		   i,				     &	!+ Reference item
		   DrawPrimaryGridXX,    &	!+ Draw Primary XX Grid (1 - Yes; 0 - No)
		   DrawSecondaryGridXX,  &	!+ Draw Secundary XX Grid (1 - Yes; 0 - No)
		   DrawPrimaryGridYY,    &	!+ Draw Primary YY Grid (1 - Yes; 0 - No)
		   DrawSecondaryGridYY,  &	!+ Draw Secundary YY Grid (1 - Yes; 0 - No)
		   TextPositionXX,	     &	!+ Position Text (1 - Lower Value; 0 - Zero Value; 2 - Upper Value) 
		   TextPositionYY,	     &	!+ Position Text (1 - Lower Value; 0 - Zero Value; 2 - Upper Value) 
           DrawZeroAxisXX,	     &	!+ Draw Zero Axis(1 - Yes; 0 - No) 
		   DrawZeroAxisYY,	     &	!+ Draw Zero Axis(1 - Yes; 0 - No) 
		   DrawBorderAxisXX,     &
		   DrawBorderAxisYY

Real ::	   MaxXX,                &
           MinXX,                &
           DimPrimaryScaleXX,    &
           DimPrimaryScaleYY,    &
           DimSecondaryScaleXX,  &
           DimSecondaryScaleYY,  &
           PrimaryScaleXX,       &
           SecondaryScaleXX,     &
		   MaxYY,                &
		   MinYY,                &
		   PrimaryScaleYY,       &
		   SecondaryScaleYY,     &
		   TextHight 

! Text Styles: STANDARD, ROMANS, ROMAND, ROMANT
TextStyle   = "ROMANT"

!-----------------------------------+
! Layer defenition
!-----------------------------------+
ALLOCATE(layer_def(4,3))


! Layers definition
layer_def(1,1)= "0"              !+ Layer name (0 default layer)
layer_def(1,2)= "continuous"     !+ Linetype
layer_def(1,3)= "7"              !+ Color
layer_def(2,1)= "layer1"
layer_def(2,2)= "continuous" 
layer_def(2,3)= "1"
layer_def(3,1)= "layer2"
layer_def(3,2)= "continuous"
layer_def(3,3)= "2"
layer_def(4,1)= "layer3"
layer_def(4,2)= "continuous"
layer_def(4,3)= "3"


FileNum  = 10

open (FileNum  , FILE = "dfGraphAxis2D_Sample1.dxf") 

!
!+ Begin DXF Example file
!
CALL dfBegin(FileNum,layer_Def)
		   Layer = "Layer1"
           MaxXX = 100.0
		   MinXX = -100.0
           PrimaryScaleXX = 10.0
		   SecondaryScaleXX = 2.0
		   DrawPrimaryGridXX = 0
		   DrawSecondaryGridXX = 0
           MaxYY = 100.0
		   MinYY = -100.0
           PrimaryScaleYY = 10.0
		   SecondaryScaleYY = 5.0
		   DrawPrimaryGridYY = 0
		   DrawSecondaryGridYY = 0
           TextPositionXX = -1
		   TextPositionYY = -1
           TextHight = (MaxXX - MinXX)/100.0
		   DrawZeroAxisXX = 1
		   DrawZeroAxisYY = 0
		   DrawBorderAxisXX = 0
		   DrawBorderAxisYY = 0
           DimPrimaryScaleXX= (MaxXX-MinXX)*0.02
           DimPrimaryScaleYY = (MaxXX-MinXX)*0.02
           DimSecondaryScaleXX = (MaxXX-MinXX)*0.01
           DimSecondaryScaleYY = (MaxXX-MinXX)*0.01



CALL dfGraphAxis2D(FileNum,	   &
           Layer,			   &
           MaxXX,			   &
           MaxYY,			   &
		   MinXX,		 	   &
		   MinYY,			   &
           PrimaryScaleXX,     &
           PrimaryScaleYY,     &
           DimPrimaryScaleXX,  &
		   DimPrimaryScaleYY,  &
		   SecondaryScaleXX,   &
		   SecondaryScaleYY,   &
		   DimSecondaryScaleXX,&
		   DimSecondaryScaleYY,&
		   DrawPrimaryGridXX,  &
		   DrawPrimaryGridYY,  &
		   DrawSecondaryGridXX,&
		   DrawSecondaryGridYY,&
		   DrawBorderAxisXX,   &
		   DrawBorderAxisYY,   &
		   DrawZeroAxisXX,     &
		   DrawZeroAxisYY,     &
           TextPositionXX,     &
		   TextPositionYY,     &
           TextHight,          &
		   TextStyle)   


!
!+ End DXF Example file
!

Call dfEnd(FileNum)

Close(FileNum)
Deallocate(layer_def)

Stop
End Program dfGraphAxis2D_Sample