forums.silverfrost.com

I often use %pl or %gr to develop simple animations. These generally run for a fixed period at a fixed speed after the user invokes the start callback. I have been thinking that it would be useful f ...

Marting,

The really important thing about using binary direct access is getting the record length correct. This demonstrates the idea.

Ken

implicit none
integer, parameter :: sp ...

There is a discussion of this here which gives some "nice" colour ramps, which might assist you.

http://paulbourke.net/miscellaneous/colourspace/

Ken

Another thought.

Have you tried exporting the x y arrays that define the border in the call to %pl to a text file (immediately before the %pl call), and then importing that text file into Excel a ...

Part 3

integer function plot()
integer, save :: iw
iw = CREATE_GRAPHICS_REGION@(handle_internal_gr,gw,gh )
if ( iw .ne. 1) STOP 'Failed to create internal ...

Part 2
integer function pl_cb()
character(len=30) cb_reason
integer i,j,k, x1p, y1p, jj, kk
real(kind=dp) x1r,y1r, x1rr, y1rr, dx, dy
character(len=30) output_st ...

PART 1

module example
use clrwin
implicit none
integer, parameter :: sp=kind(1.0), dp=kind(1.d0), gw = 1000, gh = 800, N=50
integer :: handle_internal_gr = 1, ...

Good to see you are making progress.

The combination of checkboxes and two graphics regions was not one I have used or tested before.

Yes there is a problem with symbol = 12 and symbol = 13 when ...

Martin,

A few ideas to try:

Examine the integer value returned by COPY_GRAPHICS_REGION@. It should return 1 for success.

Check that the dimensions of the %pl and the internal file you are co ...

Part 2.

integer function pl_cb()
character(len=30) cb_reason
integer i,j,k, x1p, y1p, jj, kk
real(kind=dp) x1r,y1r, x1rr, y1rr
character(len=30) output_strin ...

Or if you want to retain the concept of there being a grid around the selected points, something like this perhaps.

module example
use clrwin
implicit none
integer, parameter :: dp= ...

Part 2

integer function pl_cb()
character(len=30) cb_reason
integer i,j,k, x1p, y1p
real(kind=dp) x1r,y1r
character(len=30) output_string(4)
cb_ ...

Do you really need plot the grid points and hence require to pass the large arrays with the grid points to %pl?

In this example there are just two 2 points to define the full extent of the grid.
...

This demonstrates the process I described in my previous post. The nearest grid point to the mouse is highlighted and some information related to this is displayed on the screen.

module example
u ...

Paul,

I discovered by accident that a call to rotate_font@(0.d0) immediately, before the call to draw_characters@ fixes the problem. Without this, the text is initially drawn in the incorrect pla ...