Approximatrix Forums — how to draw a circle?

Re: how to draw a circle?

null@example.com (jackmitchener) — Tue, 06 Sep 2022 17:48:20 +0000

Success! All I did was remove the Title="Example".

Re: how to draw a circle?

null@example.com (jackmitchener) — Tue, 06 Sep 2022 17:25:25 +0000

I purchased the 3.25 version with build 3758. Ran the same program again. Same result.
I was concerned that the file I was using to keep my fortran efforts was too far removed from where the Fortran language was kept (C/Program Files 86/Simply Fortran). So I moved my Efforts file from: C/Users/Joe/Fortran Efforts to: C/Program Files 86/Fortran 3/Fortran Efforts.

Wonder if the ' Title="Example" ' might be causing the program to believe that a character screen is needed?

Re: how to draw a circle?

null@example.com (jeff) — Fri, 02 Sep 2022 15:34:32 +0000

Can you first try upgrading to the latest version of Simply Fortran (3.25)? There have been AppGraphics updates.

Also, it sounds like the graphics window isn't opening. What you've described is just a text window, and you must currently have some options set to open an external console for some reason. Is this correct? Could you send your code and project file to support@approximatrix.com for me to check? Something seems off.

Re: how to draw a circle?

null@example.com (jackmitchener) — Tue, 30 Aug 2022 13:49:42 +0000

My code compiles OK. When I hit "run", it shows the black window with a blinking cursor at top left. But it makes no effort to draw a circle. Simply Fortran version is 3.24 . Build is 3734.

Re: how to draw a circle?

null@example.com (jeff) — Sat, 13 Aug 2022 23:51:22 +0000

I just tried the code you posted on Windows 10, and it compiled and ran as expected. I didn't even need to add any flags if I started with an empty project. Can you be more specific about what doesn't work? Does the code compile for you? Does it fail when it runs?

Also, it helps to know what version of Simply Fortran you're using. Can you report that as well?

Re: how to draw a circle?

null@example.com (drfrank) — Sat, 13 Aug 2022 21:12:57 +0000

Jack,

Did you add the following to the project linker?

!--- Project/Options/Compiler Flags/Linker:
-lappgraphics -lgdi32 -lcomdlg32 -lcomctl32 -luuid -loleaut32 -lole32

Re: how to draw a circle?

null@example.com (jackmitchener) — Sat, 13 Aug 2022 19:11:48 +0000

"now work?" should have been "not work?".

how to draw a circle?

null@example.com (jackmitchener) — Fri, 12 Aug 2022 23:15:27 +0000

Trying to do some basic graphics. Why does the code below now work?

program main
use appgraphics
implicit none
integer::window
window = initwindow(800, 600, title="Example")
call circle(400,300,100)
call loop()
call closewindow(window)
end program main