forums.silverfrost.com

Hi Dan,

I just copied and pasted the two files ( from the 3rd and 4th replies) into a new project ( in plato 4.3.0)
built it and it ran first time. it shows a triangle laid over with a 1 dimension ...

Hi have a look at this thread that I started a couple of years ago

http://forums.silverfrost.com/viewtopic.php?t=1344

I successfully created and used a 1d texture in opengl using silverfrost ( ...

Although I started this thread sometime ago, I thought it might be interesting to report progress on my opengl application. The little test application i posted will still only display textures proper ...

Thanks Paul,

Your second suggestion works

changing the lines in the function scrollfunc() from

if(is)then
ist=.true.
endif

to the following solves the problem

if ...

What about %`mv ? this provides a callback when the parent is resized.

subroutine hmove_child_windows
use mswin
integer :: i,intscr
intscr=clearwin_info@('INTERMEDIATE_SCROLL')
if(intscr==0)then
do i=1,size(childhnd,1)
...

rest of module

integer function cback()
cback = 1
end function

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

integer function scrollfunc()
use ...

Hello,
I've been working on building an MDI frame that has dynamic scrollbars for when a child window gets moved outside the frame. When no child is outside the frame edge then no scrollbars are visi ...

Thank you Paul, I will look into this. I was looking for some means to hide the scrollbar when it's not needed, and intended to use the windows api function showscrollbar in order to achieve this. How ...

Hello, I have the following code snippet, but on running I get a run time error: can't obtain window of non-existant control

and gives the line number to the line : i=winio@('%lc&', scrhnd) ...

Hello,

Does FTN95 allow allocatable arrays in a Type definition?

Something like:

Type Testtype

Integer, allocatable :: a(:)
Real, allocatable :: b(: ...

John, I turned off hardware acceleration through control panel and display. I don't know if it's possible through FTN95. Without turning off hardware acceleration my triangles were just black shapes. ...

module openglmod
real(kind=1),dimension(3,4)::arrcol
integer::texture1

data arrcol(:,1)/0.7 ,0.0,0.0/
data arrcol(&# ...

So I made some progress last night and now have a small example of how to lay a 1D texture on a triangle in OpenGL. There were several mistakes to find, the first was the shape of the array holding t ...

module openglmod
real,dimension(4,3)::arrcol
integer:: texture1

data arrcol(1,:)/0.76,0.2,0.02/
data arrcol(2,:)/0.88,0.6, ...