User's Examples

I compiled the editor from Wilfried (and learned that one can add a *.rc file to the project). In the screen shot I selected File → Save as. Very nice example to see how to get the icons on the toolbar.

The nice thing about user examples is that one can look at the applications and use that as a basis for the own work!

A long time ago I made a DFT tool using Matlab. No that I have discovered Clearwin+ I would like to implement the same function. One advantage will be that the processing time with Fortran will be much (much) faster. The program reads the time signal (or a spatial function) and performs a DFT. In the top window the funtion is displayed and in the lower window the result of the DFT.

How does one get two graphs in a Clearwin+ window?

Hi,

use the following to create the windows

integer*4 width, height handle1, handle2
width=500
height=100
handle1 = 1
i=winio@('%`gr[options]', width, height, handle1)
handle2 = 2
i=winio@('%ff%`gr[options]', width, height, handle2)

And to draw to them, call SELECT_GRAPHICS_OBJECT@( ihandle1 ) or SELECT_GRAPHICS_OBJECT@( ihandle2 ) before the graphics calls to each window.

Ian

If anyone needs a display tool for HP-GL-1 pen plotter files, please write to wilfried.linder@uni-duesseldorf.de. You can display, print and convert files [PostScript, DXF, BMP, PCX]. Complete zip archive (32 KB) with fortran source code. The only disadvantage: All comments are in German.

Wilfried

I tested the display tool form Wilfried. Works well. Moreover, I especially learned from the export (convert) parts of the program. And the German it not really a disadvantage 😃

Quoted from IanLambley Hi,

use the following to create the windows

integer*4 width, height handle1, handle2
width=500
height=100
handle1 = 1
i=winio@('%`gr[options]', width, height, handle1)
handle2 = 2
i=winio@('%ff%`gr[options]', width, height, handle2)

And to draw to them, call SELECT_GRAPHICS_OBJECT@( ihandle1 ) or SELECT_GRAPHICS_OBJECT@( ihandle2 ) before the graphics calls to each window.

Ian

Ian,

I tried your suggestion for one of my programs and what I get is just two windows one after the other without any separation!. This is not what jjgermis was showing in his example. Maybe there is some additional code needed to locate the windows separately?

Best wishes,

Agustin

Instead of just %ff use %ff%nl or %ap or %rp. Or place some intermediate controls or text. Ian

Here is some example to show what Ian meant:

  WINAPP
  INCLUDE 'clearwin.ins'
  INTEGER ctrl,hnd1,hnd2
  DATA hnd1,hnd2/1,2/
! ----Graphics handles are input values to %gr ---
!
  CALL set_rgb_colours_default@(1)
  i=winio@('%`gr&',400L,300L,hnd1)
  i=winio@('%ff%`gr&',400L,300L,hnd2)
  i=winio@('%ww%lw',ctrl)
  i=select_graphics_object@(hnd1)
  CALL draw_line_between@(100,100,300,200,RGB@(0,0,255))
  i=select_graphics_object@(hnd2)
  CALL draw_filled_ellipse@(200,150,75,50,RGB@(255,0,0))
  END

The original example is in the Clearwin+ help: Win32 Platform->Clearwin+->Graphics->Graphics format.

The free file hosting services usually have time limits, so the links hosted by Rapidshare are expired. PM me if you need these examples though i am not very often login here.

But may be this site host them?

It is a pitty that the freehosting providers have a time limit. I think there are many oppotunities to share material (and sourcecode examples). A while ago I discovered a very nice Fortran Mesher. Did a few adaptions and tried to document the scattered information. Unfortunately it is diffucult to make it available here.

Another nice and cool example: Minesweeper