leszpol
Joined: 25 Apr 2008
Posts: 29
Location: Gdynia-TriCity
|
 Posted: Sat Jan 31, 2009 11:39 pm Post subject: Force GLUT_STROKE_ROMAN font to work under FTN95 ? |
 |
|
Dear users
I try to use scalled font different than number 8 called "GLUT_BITMAP_HELVETICA_12 ". For example
GLUT_STROKE_ROMAN number 1 should be available
in FTN95 acording help manual but when I call
CALL glutBitmapCharacter(1, ichar(c)) with "1"
not "8" my program doesn't show anything even doesn't work.
The problem is that some other non scalled fonts works like bitmap fonts
ex. CALL glutBitmapCharacter(7, ichar(c)) but when the resolution or
widow is resizing this fonts doesn't change when scaled font do it. For
examle free fortran g95 works with CALL glutBitmapCharacter(1, ichar(c))
when FTN95 seems to not work. How to forme FTN95 with procedure
below that using scaled font called CALL glutBitmapCharacter(1, ichar(c))
means "GLUT_STROKE_ROMAN number 1" started to work.
Regards
Leszek
| Code: |
!****************************************************************
SUBROUTINE OUTPUT(x,y,s,gg)
!****************************************************************
! GLUT_STROKE_ROMAN 1
! GLUT_STROKE_MONO_ROMAN 2
! GLUT_BITMAP_9_BY_15 3
! GLUT_BITMAP_8_BY_13 4
! GLUT_BITMAP_TIMES_ROMAN_10 5
! GLUT_BITMAP_TIMES_ROMAN_24 6
! GLUT_BITMAP_HELVETICA_10 7
! GLUT_BITMAP_HELVETICA_12 8
! GLUT_BITMAP_HELVETICA_18 9
!****************************************************************
USE MYMOD
INCLUDE <clearwin.ins>,nolist
INCLUDE <opengl.ins>, nolist
REAL*4 x,y
CHARACTER s*(*)
CHARACTER c
INTEGER*4 gg,ww,dd
lenc = len(s)
CALL GET_TEXT_SIZE@(s,ww,dd)
CALL glRasterPos3f(x,y,0.0)
do 10, i=1,lenc
c = s(i:i)
! CALL glutBitmapCharacter(1, ichar(c)) DOESN'T WORK !!!!!!!!!!!
CALL glutBitmapCharacter(8, ichar(c))
10 CONTINUE
END SUBROUTINE
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
