forums.silverfrost.com

[aebolzan]

Im am plotting data using the simpleplot facilities of Clearwin+ and I want to
mark two points in a curve with a mouse click on the graph, take the data points between these limits and perform the fit of the data in the range marked in the plot. I have checked some subroutines of simpleplot but I do not find how to do this. Have anyone tried to pick up data points from a graph made using clearwin?

Thanks in advance!

Agustin

[PaulLaidler]

Here is a sample program that uses full_mouse_input...

[aebolzan]

Thank you Paul for your code, but it is not what I mean. I have no problems with mouse input, in fact with my program I can get windows coordinates with no problems. The point is how can I transform these "pixel" or "window" coordinates into "data" coordinates. i.e. if I have a graph about Temperature and Presure, when I click with the mouse and get x=200 and y=300 (window pixels) I get T=315 and P = 0.5 as a result. Do you follow what I mean?

Agustin

[PaulLaidler]

Sorry, I don't know how I missed your reference to SimplePlot.

Off hand I don't know how to work out the transformation but %gp may be useful; also clearwin_info@('SCREEN_WIDTH') and clearwin_info@('SCREEN_DEPTH').

There is also get_window_location@ used together with %lc.

[LitusSaxonicum]

Paul,
I don't think it registered with you that Agustin was using Simpleplot - I'm guessing that you read it that he was using “simple plot” routines! I read your first reply, and was amazed to imagine that the mouse worked the same in a Simpleplot window as a %gr window – and I guess that it doesn’t.

Agustin,
In the documentation area of the Silverfrost website you will find a range of documents on Simpleplot. In some of them, mention is made of a routine GETXY for interaction using the mouse in a Simpleplot window. This is a Simpleplot (i.e. BUSS) routine not a Silverfrost one, as it doesn't end with @. One of the difficult things to discover is precisely what is present in the “bundled” version, and what extra facilities were in the full version. Whether or not GETXY is included in the bundled mini version of Simpleplot that is supplied with FTN95 I don't know. You should probably start by downloading all the Simpleplot documentation and read it all. You may find the answer there - although if the routine is available only in the full Simpleplot then you continue to have a problem.

In the Simpleplot documentation, it talks about placing Simpleplot graphics into a conventional %dw window. This is in the document "Using Simpleplot with FTN95" in section 5.2.3. There is sample code there and a tutorial. I don't like %dw - it doesn't work properly with all the Silverfrost routines - so maybe it is worth trying with %gr instead. Then you can use the method Paul gave you for getting the mouse position.

When drawing any graphics, you always have to do a conversion from real world coordinates to pixels, both for scaling and for shifting the origin. To get back, reverse the process. Remember that the mouse position is given to 1 pixel accuracy, and this isn't very good (usually) in real world coordinates, so you may have to make an intelligent decision about what the real world equivalent should be and round (up or down) your mouse position accordingly.
I keep the conversions in “statement functions”, so, for example,

[aebolzan]

Thank you Ed for your comments. I will probably try your suggestion after finishing my tries with Simpleplot. I know the getxy subrooutine that should be used along with kxyxy to obtain the mouse position coordinates (getxy) and convert to user defined coordinates (kxyxy) but...it seems that, at least with clearwin windows such as %gr and %pl, does not work. I will give a look to %dw although you think it is not the best way to work with graphics windows. For your information, the Simpleplot library that comes with FTN95 is, as far as I know, complete, i.e. it is the same that BUSS used to provide to their users. I bougth Simpleplot long time ago (1993?) and the last version I got was 2.15, which is not very different from the last version BUSS produced after they closed. Although I have the full documentation of Simpleplot, the manuals were not the best ones for understanding how every subroutine worked. However, I think that graphics are done easier with Simpleplot than with FTN95 facilities. Am I wrong?

Agustin

[LitusSaxonicum]

Agustin,

If you are just drawing a graph, then Simpleplot has to be easier than doing it yourself. However, if you want to interact with the graph, then in my view doing it yourself is best.

A quick fix might be to ask the user to input the values for redrawing the graph rather than picking them up with the mouse. Best of luck.

Eddie

[aebolzan]

well, in fact I was thinking precisely about that, i.e. see the graph and input the upper and lower values that one like to fit (for instance). Thanks for your comments.

Agustin

[DanRRight]

[PaulLaidler]

The include file is also listed in my post.

[aebolzan]

Well, well, I eventually found how to get the x,y values of a point in a plot using Clearwin and Simpleplot! Just in case someone find it useful....

Agustin

module clearwin_sp
!Contains definition of values to pass to DDDATA
INTEGER SIMPLE_WINDOWS_SET_WINDOWNAME
PARAMETER(SIMPLE_WINDOWS_SET_WINDOWNAME = 6)
INTEGER SIMPLE_WINDOWS_SET_HDC_DIM
PARAMETER(SIMPLE_WINDOWS_SET_HDC_DIM = 7)
INTEGER SIMPLE_WINDOWS_END_LIST
PARAMETER(SIMPLE_WINDOWS_END_LIST = 0)
! Useful definition of data structure to hold BitmapDC to pass to SIMPLEPLOT
INTEGER*4 iBitmapDC, iWidth, iHeight
contains
subroutine ini_bitmap
use mswin
iWidth=GetSystemMetrics(SM_CXSCREEN)*0.75
iHeight=GetSystemMetrics(SM_CYSCREEN)*0.75
ibitmapdc=GET_BITMAP_DC@(INTS(iWidth),INTS(iHeight))
end subroutine ini_bitmap
! ******************* SP_SupplyBitmap ***********************
! Set up a Static (SAVEd) parameter block consisting of an array of pairs of
! integers. Each pair of integers consists of a function number 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
SUBROUTINE SP_SupplyBitmap ! Pass Bitmap to SIMPLEPLOT
INTEGER*4 iParams(4)
SAVE iParams
iParams(1) = SIMPLE_WINDOWS_SET_HDC_DIM ! hDC + dimensions
iParams(2) = LOC(iBitmapDC) ! Address of PARAMETER block
iParams(3) = SIMPLE_WINDOWS_END_LIST! End of list
CALL DDDATA(LOC(iParams(1)))! Notify SIMPLEPLOT
CALL DEVNAM('WINDOW') ! Select Window
CALL OWNNEW(.TRUE.) ! Inhibit 'Continue' button
END subroutine sp_supplybitmap
! ********************* Update Window **********************
! This subroutine is called whenever the bitmap is to be copied to the screen.
! Until this is called, none of the graphics produced by SIMPLEPLOT is visible
SUBROUTINE UpdateWin
CALL OUTBUF ! Flush buffers
CALL WINDOW_UPDATE@(iBitmapDC) ! Copy Bitmap to window
END subroutine updatewin
end module clearwin_sp

program getxy
use clearwin_sp
LIBRARY 'C:\simple.dll'
integer ans
external get_xy
call ini_bitmap
call sp_supplybitmap
ans=winio@('%ww%ca[My program GetXY]&')
ans=winio@('%^dw&',ibitmapdc,get_xy)
ans=winio@('%ff%cn%bt[OK]')
end program getxy

integer function get_xy()
use mswin
use clearwin_sp
real*4,dimension(50) ::dat_x,dat_y
real ::minx,maxx,miny,maxy
character*6 ::xt,yt
integer f
do i=1,50
dat_x(i)=i+20
dat_y(i)=i*3+52
end do
f=50
minx=MINVAL(dat_x)
maxx=MAXVAL(dat_x)
miny=MINVAL(dat_y)
maxy=MAXVAL(dat_y)
CALL INITSP
call axsbtk('XC','I')
call axsbtk('YC','I')
call axlbjs('X','C')
call textmg(1.5)
CALL CHSET(0)
call textmg(2.0)
CALL SCALES(minx,maxx,1,miny,maxy,1)
CALL NEWPIC
CALL AXIS7('XC','x')
CALL AXIS7('YC','y')
call pen(2)
CALL MARKCV(real(dat_x,1),real(dat_y,1),f,5,1)
CALL TITLE7('O','C','Test of Get_XY')
call updatewin
ibutton=and(clearwin_info@('graphics_mouse_flags'),31)
!click on the mouse right button to show the picture on screen
if(ibutton.ne.1) return
!click on the left button to pick the points on the plot
ix=clearwin_info@('graphics_mouse_x')
iy=iheight-clearwin_info@('graphics_mouse_y')
call kxyxy(1,real(ix),real(iy),5,rx,ry)
print*,rx,ry
call markpt(rx,ry,5)
CALL KREAL(RX,XT)
CALL KREAL(RY,YT)
xl=len(xt)
yl=len(yt)
total=xl+yl+1
call caplbm(rx,ry-4,15,xt//','//yt,total)
call updatewin
get_xy=1
end function get_xy

[DanRRight]

[aebolzan]

You should set "use mswin" and not "use clrwin" as the module with the clearwin+ code is called mswin. Clearwin.ins was part of FTN77 (when modules did not exist) not FTN95 (or FTN90 in the very early days....).

Agustin

[DanRRight]

[PaulLaidler]

In the same window use %mg with WM_KEYDOWN and/or WM_SYSKEYDOWN.

Look these up in MSDN and find out what the wparam and lparam in the message are. Then in your callback for %mg, get the wparam and lparam from clearwin_info@("MESSAGE_WPARAM") etc.