Graficos com Harbour usando hb-seawolf LIB

[Itamar M. Lins Jr.]

Olá!
Harbour module implementing bindings, playground with graphics, with the use of OpenGL and GLFW

Código: Selecionar todos

#include "hbseawolf.ch"

PROCEDURE Main()

   LOCAL w
   LOCAL text := "Hello Window"
   LOCAL x1, y1, x2, y2
   LOCAL i
   LOCAL n := 46, radius := 100

   w := sw_CreateWindow( 830, 450, text )

   WHILE( ! sw_MainLoop( w ) .AND. ! sw_GetKey( w, KEY_ESCAPE ) )

      sw_Begin( w )

         x2 := sw_WinWidth( w ) / 2
         y2 := sw_WinHeight( w ) / 2

         sw_Background( w, 0x323232 )

         FOR i := 1 TO 2 * n
            x1 := sin(        i * M_PI / n ) * radius * 2 + x2
            y1 := cos( M_PI + i * M_PI / n ) * radius * 2 + y2
            sw_Lines( w, x1, y1, x2, y2, 0xfecb0b )
         NEXT

      sw_End( w )

      sw_WaitEvents( w )

   ENDDO

   sw_CloseWindow( w )

RETURN

https://github.com/dev-harbour/hb-seawolf
Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Sei lá....
Tanta LIB que faz esse tipo de gráfico, não sei o que tem de interessante nisso.
Pra mim é só outro desvio do que já existe, pra não chegar em lugar nenhum.
Nem sei porque divulgar, tá só colaborando com coisa nenhuma.

[Itamar M. Lins Jr.]

Olá!
Quem achar interessante que use. E isso não cabe julgamentos. Ele faz até joguinhos lá no git com Harbour.
Fica o registro aqui no forum.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Pois é...
Agora tem solicitação dele pra criarem uma GT com isso.
Mostra maravilhas, mas pede que alguém faça.
Vale o que mencionei antes kkkkk

Sobre a imagem que postou....
Tem isso com WVT há muito tempo, também já circulou praticamente a mesma imagem, mas usando WVT (default Windows) ou a default Linux.