|
module bitfont_callbacks
use opengl_gl
use opengl_glu
use opengl_glut
private
public :: output, display, freshape
contains
subroutine output(x,y,s)
real, intent(in) :: x,y
character(len=*), intent(in) :: s
character(len=1) :: c
integer :: i,lenc
call glrasterpos2f(x,y)
lenc = len(s)
do i=1,lenc
c = s(i:i)
call glutbitmapcharacter(GLUT_BITMAP_TIMES_ROMAN_24, &
ichar(c))
end do
return
end subroutine output
subroutine display()
call glclear(GL_COLOR_BUFFER_BIT)
call output(0.0,24.0, &
"This is written in a GLUT bitmap font.")
call output(100.0,100.0,"ABCDEFGabcdefg")
call output(50.0,145.0, &
"(positioned in pixels with upper-left origin)")
return
end subroutine display
subroutine freshape(w,h)
integer, intent(in out) :: w, h
call glviewport(0, 0, w, h)
call glmatrixmode(GL_PROJECTION)
call glloadidentity()
call gluortho2d(0.0_gldouble, real(w,kind(0.0_gldouble)), 0.0_gldouble, &
real(h,kind(0.0_gldouble)))
call glscalef(1.0, -1.0, 1.0)
call gltranslatef(0.0_glfloat, real(-h,kind(0.0_glfloat)), 0.0_glfloat)
call glmatrixmode(GL_MODELVIEW)
return
end subroutine freshape
end module bitfont_callbacks
program main
use bitfont_callbacks
use opengl_gl
use opengl_glut
implicit none
integer :: win
call glutinitdisplaymode(GLUT_RGB + GLUT_SINGLE)
call glutinitwindowsize(500, 150)
call glutinit()
win = glutcreatewindow("Fortran GLUT bitmap A")
call glclearcolor(0.0_glfloat, 0.0_glfloat, 0.0_glfloat, 1.0_glfloat)
call glutdisplayfunc(display)
call glutreshapefunc(freshape)
call glutmainloop()
stop
end program main
¤ Dauer der Verarbeitung: 0.0 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
