opengl - 如何使用 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 绑定(bind)，所以我们暂时继续使用 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
;