 |
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
DavidButland
Joined: 15 Jun 2014 Posts: 2 Location: Bridlington
|
Posted: Sun Jun 15, 2014 1:57 pm Post subject: Simpleplot |
|
|
Hello, world.
I very sensibly married Judy Butland in 1964. Judy developed Simpleplot in 1974 at the University of Bradford, UK.
We were AMAZED to find people still talking about Simpleplot in 2014.
We are now well into our happy retirement in Bridlington, E Riding of Yorkshire, and the Centre of the Universe.
We will help with Simpleplot problems if we can, but can promise nothing. It was all a long time ago.
Meanwhile, we are helping 2 local school students develop BridPlot - an Android app for graphing. See www.bussmk2.co.uk for more details.
BrodPlot is "Designed by School Students in the UK for School Students all over the world". If anyone has any contacts with schools in Foreign Parts, we would love to hear from them.
If any old Simpleplot uses who still remember us are out there, get in touch.
David Butland |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2923 Location: South Pole, Antarctica
|
Posted: Sun Jun 15, 2014 3:22 pm Post subject: |
|
|
Dear David,
That was great news to meet you here in good mood and spirit! I do not know how many times we discussed here Simpleplot with all the regrets that you are not responding on emails because of your retirement. The feeling of serious loss was always the main theme. Please do not disappear and keep in touch with this group. Things are that time came to make for Simpleplot needed facelift and make some other fixes. I looked at your BrodPlot and was thinking that it is exactly what Simpleplot currently needs - to be both Simple and Pro, not just simple.
Besides i hope also that Windows tablets and cellphones will be next where this Fortran will be used so it would be great to see BrodPlot ported to Windows and able to communicate with Fortran.
Wish you all the best and a lot of fruitful communications with this one of the most friendly and caring communities on the web. |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2923 Location: South Pole, Antarctica
|
Posted: Mon Jun 16, 2014 10:08 am Post subject: |
|
|
I am mostly interested with quick plot function %pl which we discussed at the beginning of this thread. What needs to be fixed urgently there is
1) fonts
2) tick marks
3) real*8 for graphics
4) fix %pl numerous inconsistencies and bugs (like simpleplot_redraw@, inconsistency of using real*4 vs real*8 for max and min while using real*8 for everything else etc) adjustments of drawing surface to get scalable borders instead of fixed etc
Most of all if compiler developers have no access to the graphics library source code and the rights for its modification like it was so far then Simpleplot (or any other third part software) has no future because of a lot of adjustments and modifications are needed permanently and each user has own preferences. May be even better is to grant access to sources for everyone like it is the case with many other graphics packages but that is debatable. When i found that Silverfrost developers can not fix with %pl anything i stopped using it and not without regret switched to my own library made with FTN95 graphics functions. I lost a lot of time but you can see the screenshots above -- obtained plotting quality and freedom was worth of that time loss. I still admit that design principles of %pl and Simpleplot and their integration into FTN95 are better then mine, because i am not a professional programmer. If Simpleplot major defects will be fixed and appearance substantially improved (which based on my experience is really really easy, i hope) i may start using it again.
If that will be solved next would be expansion of options for %pl to allow it draw a lot more and better with the same ease. That may take many users and years to do. But if done right Clearwin will be used indefinitely, scientific plotting will be need in year 3000 too, and simplicity is its key principle, am i wrong? LOL
Other users have interest in the whole Simpleplot package. It also needs improvements and adjustments to look more modern. Most of fixes (again, using modern fonts and their positioning relative to tics, real*8 numbering, labeling, using RGB colors and better looking palettes etc) could be done pretty fast. The reason to switch to real*8 numbers is because that allows to get much less amount of annoying crashes of graphics, since it is pretty rare when you get numbers more or less then 1e300 or 1e-300 while this permanently happen with real*4 numbers |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2923 Location: South Pole, Antarctica
|
Posted: Tue Sep 09, 2014 2:48 am Post subject: |
|
|
Remember the Simpleplot hack our forum guys uncovered which fixes tick marks?
I got strange error which looks like this when i open same program twice(no matter where in the computer)
Any guess what that could be?
Here is the code for debugging. Run one exe and then not closing it run the another
Code: |
!-------------------------------------------------------
! Compilation:
!
!ftn95 aaa.for /free /debug /no_truncate /undef
!slink aaa.obj SIMPLE.DLL
!
!-------------------------------------------------------
Program simple
Real*8 x(100), y(100), z(100), u(100), v(100), w(100)
N=100
do i=1,N;
x(i)=i-1;
y(i)=sin(i/30.)**2;
z(i)=sin(i/30.)**5;
u(i)=sin(i/30.)**10;
v(i)=cos(i/30.)**10;
w(i)=sin(i/30.)**2 * cos(i/30.)**2;
enddo
CALL TEXTMN(0.3)
CALL AXLBJS('*C','C')
call thckmg('LINE',3.0)
call chset(10)
i=winio@('%ww%pv%pl[x_axis="Time [s]",y_axis=Amplitude,&
&title="U(red, green-analit), U_A on load(orange), I(blue, black-anal)", &
& x_array, colour=red, colour=blue, colour=green, colour=black, &
&colour=#CC8800, X_ARRAY, N_GRAPHS=5]&',&
& 300, 200, N-4, x, y, z, u, v, w)
i=winio@('%ac[esc]', 'exit')
End |
Also, this question is to Silverfrost: did you guys establish any communications with David Butland to solve Simpleplot problems? Any agreements on source code ?colour=#CC8800, X_ARRAY, N_GRAPHS=5 |
|
Back to top |
|
 |
aebolzan
Joined: 06 Jul 2007 Posts: 229 Location: La Plata, Argentina
|
Posted: Fri Sep 12, 2014 5:18 pm Post subject: |
|
|
I was testing your program and seems that the problem is with %pl. I have tried a modified version of it:
Code: | Program simple
use mswin
INTEGER winio@,i,StartCB
EXTERNAL StartCB
i=winio@('%sy[no_border]%ca[User drawn]&')
i=winio@('%pl[user_drawn]&',800,800)
i=winio@('%sc',StartCB)
END
!--The start-up callback
INTEGER FUNCTION StartCB()
use mswin !INCLUDE 'CLEARWIN.INS'
INTEGER N,i
integer*4 :: ans
!--Call SIMPLEPLOT routines to plot the graph.
Real*4 x(100), y(100), z(100), u(100), v(100), w(100)
N=100
do i=1,N;
x(i)=i-1;
y(i)=sin(i/30.)**2;
z(i)=sin(i/30.)**5;
u(i)=sin(i/30.)**10;
v(i)=cos(i/30.)**10;
w(i)=sin(i/30.)**2 * cos(i/30.)**2;
enddo
call chset(25)
call axsbtk('XC','I')
call axsbtk('YC','O')
CALL AXLBJS('**', 'Centre')
call thckmg('L',2.0)
CALL SCALES(0.0,100.0,1,0.0,1.0,1)
call axes7('x-axis','y-axes')
call pen(1)
CALL BRKNCV(x,w,N,1)
call pen(2)
CALL BRKNCV(x,y,N,1)
call pen(3)
CALL BRKNCV(x,z,N,1)
call pen(4)
CALL BRKNCV(x,u,N,1)
call pen(5)
CALL BRKNCV(x,v,N,1)
call endplt
CALL SIMPLEPLOT_REDRAW@
StartCB=1
END
|
and I can open this program twice, even in the same folder....it seems that when you use Simpleplot subroutines directly, it works fine but as "implicit" subroutines in %pl, does not. Therefore, it appears to be a problem with the implementation of %pl, not Simpleplot....
Hope this helps....
Agustin
P.D. as you say, it would be nice to hear from Silverfrost if they have eventually agreed (or not) with David Butland to work on an updated implementation of Simpleplot. |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2923 Location: South Pole, Antarctica
|
Posted: Fri Sep 12, 2014 11:07 pm Post subject: |
|
|
Thanks Agustin. yes, would be nice if Silverfrost will get some sort of new collaboration with D.Butland or even his school students who made amazingly good graphics utility for Android which costs just a dollar on Google Play OR l get the ability to edit the source code.
Otherwise the Simpleplot is dead. |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2923 Location: South Pole, Antarctica
|
Posted: Mon Sep 15, 2014 6:17 am Post subject: |
|
|
John,
Good that you have noticed the typo/bug, but good is that %pl is resistant to it. Still attempt to run any second code with %pl crashes it. |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2923 Location: South Pole, Antarctica
|
Posted: Mon Sep 15, 2014 10:17 am Post subject: |
|
|
I'd also appreciate if our Simpleplot hacks solved one more its problem which makes it an FUglyplot: fonts for LOG scale's exponent. Here is how moronic looks scientific numbering right now: the exponent font is taken as way way too small even after i increased all font sizes. Can you guys fix it with some workaround?
 |
|
Back to top |
|
 |
aebolzan
Joined: 06 Jul 2007 Posts: 229 Location: La Plata, Argentina
|
Posted: Mon Sep 15, 2014 2:12 pm Post subject: |
|
|
within the limitations of Simpleplot (till Silverfrost contacts David Butland...), the size of the fonts can be changed by means of the proper font used (chset(?) subroutine) or the size of the font (textmg (?) subroutine). I do not remember where I put the following program in the forums, but I resend it here as it will be faster for you to see it. As you will see, CHSET above 20 gives you a larger exponent font.....
Code: |
program Simpleplot_plots
!requires simpleplot.dll
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
narr=0
do i=1,70
xarr(i)=2*i
yarr(i)=i*i
narr=narr+1
end do
call group(2,2)
DO I=1,30
ans=i
call knumb(i,istr)
CALL AXLBJS('*C','C')
call textmg(1.0)
call axsbtk('XC','I')
call axsbtk('YC','O')
call thckmg('L',2.0)
CALL AXLBJS('**', 'Centre')
minx=minval(xarr)
maxx=maxval(xarr)
miny=minval(yarr)
maxy=maxval(yarr)
xscale=1;yscale=2 !linear scale for x, log scale for y
CALL SCALES(minx,maxx,xscale,miny,maxy,yscale)
call axcrss('YC',minx)
call pen(2)
ltype=0
ctype=3
call chset(ans)
call cvtype(ctype)
CALL BRKNCV(real(xarr,1),real(yarr,1),narr,ltype)
call pen(4)
CALL AXES7(xlabel, ylabel)
call title7("t","c","Character set "//istr//" ")
end do
call endplt
end program simpleplot_plots |
you have of course installed the Hershey fonts as described elsewhere in this forum...
Hope this helps,
Agustin |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2923 Location: South Pole, Antarctica
|
Posted: Tue Sep 16, 2014 9:30 am Post subject: |
|
|
Agustin,
I forgot to mention that this has to be within %pl, I do not use full Simpleplot till it will be fixed and sources controlled by Silverfrost or users (sources opened).
Here is the demo for simplicity (why it produces zero size file "messages.txt" by the way?)
Code: | !-------------------------------------------------------
! Compilation:
!
!ftn95 aaa.for /free /debug /no_truncate /undef
!slink aaa.obj SIMPLE.DLL
!
!-------------------------------------------------------
Program simple
Real*8 x(100), y(100), z(100), u(100), v(100), w(100)
N=100
A=20000
do i=1,N;
x(i)=i-1;
y(i)=A*sin(i/30.)**2;
z(i)=A*sin(i/30.)**5;
u(i)=A*sin(i/30.)**10;
v(i)=A*cos(i/30.)**10;
w(i)=A*sin(i/30.)**2 * cos(i/30.)**2;
enddo
CALL TEXTMN(0.35)
CALL AXLBJS('*C','C')
call thckmg('LINE',3.0)
call chset(10)
i=winio@('%ww%pv%pl[x_axis="Time [s]",y_axis=Amplitude,&
&title="U(red, green-analit), U_A on load(orange), I(blue, black-anal)", &
& x_array, colour=red, colour=blue, colour=green, colour=black, &
&colour=#CC8800, X_ARRAY, SCALE=LOG_LINEAR, N_GRAPHS=5]&',&
& 600, 400, N-4, x, y, z, u, v, w)
i=winio@('%ac[esc]', 'exit')
End |
Last edited by DanRRight on Thu Sep 18, 2014 12:40 am; edited 1 time in total |
|
Back to top |
|
 |
aebolzan
Joined: 06 Jul 2007 Posts: 229 Location: La Plata, Argentina
|
Posted: Tue Sep 16, 2014 1:57 pm Post subject: |
|
|
Dan: are you using the Hershey fonts?....I get a nice plot from your code with a not so small exponent numbers......but I setup the Hershey fonts as I explained some messages up in this topic.....and if all runs well, you should produce as part of the Simpleplot output a file named MESSAGES.TXT containing a single line: "(SIMPLEPLOT Mark 2-15(015)D)"......this file, as far as I remember, provides information about the run of the Simpleplot subroutines....
If you already have the Simpleplot.ini file in the Windows folder and the Hershey.dat file in the same folder of Simple.dll, well.....then there is a problem......try to change the numbers in the call "call chset(10)", for instance to 20, and see what happens...if you still observe the same font, it means that the Hershey fonts were not installed in your system. With CHSET(10) you should get a slanted font....is this your case?
By the way (I didn't see the last message because I was writting mine), colour=#CC8800 works fine for me: I get some kind of light brown curve...is this correct?
Agustin |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2923 Location: South Pole, Antarctica
|
Posted: Wed Sep 17, 2014 9:34 am Post subject: |
|
|
No, i do not see any files called Hershey on my computer. |
|
Back to top |
|
 |
IanLambley
Joined: 17 Dec 2006 Posts: 506 Location: Sunderland
|
Posted: Wed Sep 17, 2014 1:41 pm Post subject: |
|
|
Dan,
I've just located an old version of the hershy files and uploaded them to:
norsoftdev.com/hershey.fnt
norsoftdev.com/hershey.htm
These are dated 12-May-1995 and 31-Jan-2002 respectively.
REgards
Ian |
|
Back to top |
|
 |
aebolzan
Joined: 06 Jul 2007 Posts: 229 Location: La Plata, Argentina
|
Posted: Wed Sep 17, 2014 1:46 pm Post subject: |
|
|
I suspected that!....Dan, please, go to the very first message of this topic. There you will see my instructions about how to install them and four or five messages below, you will see a message from Paul that indicates where to find the hershey.dat file as a zip file. Once you have installed them, let us know if you eventually get what you want (or at least more or less what you want considering the limitations of Simpleplot....).
Agustin |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2923 Location: South Pole, Antarctica
|
Posted: Wed Sep 17, 2014 10:50 pm Post subject: |
|
|
I changes few hard drives lately and may lost hershey if I installed it (do not remember exactly, plus I was very reluctant to do that, Hershey never looked very good before, only deep despise of utterly bad Simpleplot %pl look which smells like DOS 1.1 may pushed me). The 7.1 definitely does not install that by default. The hack with not centered tic marks worked satisfactory without hershey. If better quality was needed i edited fonts, titles and axis marks by hand but was tired to do that lately with LOG scale. Will see what this new hack gives...thanks.
Meantime, can you post on Postimage dot org or other photo posting place screnshot of axis look from my program above?
How to remove creation of file MESSAGE.TXT? It either crashes %pl or after installing Hershey does not allow second instance of the code to run.
Update: something is still wrong. Changing font from 1 to 20 does not change anything a slightest bit. Same font. |
|
Back to top |
|
 |
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|