<![CDATA[Approximatrix Forums — Why no graphics window?]]> https://forums.approximatrix.com/viewtopic.php?id=882 Mon, 16 Jan 2023 14:58:16 +0000 PunBB <![CDATA[Re: Why no graphics window?]]> https://forums.approximatrix.com/viewtopic.php?pid=4040#p4040 You're calling settextstyle prior to initializing the window.  That call has to happen after the window is created.

]]> Mon, 16 Jan 2023 14:58:16 +0000 https://forums.approximatrix.com/viewtopic.php?pid=4040#p4040 <![CDATA[Why no graphics window?]]> https://forums.approximatrix.com/viewtopic.php?pid=4039#p4039 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)

]]> Fri, 13 Jan 2023 23:45:32 +0000 https://forums.approximatrix.com/viewtopic.php?pid=4039#p4039