forums.silverfrost.com

LitusSaxonicum · Posted: Tue Apr 18, 2017 10:13 am Post subject:

Beat me to it, Simon.

Clearwin.enh is in the installation 'Docs' folder: the online version may be the latest one, and if you don't have the latest compiler release, then there may be a point of two of difference.

Eddie

John-Silver · Joined: 30 Jul 2013 Posts: 889

no I'm pretty sure that's not what's referred to .... the referneìce is here:-
http://silverfrost.com/ftn95-help/clearwinp/dbosfn/introduction.aspx

Clearwin+ User's Supplement

It's also in several other places

LitusSaxonicum · Posted: Fri Apr 21, 2017 9:34 am Post subject:

John,

You are reading a bit of documentary archaeology! The Supplement is the Clearwin+ Fortran Edition manual. The latter evolved through several versions from the former. Simon's suggestion of looking in the .ENH file was for a source of additional info.

Eddie

John-Silver · Joined: 30 Jul 2013 Posts: 889

Update of the documentation from 'Clearwin+ Users Supplement' to 'Clearwin+ Fortran Edition manual.' everywhere in the on-line (and maybe other versions) manual(s) should be a piece of cake for Paul then. Smile

DietmarSiepmann · Joined: 03 Jun 2013 Posts: 135

Hello,

one more remark concerning the symbol

DRAW_TEXT@

for which the numbers of parameters changed from 4 to 5 (compiler WARNING - SUBROUTINE DRAW_TEXT@ has been called with too few arguments).

I do not know the interface for the "new" routine DRAW_TEXT@, however I have learnt that I could use DRAW_CHARACTERS@ instead from one of the pdf files mentioned above.

Maybe it is worthwhile knowing the interface of the "new" DRAW_TEXT@ , too.

Regards,
Dietmar

PaulLaidler · Posted: Tue Apr 25, 2017 3:50 pm Post subject:

Dietmar

I think that there are two things that need fixing here.

1) dbos.ins needs changing to

John-Silver · Joined: 30 Jul 2013 Posts: 889

DRAW_CHARACTERS@ Smile

... unless it's for a new french syntax version of ftn95 that's 'dear' to the heart or 'expensive' ! lol Wink

DietmarSiepmann · Joined: 03 Jun 2013 Posts: 135

Yes,

I have substituted DRAW_TEXT@ by DRAW_CHARACTERS@ in my GUI app code and this worked fine Smile

For those who are interested:
in a remark which I made previously in this post I wondered that a small example containing symbol GET_WKEY1@ could be compiled/linked using ftn95/slink64, our big GUI example, however, left symbol GET_WKEY1@ unresolved.
Although meanwhile this problem is solved, I found that you use character " in C_EXTERNAL definitions of file dbos.ins (ftn95 Version 8.10). When I looked at file clearwin.ins of ftn95 Version 7.10 I saw that C_EXTERNAL definitions of file clearwin.ins used character ' instead. What was the reason for this?

Regards
Dietmar

PaulLaidler · Posted: Thu Apr 27, 2017 12:41 pm Post subject:

There is no reason for this. You can use either single or double quotes.
Perhaps clearwin.ins was written when FTN77 was still in use.
dbos.ins was written within the last few months and double quotes was just a random choice. Hopefully, if there are any FTN77 users still around then they won't be porting to 64 bits.

LitusSaxonicum · Posted: Thu Apr 27, 2017 3:19 pm Post subject:

In real life, double quotes allow you to avoid confusion when using the apostrophe for the Saxon Genitive or word contractions without ambiguity.

In programming, being able to use single or double quotes enables use of the other in character strings , but degrees, minutes and seconds are still difficult, as in:

John-Silver · Joined: 30 Jul 2013 Posts: 889

a very astute angle on the subject from a saxon (as would be expected !) Wink

how would a 'double-singlequote' be formatted ?
"''"
or
"'","'"

LitusSaxonicum · Posted: Fri May 05, 2017 9:43 am Post subject:

It depends if it is a character constant or in a format statement.

"'","'" will only work in a format statement, and would have to be "'"//"'" in a character - this would work in a format statement too.

I think that "''" would work anywhere, as it is the first character that must be matched to the end of the string.

The apostrophe is also a key part of the Saxon Genitive.

Can I have this month's award for pedantry please?

Eddie

mecej4 · Joined: 31 Oct 2006 Posts: 944

DietmarSiepmann · Joined: 03 Jun 2013 Posts: 135

There is another unresolved symbol which I found when linking a 64 bit GUI application, namely

LitusSaxonicum · Posted: Tue Jun 12, 2018 11:15 pm Post subject:

Dietmar, the 4th parameter for DRAW_FILLED_POLYGON@ is an integer created with a call to RGB@. I only use Win32, so it's an INTEGER*4. You call RGB@ with 3 parameters: the Red, Green and Blue components, each described with an integer in the range 0...255. RGB mode, with 24-bit colour is the default in Clearwin these days, no longer the 16 colour VGA mode.

You can specify 'ICOL' as in the documentation using say:

ICOL = RGB@ (0, 0, 0) (for black)

or just put it in the subroutine call, as in:

CALL DRAW_FILLED_POLYGON@ (IX, IY, N, RGB@(127, 127, 127) ) (grey)

You really need to update your codes to use the 'post-DBOS' graphics to future proof them.

Eddie