soccer jersey forums.silverfrost.com :: View topic - Hershey fonts available for Simpleplot
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 

Hershey fonts available for Simpleplot
Goto page 1, 2, 3, 4, 5, 6  Next
 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Suggestions
View previous topic :: View next topic  
Author Message
aebolzan



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

PostPosted: Fri Jun 13, 2014 3:36 pm    Post subject: Hershey fonts available for Simpleplot Reply with quote

I changed the subject from the previous topic so that this message is not buried too deep in another discussion.....well.....Hershey fonts are available!!!....after a short but careful investigation, I remembered how Simpleplot was normally installed and among other things, the old intaller put a Simple.ini file in the Windows directory (today "folder"). So I created a simple.ini file with only the statement

[General]
HERSHEY=c:\Program Files (x86)\Silverfrost\FTN95\hershey.dat

and put in the Windows folder.....and the hershey.dat file with simple.dll in the usual FTN95 place and...WORKS AS FINE AS EVER!......in fact, it seems that the labels are now correctly aligned with the ticks on the y axis....

I could put here a copy of the test file that shows the usual plot that I showed a couple of days ago with the Courier, Helvetica, etc. but I don't know how to put available the hershey.dat file to the community.....I could send it as attachment to John-Silver, but I do not know if there is some othe people also interested....DanRRight maybe?.

Please Paul, let me know how to procede......

Hope this helps,

Agustin
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 8003
Location: Salford, UK

PostPosted: Fri Jun 13, 2014 4:01 pm    Post subject: Reply with quote

If you send it to me via Silverfrost then I can upload it to make it available as a download.
Back to top
View user's profile Send private message AIM Address
aebolzan



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

PostPosted: Fri Jun 13, 2014 4:07 pm    Post subject: Reply with quote

email to ftn95@silverfrost.com?

Agustin
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 8003
Location: Salford, UK

PostPosted: Fri Jun 13, 2014 4:20 pm    Post subject: Reply with quote

Yes, with a request to forward to me.
Back to top
View user's profile Send private message AIM Address
aebolzan



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

PostPosted: Fri Jun 13, 2014 4:25 pm    Post subject: Reply with quote

already done!

Agustin
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 8003
Location: Salford, UK

PostPosted: Sat Jun 14, 2014 7:41 am    Post subject: Reply with quote

Thanks Agustin. I have uploaded the file to http://www.silverfrost.com/beta/hershey.zip for now.
Back to top
View user's profile Send private message AIM Address
LitusSaxonicum



Joined: 23 Aug 2005
Posts: 2393
Location: Yateley, Hants, UK

PostPosted: Sat Jun 14, 2014 5:58 pm    Post subject: Reply with quote

Some history may help. The Command Processor (DOS Box) looks for named programs to run in the different paths given in the PATH environments variable. Your program might be able to access that, but in general, user-written programs look in the current subdirectory or one you specifically named. With Windows, you can start a program with a click on its datafiles, which means that (a) the datafile type needs to be associated with a particular program, (b) the working directory may not be where the program is located, and (c) it isn't just the EXE, but other things such as INI files and DLLs that have to be looked for.
In early versions of Windows, a halfway house was used, but starting I don't remember when, this thing called the Registry was invented, which stores all the path information for such things as accompanying files. You can't just copy the EXE (unless it only uses Salflibc.dll, which is already set up in the Registry because FTN95 needs it) - you may need to either copy your EXE and everything it uses to the same directory, or you need to 'install' the program using a 'Setup' program. You probably noted that your program doesn't have an icon on the Desktop, doesn't appear on the Start menu etc etc, and these are other things that the setup program does for you.
A number of us here use Jordan Russell Software's free Innosetup, which operates through a complicated script to do all the separate stages in this installation process. The particular advantage of it is that it also bundles all the files needed for an installation into one 'zipped' EXE file, which unpacks itself when it is run.
In short, copying the EXE somewhere else is unlikely to work when you have these external files.
Eddie
Back to top
View user's profile Send private message
aebolzan



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

PostPosted: Sat Jun 14, 2014 6:14 pm    Post subject: Reply with quote

No problem here!...I moved my exe file to another folder and run without problems....seems you have something wrong in your system....

best regards,

Agustin

P.S. John: I did not answer your private message as the Hershey file is now available for everyone....
Back to top
View user's profile Send private message
DanRRight



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

PostPosted: Sat Jun 14, 2014 6:24 pm    Post subject: Reply with quote

Probably i have done something wrong but i do not see any effect on %pl.

I made Simple.ini with the single line above, placed it in Windows dir and placed Hershey.dat into FTN95 dir. My OS is Windows 8.1.
Back to top
View user's profile Send private message
aebolzan



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

PostPosted: Sat Jun 14, 2014 6:33 pm    Post subject: Reply with quote

Code:
Program simple
use mswin
Real*8 x(100), y(100)
N=100
do i=1,N;
x(i)=i-1;
y(i)=sin(i/30.)**2;
enddo
CALL TEXTMN(0.1)
CALL AXLBJS('*C','C')
call thckmg('LINE',1.0)
call chset(10)
i=winio@('%pl[x_array]', 300, 200, N-4, x, y)
End


test this simple code...it works fine here....

Agustin
Back to top
View user's profile Send private message
DanRRight



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

PostPosted: Sat Jun 14, 2014 6:38 pm    Post subject: Reply with quote

Forgot to attach SPWIN module and Slink the code with SIMPLE.DLL

All works now great, thanks Agustin


How to change the font on this example to something different and more pleasant?

The tics are still a bit off though are looking MUCH much better. Look at this example
Code:

Program simple2
use mswin
Real*8 x(100), y(100), z(100)
N=100
do i=1,N;
x(i)=i-1;
y(i)=sin(i/30.)**2;
z(i)=sin(i/30.)**5;
enddo
CALL TEXTMN(0.3)
CALL AXLBJS('*C','C')
call thckmg('LINE',3.0)
call chset(10)
i=winio@('%pl[x_array, colour=red, colour=black, N_GRAPHS=2]&', 300, 200, N-4, x, y, z)
i=winio@('%ac[esc]', 'exit')
End


Here is an image demonstrating what we've got.



The %pl now looks much better thanks to all the hacks you guys have done. The %pl is almost there, just little more glamour and we get professional look. The right one is how i like %pl to look as an absolute minimum


Last edited by DanRRight on Sun Jun 15, 2014 8:36 am; edited 11 times in total
Back to top
View user's profile Send private message
aebolzan



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

PostPosted: Sat Jun 14, 2014 7:52 pm    Post subject: Re: Reply with quote

Quote:
="DanRRight"]Forgot to attach SPWIN module and Slink the code with SIMPLE.DLL

All works now great, thanks Agustin


How to change the font on this example to something different and more pleasant?

change in the subroutine CHSET the argument from 1 to 24 (I don't have the table at home so I am guessing now) and you will get the software or Hershey fonts, with negative numbers you get the hardware fonts (Curier, Helvetica, Times Roman, etc.)...it's a question of playing...I put an example program in the Clearwin forum a couple of days ago that had a loop in order to show all the possible fonts in one run. Check there....

and for the problem of the four axis, well, I cannot do miracles, the limitation is in %pl not in Simpleplot......that's why I use only %pl for testing a program not for the final graphical output.....%dw works much better.....up to now....

Agustin
Back to top
View user's profile Send private message
aebolzan



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

PostPosted: Sat Jun 14, 2014 8:29 pm    Post subject: Re: Reply with quote

DanRRight wrote:

The right one is how i like %pl to look as an absolute minimum


well....I WAS WRONG!....%pl is limited but not as much as I thought.

test this code and tell me if you like it....
Code:
Program simple5
use mswin
      INTEGER winio@,i,StartCB
      EXTERNAL StartCB
      i=winio@('%sy[no_border]%ca[User drawn]&')
      i=winio@('%pl[user_drawn]&',800,800)
      i=winio@('%sc',StartCB)
      END
!--The start-up callback
      INTEGER FUNCTION StartCB()
      use mswin
      INTEGER N,i
      PARAMETER(N=101)
      REAL x(N),y(N)
!--Create the data.
      DO i=1,N
        x(i)=i-1
        y(i)=x(i)**2
      ENDDO
!--Call SIMPLEPLOT routines to plot the graph.
call picpos(4.0,5.0) ! locate the graph in the page so that everything enters
CALL TITLE7('centre','Centre','Sample for Dan')
CALL SCALES(0.0,10.0,1,0.0,100.0,1)
call thckmg('LINE',1.0) !thickness of lines
CALL NEWPIC
CALL TITLE7('t','Centre','Sample')
call textmg(1.5)     !size of the text
call axsbtk('XC','I') !ticks inside for x axis
call axsbtk('YC','O') ! ticks outside for y axis
CALL AXLBJS('**', 'Centre') ! labels centred
call chset(8) ! character set
call cvtype(ctype) ! curve type
call thckmg('LINE',3.0) !thickness of lines
call pen(4) !pen colour
CALL AXIS7('XCartesian','x-axis')
CALL AXIS7('YCartesian',' ')
CALL AXLOCN('YCartesian', 'Following') ! locate a new y axis on right
call  axlban('yc','O') ! tick labels towards the outside
call axsbtk('yc','O') !ticks outside for y axis on the right
!call axclr('yc',1)! only axis is drawn without ticks if you prefer
CALL AXIS7('YCartesian','y-axis')
call axis7('YC',' ') ! draw the new y axis without title                     
CALL AXLOCN('XCartesian', 'Following') !locate a new x axis on top
call  axlban('xc','N') ! no tick labels                 
call axsbtk('xc','I') ! ticks inside
call axis7('XC','   ') ! no axis label                                                                                             
call thckmg('L',1.0) !line thickness = 1
call pen(2)!  colour red
CALL BRKNCV(x,y,N,-1)
CALL SIMPLEPLOT_REDRAW@
      StartCB=1
      END


four axis, ticks, labels, pen colours, line thicknesses, etc....I think that we don't need to redesign %pl for the moment and leave Paul thinking about other problems....

Hope this helps ,

Agustin Very Happy


Last edited by aebolzan on Sat Jun 14, 2014 11:58 pm; edited 1 time in total
Back to top
View user's profile Send private message
aebolzan



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

PostPosted: Sun Jun 15, 2014 12:06 am    Post subject: Reply with quote

yes, I know......but in the last post he only said that he wanted that for %pl without any particular specification Wink......so I am allowed now to say that "with %pl you can..." Smile

Agustin
Back to top
View user's profile Send private message
DanRRight



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

PostPosted: Sun Jun 15, 2014 6:44 am    Post subject: Reply with quote

Agustin,

The whole idea is to have a graphics package which produces professional quality plots which do not need much further work (means the plots which are almost 99% ready to be placed into presentation or any high level publication).

Simpleplot is not the one, at least i have not seen almost anything decent looking. There is no sense to have just SIMPLE plots any way besides %pl, any other "harder" way we can do that themselves via FTN95 graphics library - it is where FTN95 is so unique. We will then 100% control every aspect of own graphics package. This saves time

Here is what FTN95 can do easily - Surfaceplot, PieChart, 3D plot (these are just tiny parts of my code, there are 100s of graphs there, just the temporal Simleplot %pl i counted more then 40 instances). When you prepare the presentation you just grab by PrintScr the graphs from the screens (or FTN95 also allows to select part of image with mouse and save it in graphics format) and you are done in no time. The FTN95 is like a Gozdzilla versus all other mostly uninspiring Fortran compilers, the only it lacks is 64bits. If FTN95 developers controlled the Simpleplot sources (and opened them) then Simpleplot had a chance, it is designed not as bad actually, it just looks bad, which is fixable in a month





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 1, 2, 3, 4, 5, 6  Next
Page 1 of 6

 
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