|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7938 Location: Salford, UK
|
Posted: Wed Nov 22, 2017 10:49 pm Post subject: |
|
|
You have to play with the input parameters to see the failure.
All of this (relating to Dan's program and Ken's program) has now been fixed. For the next release of the ClearWin+ library. Dan's original code (with minor adjustments) will probably also work. |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2834 Location: South Pole, Antarctica
|
Posted: Wed Nov 22, 2017 11:22 pm Post subject: |
|
|
Thanks Paul.
And great when there is a lot of interested users, the pants on devilry responsible on all FTN95 bugs burn like a fire near mount Diablo. |
|
Back to top |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Thu Nov 23, 2017 7:09 am Post subject: |
|
|
I'll have a look, which code, original or 'corrected' ?
Don't forget a comment I posted earlier in this thread �where I saw incorrect spacing of gridlines in an example ! |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2834 Location: South Pole, Antarctica
|
Posted: Thu Nov 23, 2017 9:53 am Post subject: |
|
|
And one minor detail for quick fix for Paul: the minus sign in negative part of Y axis in my or Ken's examples is also placed way too far from the number labels. I had to photoshop spaces out before showing plots to others |
|
Back to top |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Thu Nov 23, 2017 10:12 am Post subject: |
|
|
sorry, can't run Ken's codes because gridlines isn't in v8.1
don't forget the missing '0' at Y-acxis origin too (identified previously) |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7938 Location: Salford, UK
|
Posted: Thu Nov 23, 2017 7:41 pm Post subject: |
|
|
Dan
If you mean, for example, the distance between '-' and '3' in -3.0 then that depends only on the font that is used. There is no space character that separates the minus from the 3.0.
You could try using different fonts in your code to see if another font gives a better result. |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2834 Location: South Pole, Antarctica
|
Posted: Thu Nov 23, 2017 11:46 pm Post subject: |
|
|
All,
Can you confirm Paul's words using his own last example on page 17? I see on X axis the minus sign on labels looks OK, on Y axis it is way off, specifically with large fonts, any type of fonts
Last edited by DanRRight on Fri Nov 24, 2017 10:45 am; edited 1 time in total |
|
Back to top |
|
|
Kenneth_Smith
Joined: 18 May 2012 Posts: 697 Location: Hamilton, Lanarkshire, Scotland.
|
Posted: Fri Nov 24, 2017 9:15 am Post subject: |
|
|
The second plot below shows Dan's extra space between minus sign and number.
|
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2834 Location: South Pole, Antarctica
|
Posted: Fri Nov 24, 2017 10:40 am Post subject: |
|
|
Thanks, Ken, this on the right is what i see. And sometimes this becomes a disaster like here
|
|
Back to top |
|
|
Kenneth_Smith
Joined: 18 May 2012 Posts: 697 Location: Hamilton, Lanarkshire, Scotland.
|
Posted: Fri Nov 24, 2017 11:11 am Post subject: |
|
|
Disaster indeed Dan, that's another reason why on option to place the scales out side the frame would be beneficial. It would eliminate the scale text from x and y axis overlapping in cases like this:-
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7938 Location: Salford, UK
|
Posted: Fri Nov 24, 2017 11:27 am Post subject: |
|
|
Ken
How did you get a y interval of 3 and just one significant figure in the y values? |
|
Back to top |
|
|
silicondale
Joined: 15 Mar 2007 Posts: 252 Location: Matlock, Derbyshire, UK
|
Posted: Fri Nov 24, 2017 11:38 am Post subject: |
|
|
Surely the default should be that annotation is placed outside the box? Almost always it will interfere (or there is a risk that it will interfere) with data being plotted within the box. When I developed a graphic subsystem (from first principles) in the 1970s and 1980s my users would never have even considered having annotation along axes within the plotting area !
http://www.vmine.net/g-exec/doc/gplot.pdf |
|
Back to top |
|
|
Kenneth_Smith
Joined: 18 May 2012 Posts: 697 Location: Hamilton, Lanarkshire, Scotland.
|
Posted: Fri Nov 24, 2017 12:08 pm Post subject: |
|
|
Paul,
Using Dan's code:-
Code: | module surfplot2mod
use clrwin
integer (7) ihandleSP2
real*8 x(2),y(2), xEllipse, yEllipse
real*8 xAxisMin, xAxisMax, yAxisMin, yAxisMax
CONTAINS
INTEGER FUNCTION plotSP()
x(1)=xAxisMin
x(2)=xAxisMax
y(1)=yAxisMin
y(2)=yAxisMax
call simpleplot_redraw@
ixR=7; iYr=7
call get_plot_point@(1d0, 1d0, xEllipse, yEllipse)
call draw_filled_ellipse@ (nint(xEllipse), nint(yEllipse),ixR,iYr,rgb@(244,0,0) )
call UPDATE_WINDOW@(ihandleSP2)
plotSP= 2
end function plotSP
!......................................................
INTEGER FUNCTION clearPL()
CALL simpleplot_redraw@()
clearPL = 2
END FUNCTION clearPL
end module surfplot2mod
!.......................
Program SurfPlot2
use surfplot2mod
xAxisMin =-4
xAxisMax = 5
yAxisMin =-4
yAxisMax = 5
x(1)=xAxisMin
x(2)=xAxisMax
y(1)=yAxisMin
y(2)=yAxisMax
i = winio@ ('%ww%nr&')
call winop@ ('%pl[native,x_array,N_GRAPHS=1]')
call winop@ ('%pl[scale=linear]')
CALL winop@("%pl[tick_len=9]")
i = winio@ ('%sf%ts%bf&', 2d0)
call winop@ ("%pl[framed,axes_pen=3,width=3,x_axis='Length',y_axis='Width']")
i = winio@ ('%pv%pl&',800,600,2,x,y)!
i = winio@ ('%sf%ts%ff&', 1d0)
i = winio@ ('Set Xmin, Xmax%ta%df%9^rf%df%9^rf%ff&',1d-1,xAxisMin,'+', clearPL, plotSP, 1d0, xAxisMax,'+', clearPL, plotSP)
i = winio@ ('Set Ymin, Ymax%ta%df%9^rf%df%9^rf%ff&',1d-1,yAxisMin,'+', clearPL, plotSP, 1d0, yAxisMax,'+', clearPL, plotSP)
i = winio@ ('%cn%^bt[PLOT]%^bt[Clear]%ff&', '+', clearPL, plotSP, clearPL)
i = winio@ ('%ac[Esc]&', 'exit')
i = winio@ ('%hw%lw', ihandleSP2, lw_SP2)
jj = plotSP()
end |
Use the spinwheel to change ymax, and observe y axis change multiple times for values between 5 and 20.
Ken |
|
Back to top |
|
|
Kenneth_Smith
Joined: 18 May 2012 Posts: 697 Location: Hamilton, Lanarkshire, Scotland.
|
Posted: Fri Nov 24, 2017 12:25 pm Post subject: |
|
|
Paul,
See also my "Curly Wurly" code posted on Fri Sep 22, 2017 2:25 pm, I think this is the same basic problem. I've just rerun this with 8.2 and the strange effects on both axis scales are still apparent.
Ken |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7938 Location: Salford, UK
|
Posted: Fri Nov 24, 2017 6:13 pm Post subject: |
|
|
Ken and Dan
The rogue space has now been located. Thank you.
silicondale
You may be right be don't forget that this development as grown out of the existing SIMPLEPLOT %pl. |
|
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
|