|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: Nürnberg, Germany
|
Posted: Wed Jan 20, 2010 9:59 am Post subject: |
|
|
I do not know the marketing strategy from Silverfrost, but the following came to my mind: If the user examples are to be included in the next release it means that only Silverfrost users benefit from this, i.e. no potential users are addressed. Comparing to user examples on the Silverfrost website, I see the following oppertunity:
1.) ClearWin/Silverfrost is public available on the web;
2.) if some potential user becomes aware of the possibilties he can immediatly download the FTN95 PE and
3.) the user examples becomes dynamic. |
|
Back to top |
|
|
Wilfried Linder
Joined: 14 Nov 2007 Posts: 314 Location: Düsseldorf, Germany
|
Posted: Wed Jan 27, 2010 5:25 pm Post subject: |
|
|
I think it would be really good if there is a possibility to share software examples. I can offer you for instance a small but nice text editor with source code, standard icons etc., all files zipped with less than 18 KB. It's free.
Simply write to wilfried.linder@uni-duesseldorf.de and I will send you the editor.
Regards,
Wilfried |
|
Back to top |
|
|
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: Nürnberg, Germany
|
Posted: Fri Jan 29, 2010 8:21 am Post subject: |
|
|
Wilfried, thanks for supporting this idea. I do belive that there are more users that would like to see something happening here! |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2816 Location: South Pole, Antarctica
|
Posted: Fri Feb 05, 2010 12:14 am Post subject: |
|
|
Here is just a bit more complex Fahreheit to Celcius, Kelvin and electron-volts and vice versa converter with 3 convenience sliders covering temperatues from human body to neutron star which i sometimes use myself. The code and picture for the simpler one you've seen before,
it was just a demo, you can find in other thread.
I will simply post the code here without the picture, the only missing will be background file, which you can easily substitute. Glue two parts together and compile FTN95 filename.f95 /link
Code: |
! Dan R Right 2009. Reference on author is not required. Use at your own risk
module Funct
real*8 Rel_Temp01, Rel_Temp01Sun, Rel_Temp01NStar, Temp_Fahrenheit, Temp_Celsius, Temp_Kelvin, Temp_EV
real*8 TempHumanMin, TempHumanMax
contains
integer function update_Slider ()
Temp_Fahrenheit = TempHumanMin + (TempHumanMax-TempHumanMin) * Rel_Temp01
Temp_Celsius = (Temp_Fahrenheit-32)*5./9.
Temp_Kelvin = Temp_Celsius + 273.
Temp_EV = Temp_Kelvin/11604.505
Rel_Temp01 = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)
Rel_Temp01Sun = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1000
Rel_Temp01NStar = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1.e11
update_Slider = 1
end function
integer function update_SliderSun ()
Temp_Fahrenheit = TempHumanMin + (TempHumanMax-TempHumanMin) * Rel_Temp01Sun * 1000
Temp_Celsius = (Temp_Fahrenheit-32)*5./9.
Temp_Kelvin = Temp_Celsius + 273.
Temp_EV = Temp_Kelvin/11604.505
Rel_Temp01 = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)
Rel_Temp01Sun = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1000
Rel_Temp01NStar = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1.e11
update_SliderSun= 1
end function
integer function update_SliderNStar ()
Temp_Fahrenheit = TempHumanMin + (TempHumanMax-TempHumanMin) * Rel_Temp01NStar * 1.e11
Temp_Celsius = (Temp_Fahrenheit-32)*5./9.
Temp_Kelvin = Temp_Celsius + 273.
Temp_EV = Temp_Kelvin/11604.505
Rel_Temp01 = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)
Rel_Temp01Sun = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1000
Rel_Temp01NStar = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1.e11
update_SliderNStar = 1
end function
integer function update_F ()
Temp_Celsius = (Temp_Fahrenheit-32)*5./9.
Temp_Kelvin = Temp_Celsius + 273.
Temp_EV = Temp_Kelvin/11604.505
Rel_Temp01 = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)
Rel_Temp01Sun = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1000
Rel_Temp01NStar = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1.e11
update_F = 1
end function
integer function update_C ()
Temp_Fahrenheit = 32 + Temp_Celsius * 9./5.
Temp_Kelvin = Temp_Celsius + 273.
Temp_EV = Temp_Kelvin/11604.505
Rel_Temp01 = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)
Rel_Temp01Sun = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1000
Rel_Temp01NStar = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1.e11
update_C = 1
end function
|
Last edited by DanRRight on Fri Feb 05, 2010 12:25 am; edited 4 times in total |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2816 Location: South Pole, Antarctica
|
Posted: Fri Feb 05, 2010 12:17 am Post subject: |
|
|
Code: |
integer function update_K ()
Temp_Celsius = Temp_Kelvin - 273.
Temp_Fahrenheit = 32 + Temp_Celsius * 9./5. + 273.
Temp_EV = Temp_Kelvin/11604.505
Rel_Temp01 = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)
Rel_Temp01Sun = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1000
Rel_Temp01NStar = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1.e11
update_K = 1
end function
integer function update_eV ()
Temp_Kelvin = Temp_eV * 11604.505
Temp_Celsius = Temp_Kelvin-273.
Temp_Fahrenheit = 32 + Temp_Celsius * 9./5. + 273.
Rel_Temp01 = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)
Rel_Temp01 = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)
Rel_Temp01Sun = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1000
Rel_Temp01NStar = (Temp_Fahrenheit-TempHumanMin )/(TempHumanMax-TempHumanMin)/1.e11
update_eV = 1
end function
end module funct
Program F_to_C_to_K_to_eV
use clrwin
use funct
TempHumanMin = 90; TempHumanMax = 110
Temp_Fahrenheit = 98
Temp_Celsius = 36.6
Temp_Kelvin = Temp_Celsius + 273.
Temp_eV = Temp_Kelvin/11604.505
i=winio@('%sy[3d_raised]%ww[casts_shadow]&')
i=winio@('%ca[Fahrenheit to Celsius to Kelvin to eV]&')
i=WINIO@('%wp[BkGrTurb01]&')
i=winio@('%bg[grey]&')
i=winio@('%cn Type your input in any field or use slider%ff&')
i=winio@('%4.1ob&')
i=winio@('Human %ff&')
i=winio@('%^12sl[vertical ]%ff&', Rel_Temp01, 0.0D0, 1.0D0, update_Slider)
i=winio@('%cb&')
i=winio@(' Sun %ff&')
i=winio@('%^12sl[vertical ]%ff&', Rel_Temp01Sun, 0.0D0, 1.0D0, update_SliderSun)
i=winio@('%cb&')
i=winio@('N-Star %ff&')
i=winio@('%^12sl[vertical ]%ff&', Rel_Temp01NStar, 0.0D0, 1.0D0, update_SliderNStar)
i=winio@('%cb&')
i=winio@('%fn[Times new Roman]%ts%tc[red]%bf%cn C = &
&%fl%^8rf%sf%ff&', 2.0d0, -1.d199, 1.d199, Temp_Celsius, update_C)
i=winio@('%fn[Times new Roman]%ts%tc[blue]%bf%cn F = &
&%fl%^8rf%sf%ff&', 2.d0, -1.d199, 1.d199, Temp_Fahrenheit, update_F)
i=winio@('%fn[Times new Roman]%ts%tc[green]%bf%cn K = &
&%fl%^8rf%sf%ff&', 2.0d0, -1.d199, 1.d199, Temp_Kelvin, update_K)
i=winio@('%fn[Times new Roman]%ts%tc[black]%bf%cn eV= &
&%fl%^8rf%sf%ff&', 2.0d0, -1.d199, 1.d199, Temp_eV, update_eV)
i=winio@('%cb&')
i=winio@('%ac[esc]&','exit')
i=winio@('%nl%ff%cn%3`bt[OK]')
! horizontal left_right vertical bottom_top
Fahr_to_C = 2
end
Resources
BkGrTurb01 bitmap BkGrTurb01.bmp
|
|
|
Back to top |
|
|
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: Nürnberg, Germany
|
Posted: Wed Feb 10, 2010 11:12 am Post subject: |
|
|
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!
|
|
Back to top |
|
|
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: Nürnberg, Germany
|
Posted: Wed Feb 10, 2010 11:49 am Post subject: |
|
|
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?
|
|
Back to top |
|
|
IanLambley
Joined: 17 Dec 2006 Posts: 490 Location: Sunderland
|
Posted: Wed Feb 10, 2010 1:19 pm Post subject: |
|
|
Hi,
use the following to create the windows
Code: |
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 |
|
Back to top |
|
|
Wilfried Linder
Joined: 14 Nov 2007 Posts: 314 Location: Düsseldorf, Germany
|
Posted: Wed May 05, 2010 7:58 am Post subject: HP-GL-1 |
|
|
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 |
|
Back to top |
|
|
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: Nürnberg, Germany
|
Posted: Tue May 11, 2010 9:28 am Post subject: |
|
|
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 |
|
Back to top |
|
|
aebolzan
Joined: 06 Jul 2007 Posts: 229 Location: La Plata, Argentina
|
Posted: Wed May 12, 2010 3:46 pm Post subject: Re: |
|
|
IanLambley wrote: | Hi,
use the following to create the windows
Code: |
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 |
|
Back to top |
|
|
IanLambley
Joined: 17 Dec 2006 Posts: 490 Location: Sunderland
|
Posted: Wed May 12, 2010 6:34 pm Post subject: |
|
|
Instead of just %ff use %ff%nl or %ap or %rp. Or place some intermediate controls or text.
Ian |
|
Back to top |
|
|
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: Nürnberg, Germany
|
Posted: Mon May 17, 2010 8:41 am Post subject: |
|
|
Here is some example to show what Ian meant:
Code: | 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. |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2816 Location: South Pole, Antarctica
|
Posted: Tue Mar 27, 2012 4:02 pm Post subject: |
|
|
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? |
|
Back to top |
|
|
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: Nürnberg, Germany
|
Posted: Wed Mar 28, 2012 7:07 am Post subject: |
|
|
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. |
|
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
|