255 127 255 RGB VALUE col

: ColHln col HLINE ;

: ColVln col VLINE ;
// рисуем квадратик
: sqv // x y l -- x y l
         FRAME{ ARG2 @ ARG1 @ ARG0 @ ColHln
                ARG2 @ ARG1 @ ARG0 @ ColVln
                ARG2 @ ARG0 @ ARG1 @ + ARG0 @ ColHln
                ARG2 @ ARG0 @ + ARG1 @ ARG0 @ ColVln }FRAME
                ;
100 100 100
: drw  sqv 3DROTATE ;
' drw TO 3D

100.00
glX SF!
100.00
glY SF!
100.00
glZ SF!
60.0
ROTATEANGLE SF!
: fvar. SF@ F. ;
: glvars. ROTATEANGLE ." RA=" fvar.
          glX         ." X="  fvar.
          glY         ." Y="  fvar.
          glZ         ." Z="  fvar. ;   

0 VALUE ActiveLibrary

: FUNCTION ActiveLibrary SWAP GETPROCADDRESS VALUE ;

" opengl32.dll" LOADLIBRARY VALUE OPENGL
OPENGL TO ActiveLibrary

" glPushMatrix" FUNCTION glPushMatrix@ : glPushMatrix glPushMatrix@ API0 DROP ;
" glPopMatrix" FUNCTION glPopMatrix@   : glPopMatrix glPopMatrix@ API0 DROP ;
" glVertex3dv" FUNCTION glVertex3dv@ : glVertex3dv glVertex3dv@ API1 DROP ;
" glBegin" FUNCTION glBegin@         : glBegin glBegin@ API1 DROP ;
" glEnd" FUNCTION glEnd@             : glEnd glEnd@ API0 DROP ; 

CREATE Point1 3 FLOATS ALLOT
CREATE Point2 3 FLOATS ALLOT

// Это мы сделали два массива для хранения координат точек в формате X Y Z. Каждое число - double float

: ColHln // col HLINE ;  это тут было, но оно выведет прямо в видеобуфер, а нам такое не надо
0.0 Point1 2 -FTH F!     // координата Z будет равна 0
SWAP S>F 1000.0 F/ Point1 1 -FTH F!  // координату Y забираем со стека (там в это время X Y L), делим на 1000, чтобы вписать в трехмерный куб
SWAP S>F 1000.0 F/ Point1 F!  // аналогично X делим на 1000

Point1 F@ S>F 1000.0 F/ F+ Point2 F@  // вторая точка имеет те же Y Z, но X должен отстоять на L, так что плюсуем L к X первой точки
Point1 1 -FTH F@ Point2 1 -FTH F!
0.0 Point2 2 -FTH F!

// теперь описываем примитив LINE в сцене OpenGL
GL_LINES glBegin        // начинаем описание примитива
    Point1 glVertex3dv  // Vertex - это точка, она относится к текущему примитиву, суффикс 3dv означает, что Point1 - это указатель (Vector)
    Point2 glVertex3dv  // на массив 3 точек, записанных в формате Double float
  glEnd
;

: ColVln // col VLINE ;  аналогично делаем вертикальную линию
0.0 Point1 2 -FTH F!
SWAP S>F 1000.0 F/ Point1 1 -FTH F!
SWAP S>F 1000.0 F/ Point1 F!

Point1 F@ Point2 F!
Point1 1 -FTH F@ S>F 1000.0 F/ F+ Point2 1 -FTH F@
0.0 Point2 2 -FTH F!

GL_LINES glBegin
    Point1 glVertex3dv
    Point2 glVertex3dv
  glEnd
;                     

: sqv // x y l -- x y l
glPushMatrix  // добавлено
FRAME{ ARG2 @ ARG1 @ ARG0 @ ColHln
                ARG2 @ ARG1 @ ARG0 @ ColVln
                ARG2 @ ARG0 @ ARG1 @ + ARG0 @ ColHln
                ARG2 @ ARG0 @ + ARG1 @ ARG0 @ ColVln }FRAME
glPopMatrix  // добавлено
;   

RED SETCOLOR ." красный "
GREEN SETCOLOR ." зеленый "
BLUE SETCOLOR ." синий "

-1 0 0 RGB CONSTANT BLUE
0 -1 0 RGB CONSTANT GREEN
0 0 -1 RGB CONSTANT RED