forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

User's Examples
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Suggestions
View previous topic :: View next topic  
Author Message
jjgermis



Joined: 21 Jun 2006
Posts: 404
Location: Nürnberg, Germany

PostPosted: Wed Jan 20, 2010 9:59 am    Post subject: Reply with quote

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
View user's profile Send private message
Wilfried Linder



Joined: 14 Nov 2007
Posts: 314
Location: Düsseldorf, Germany

PostPosted: Wed Jan 27, 2010 5:25 pm    Post subject: Reply with quote

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
View user's profile Send private message
jjgermis



Joined: 21 Jun 2006
Posts: 404
Location: Nürnberg, Germany

PostPosted: Fri Jan 29, 2010 8:21 am    Post subject: Reply with quote

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
View user's profile Send private message
DanRRight



Joined: 10 Mar 2008
Posts: 1897
Location: South Pole, Antarctica

PostPosted: Fri Feb 05, 2010 12:14 am    Post subject: Reply with quote

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
View user's profile Send private message
DanRRight



Joined: 10 Mar 2008
Posts: 1897
Location: South Pole, Antarctica

PostPosted: Fri Feb 05, 2010 12:17 am    Post subject: Reply with quote

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
View user's profile Send private message
jjgermis



Joined: 21 Jun 2006
Posts: 404
Location: Nürnberg, Germany

PostPosted: Wed Feb 10, 2010 11:12 am    Post subject: Reply with quote

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
View user's profile Send private message
jjgermis



Joined: 21 Jun 2006
Posts: 404
Location: Nürnberg, Germany

PostPosted: Wed Feb 10, 2010 11:49 am    Post subject: Reply with quote

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
View user's profile Send private message
IanLambley



Joined: 17 Dec 2006
Posts: 470
Location: Sunderland

PostPosted: Wed Feb 10, 2010 1:19 pm    Post subject: Reply with quote

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
View user's profile Send private message Send e-mail
Wilfried Linder



Joined: 14 Nov 2007
Posts: 314
Location: Düsseldorf, Germany

PostPosted: Wed May 05, 2010 7:58 am    Post subject: HP-GL-1 Reply with quote

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
View user's profile Send private message
jjgermis



Joined: 21 Jun 2006
Posts: 404
Location: Nürnberg, Germany

PostPosted: Tue May 11, 2010 9:28 am    Post subject: Reply with quote

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 Smile
Back to top
View user's profile Send private message
aebolzan



Joined: 06 Jul 2007
Posts: 229
Location: La Plata, Argentina

PostPosted: Wed May 12, 2010 3:46 pm    Post subject: Re: Reply with quote

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
View user's profile Send private message
IanLambley



Joined: 17 Dec 2006
Posts: 470
Location: Sunderland

PostPosted: Wed May 12, 2010 6:34 pm    Post subject: Reply with quote

Instead of just %ff use %ff%nl or %ap or %rp. Or place some intermediate controls or text.
Ian
Back to top
View user's profile Send private message Send e-mail
jjgermis



Joined: 21 Jun 2006
Posts: 404
Location: Nürnberg, Germany

PostPosted: Mon May 17, 2010 8:41 am    Post subject: Reply with quote

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
View user's profile Send private message
DanRRight



Joined: 10 Mar 2008
Posts: 1897
Location: South Pole, Antarctica

PostPosted: Tue Mar 27, 2012 4:02 pm    Post subject: Reply with quote

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
View user's profile Send private message
jjgermis



Joined: 21 Jun 2006
Posts: 404
Location: Nürnberg, Germany

PostPosted: Wed Mar 28, 2012 7:07 am    Post subject: Reply with quote

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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Suggestions All times are GMT + 1 Hour
Goto page Previous  1, 2, 3  Next
Page 2 of 3

 
Jump to:  
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