如何使用OpenGL在Forth中画一条线

Question

在Gforth OpenGL教程中，我找到了一个代码片段，用于在Forth的图形屏幕上绘制三角形：

: DrawGLScene
  GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT OR gl-clear
  gl-load-identity
  -1.5e 0e -6e gl-translate-f
  GL_TRIANGLES gl-begin
      0e 2e 0e gl-vertex-3f
    -1e -1e 0e gl-vertex-3f
     1e -1e 0e gl-vertex-3f
  gl-end
  sdl-gl-swap-buffers
  fps-frames 1+ to fps-frames
  Display-FPS
  TRUE
;

例如，如果我将其中一个坐标从"2e"更改为"1e"，则生成的对象的形状将变得不同。但是我怎样才能画一条线，而不是三角形呢？OpenGL和Gforth也可以做到这一点吗？

Answer 1

您显示的代码片段使用的是旧的固定函数管道。我知道 Forth，但我不知道 OpenGL 绑定，所以我暂时坚持使用 FFP。试试这个，它画了两条线：

: DrawGLScene
  GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT OR gl-clear
  gl-load-identity
  -1.5e 0e -6e gl-translate-f
  GL_LINES gl-begin
      0e 2e 0e gl-vertex-3f
    -1e -1e 0e gl-vertex-3f
      1e 2e 0e gl-vertex-3f
     0e -1e 0e gl-vertex-3f
  gl-end
  sdl-gl-swap-buffers
  fps-frames 1+ to fps-frames
  Display-FPS
  TRUE
;