如何使用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
;