Simpleplot ticks

Guess where are corresponding to numbers ticks in this Simpleplot graph? They are marked in red! This is decades old problem, any chance to fix the tic vs axis numbers position?

[URL=http://imageshack.us/photo/my-images/836/simpleplot.jpg/][/URL]

Uploaded with [URL=http://imageshack.us]ImageShack.us[/URL]

Sorry but SIMPLEPLOT is a third party DLL and we do not have access to the code.

The guy is off business, can you ask him to leave you sources? It is a big hole when the part of Clearwin will be completely dead. Or may be good to consider new more advanced 3D/Opengl graphics package. I've heard opinion that some professors, for example, chose Matlab for students only for its excellent professional looking graphics easy done in one line. Aging Simpleplot or Simdem need face lift in this department. Clearwin needs great graphics which can be done in single Fortran line of text so that everyone's reaction will be 'I want it!'.

Hopefully we can duplicate the ClearWin+ usage of SIMPLEPLOT before too long.

John, That was great trick. And if...if you also find similar simple workaround on how to

1. change line thickness
2. make the square frame (upper and lower x axis and left and right y axis)
3. change the font for axis ticks and labels

then Simpleplot %pl will really get out of grave

Hi John,

If you want the Fortran code you post to appear as you wrote it, then highlight it and click the Code button above (same as doing bold or underline etc.) This puts the tags at the beginning and at the end, so the forum interprets it correctly, like this:.

C     Fortran in here 

Eddie

You can change the line thickness by including these lines in the program:

call thckmg('LINE',2.0) !or any reasonable real*4 number

you can change 'LINE' with either T for text, M for markers or * for all these

and for the the font type

call chset(-12) !or any number between -1 and -12, as I showed in the Clearwin forum

the problem with the axis is likely a problem of %pl, as it admits only a single x and y pair.....I do not know how %pl was implemented, so that I do not know if it would be at all possible to draw four axis with %pl....this is a question for Paul.....if you don't use %pl, I think it would be possible to draw the four axis by means of the AXIS7 and AXLOCN subroutines, but I never tried....

Agustin

Quoted from DanRRight John, That was great trick. And if...if you also find similar simple workaround on how to

1. change line thickness
2. make the square frame (upper and lower x axis and left and right y axis)
3. change the font for axis ticks and labels

then Simpleplot %pl will really get out of grave

Seemingly you cannot do that with %pl but you can use Simpleplot as follow:

program Simpleplot_plots
!requires simpleplot.dll and spwin module
use mswin
use spwin 
implicit none
real*4,dimension(70) ::xarr,yarr
integer*4 :: narr,ltype,xscale,yscale
integer*4 :: ctype,i,ans
character(8) :: xlabel='x',ylabel='y'
character(2) :: istr
real*4 :: minx,maxx,miny,maxy,ins

narr=0
do i=1,70
  xarr(i)=2*i
  yarr(i)=i*i
  narr=narr+1
end do
HDC_DIM%iWidth = 800
HDC_DIM%iHeight = 800
HDC_DIM%iBitmapDC = GET_Bitmap_DC@(HDC_DIM%iWidth, HDC_DIM%iHeight)
CALL SP_SupplyBitmap     ! Pass Bitmap to SIMPLEPLOT 
call picpos(4.0,5.0) ! locate the graph in the page so that everything enters
call textmg(1.5)     !size of the text
call axsbtk('XC','I') !ticks inside for x axis
call axsbtk('YC','O') ! ticks outside for y axis
CALL AXLBJS('**', 'Centre') ! labels centred
minx=minval(xarr)
maxx=maxval(xarr)
miny=minval(yarr)
maxy=maxval(yarr)
xscale=1;yscale=1
CALL SCALES(minx,maxx,xscale,miny,maxy,yscale) ! draw scales for main plot
call axcrss('YC',minx)! x-y crossing at xmin
ltype=-1 !line type
ctype=1 !curve type
call chset(-8) ! character set
call cvtype(ctype) ! curve type
call thckmg('LINE',3.0) !thickness of lines
call pen(4) !pen colour
CALL AXES7(xlabel, ylabel) !draw axes with labels
CALL AXLOCN('YCartesian', 'Following') ! locate a new y axis on right
call  axlban('yc','O') ! tick labels towards the outside
call axsbtk('yc','O') !ticks outside for y axis on the right
!call axclr('yc',1)! only axis is drawn if you prefer
call axis7('YC',' ') ! draw the new y axis without title                      
CALL AXLOCN('XCartesian', 'Following') !locate a new x axis on top
call  axlban('xc','N') ! no tick labels                 
call axsbtk('xc','I') ! ticks inside
call axis7('XC','   ') ! no axis label                                                                                             
call thckmg('L',1.0) !line thickness = 1
call pen(2)!  colour red
CALL BRKNCV(real(xarr,1),real(yarr,1),narr,ltype)! draw curve
ans=winio@('%ca[A Simple Plot with Simpleplot]%bg[grey]&')
ans=winio@('%dw&',HDC_DIM%iBitmapDC) ! Pass bitmapDC to ClearWin
ans=winio@('%ff%nl%cn%6bt[Close]') 
end program simpleplot_plots

Agustin

....and in case you don't have the spwin module:

MODULE SPWIN ! Contains definition of values to pass to DDDATA
INTEGER,PARAMETER :: SIMPLE_WINDOWS_WINDOW=1,SIMPLE_WINDOWS_PRINTER=2, &
&SIMPLE_WINDOWS_DIB=4,SIMPLE_WINDOWS_METAFILE=8,SIMPLE_PERCENT=0,SIMPLE_PIXELS=1,SIMPLE_MM=2
TYPE SIMPLE_WINDOWS_DATA_STRUCT_T
INTEGER :: iOpc ! Corresponds to C++ long int
INTEGER :: iPtr ! Address of OpCode specific data
END TYPE SIMPLE_WINDOWS_DATA_STRUCT_T
TYPE SIMPLE_WINDOWS_HDC_DATA_T
INTEGER :: hDC ! device context handle
INTEGER :: iWidth, iHeight ! plotting area
END TYPE SIMPLE_WINDOWS_HDC_DATA_T
TYPE SIMPLE_WINDOWS_SIZE_T
INTEGER :: iUnits ! SIMPLE_PERCENT, ..._PIXELS, ..._MM
INTEGER :: iWidth, iHeight, iDepth
END TYPE SIMPLE_WINDOWS_SIZE_T
TYPE SIMPLE_WINDOWS_ORIGIN_T
INTEGER :: iUnits ! SIMPLE_PERCENT, ..._PIXELS, ..._MM
INTEGER :: iX, iY
END TYPE SIMPLE_WINDOWS_ORIGIN_T
TYPE HDC_DIM_TYPE
INTEGER*4 iBitmapDC, iWidth, iHeight
END TYPE HDC_DIM_TYPE
TYPE (HDC_DIM_TYPE) :: HDC_DIM
INTEGER, PARAMETER :: SIMPLE_WINDOWS_END_LIST = 0
INTEGER, PARAMETER :: SIMPLE_WINDOWS_SET_WINDOWNAME = 6
INTEGER, PARAMETER :: SIMPLE_WINDOWS_SET_HDC_DIM = 7

! Useful definition of data structure to hold BitmapDC to pass to SIMPLEPLOT

Contains

SUBROUTINE SP_SupplyBitmap ! Pass Bitmap to SIMPLEPLOT
! Set up a Static (SAVEd) array of OpCodes. Each OpCode consists of an
! OpCode ID followed by an optional address of a data structure.
! The parameter block address is passed to SIMPLEPLOT by SUBROUTINE DDDATA.
!
! In this example:
! SIMPLE_WINDOWS_SET_HDC_DIM specifies that the next integer is the address
! of a data structure consisting of a Bitmap DC followed by its dimensions
! SIMPLE_WINDOWS_END_LIST is the mandatory end of list item which does not
! require the address of a structure
TYPE(SIMPLE_WINDOWS_DATA_STRUCT_T), DIMENSION(2) :: OpCodes
SAVE OpCodes
OpCodes(1)%iOpc = SIMPLE_WINDOWS_SET_HDC_DIM ! hDC + dimensions
OpCodes(1)%iPtr = LOC(HDC_DIM) ! See definition of SPWIN above
OpCodes(2)%iOpc = SIMPLE_WINDOWS_END_LIST! End of list
CALL DDDATA(LOC(OpCodes))! Notify SIMPLEPLOT
CALL DEVNAM('WINDOW') ! Select Window
CALL OWNNEW(.TRUE.) ! Inhibit 'Continue' button
END subroutine SP_SupplyBitmap

!this subroutine is needed if the content of the graph window changes during the program run
SUBROUTINE UpdateWin
CALL OUTBUF ! Flush buffers
CALL WINDOW_UPDATE@(HDC_DIM%iBitmapDC) ! Copy Bitmap to window
END subroutine UpdateWin
END MODULE SPWIN 

Hope this helps,

Agustin

The module SPWIN defines a series of variables needed for using Simpleplot with Clearwin. In this way you can use all the Simpleplot routines inside a %dw window. This is not my creature: it was included in the old manuals of Simpleplot when people from Salford and Bradford universities were working closely, i.e. FTN90/95 and Simpleplot developers. Therefore, you need it if you prefer to use the full power of Simpleplot instead of the simpler implementation with %pl.

In the old times it was common to use WINAPP as the first statement in the FTN90/95 programs, but later it was replaced by 'use mswin' where the MSWIN is a module provided by FTN95 for developing programs for runing as Windows applications.

Hope this helps,

Agustin

P.S. by the way, I wrote here the SPWIN module again because I guessed some reader in this forum perhaps did not read some old posts in the Clearwin forum where I posted it when discussing some other example referred to Simpleplot. Paul said something about including it in a following update of the compiler...but I do not know if he did it....

Thanks Agustin for the tricks. Will explore them in detail.

With Simpleplot I hope we all learned one major lesson I got even before that and tried to follow: nothing in your code has to be third party you have no full control of. From the start Salford compilers allowed to implement that principle. The only single step aside was Simpleplot %pl and now we pay for that. Even if %pl is just a tiny part of FTN95 its deficiencies are painful when you can not fix or improve anything. The idea behind %pl is great though. Same one is used in Matlab where it also has great professional implementation making plotting ultimately simple and immediately ready for any scientific journals. We discussed that before few times. https://forums.silverfrost.com/Forum/Topic/2408

Hopefully developers will do something here some day

By the way does the whole Simpleplot package use real*4 only? Not that i plan to use not supported anymore third-party package with no source code, just curious

Hello Dan,

I have just wrote in another topic that the problem with ticks are seemingly solved (I have to test this more deeply, but at first glance seems it works) with the use of the software fonts of Simpleplot.

Respect to the variables, yes, Simpleplot uses Real*4, no double precision at all. Why? I do not know, but people from BUSS never 'upgraded' the variables from single to double precision. I know not too much about programming, but maybe they considered that for a graph, single precision was enough, and required less memory and computer time. The problem of using a third party implementation has the problem that it works as far as the developers are active, but in this case, I think, it would be the same with FTN95: if you implement a lot of code using subroutines from the FTN95 libray and Silverfrost disappears one day, you could have a similar problem....at least for Simpleplot, thanks God that David Butland left the library and documentation in the hands of Salford/Silverfrost.....

The idea of implementing %pl is great.....if you want a fast simple way to plot a 'simple' plot, but when you have such amount of options, i.e. subroutines, for designing the plot, I guess it would be quite difficult to implent all that under %pl, because you will need to write a long,long statement.....%pl is great for testing a program, but once you have all the program running fine, I think it is better to include Simpleplot routines one by one and control the graph more carefully....

just my thoughts,

Agustin

From the document Using SimplePlot with FTN95 (http://www.silverfrost.com/23/ftn95/support/documentation.aspx) :

4.1 Arguments to Simpleplot The Simpleplot library is compiled using 4 byte integers and 4 byte reals. If you use different sized variables, you must be sure that variables passed to Simpleplot are correctly specified.

All that is good news.

The only what left is to get full control of %pl source, fix its design ugliness and minor bugs and make few preset classical looks from Nature, Science and Phys.Review. If these will be as good as in Matlab (and there is nothing which prevents that) users will look further to improve and customize the plots using the whole package.

My major point with %pl is that it must be not this ugly POS like it is but exactly opposite -- that its result must be straight ready for any professional publication and satisfy 99% of users as is without any further touches.

Pity that authors in their time did not involve just one single professor from Art department which would give his students homework to select the best scientific graphics designs for %pl and the whole package. I just returned from the conference where organizers did exactly that with the conference banners and designs. The students made 50 incredible designs one better then another, competing with each others and further improving, all costed organizers nothing

When I first time seen Simpleplot demo in 90th I couldn't believe how ugly and obsolete it all looked with its 4 bit colors, primitive designs, shizophrenic fonts and low resolutions and how similarly crazily ($1500 or something ?) it costed. The authors were clearly out of their minds let alone even to work in university.