Два окна FbGfx

Тем, кто уже хоть сколько-нибудь использует freebasic , известно , что язык создает одно графическое окно и рисует на нем. Все попытки создать второе окошко, приводят к закрытию существующего и открытию нового. Так уж внутренне устроена библиотека FbGfx. Однако есть два способа создать несколько графических окон. Первый из них - это каждое новое графическое окно надо создавать в своей DLL. Второй способ я недавно обнаружил на оф. форуме. Он заключается в программном создании отдельного процесса. Мне понравились эти решения (для windows и linux)

Платформа: Windows, Linux
Авторы: angros47 и fxm

two_graphic_window.png

Для Windows:

If command="" Then Shell("start /b " & Mid(Command(0),Instrrev(Command(0),"\")+1) & " otherprocess")

If command="otherprocess" Then
    Screenres 640,480
    Print "This is a graphic window"
    Circle (50,50),30
    Sleep
Else
    Screenres 500,580,32
    Color Rgb(255,255,0),Rgb(0,0,255)
    Cls
    Print "This is another graphic window"
    Draw "u100 r50 d 100 l 50"
    Sleep
End If

Для Linux:

#INCLUDE "crt/unistd.bi"


If fork<>0 Then 
    Screenres 640,480
    Print "This is a graphic window"
    Circle (50,50),30
    Sleep
Else
    Screenres 500,580,32
    Color Rgb(255,255,0),Rgb(0,0,255)
    Cls
    Print "This is another graphic window"
    Draw "u100 r50 d 100 l 50"
    Sleep
End If