<![CDATA[Approximatrix Forums — Why no graphics window?]]> 2023-01-16T14:58:16Z PunBB https://forums.approximatrix.com/viewtopic.php?id=882 <![CDATA[Re: Why no graphics window?]]> You're calling settextstyle prior to initializing the window.  That call has to happen after the window is created.

]]> https://forums.approximatrix.com/profile.php?id=2 2023-01-16T14:58:16Z https://forums.approximatrix.com/viewtopic.php?pid=4040#p4040 <![CDATA[Why no graphics window?]]> Code below compiles but will not run.  Keeps saying, "Attempting to draw to a graphics window without declaring a window."  Why does my "initwindow" command not work?  Also, where can I find a list of integer IDs for font families?

program main
use appgraphics
implicit none
    integer::myscreen
    integer::x, y, r, i
    logical:: pt = .TRUE.
    logical:: db = .FALSE.
    logical:: cf = .TRUE.
    call settextstyle(5,0,5)
    x=10
    y=10
    r=1   
    myscreen = initwindow(800, 600, "Primitives", 0, 0, db, cf)
    ! Pw = getactivepage()   
    do while(x <= 800)
      call clearviewport 
      call circle(x,y,r)
      call outtextxy(x,y,char(r),pt)

]]> https://forums.approximatrix.com/profile.php?id=4073 2023-01-13T23:45:32Z https://forums.approximatrix.com/viewtopic.php?pid=4039#p4039