Это какой-то OpenGL в TCL, но какой это язык?

Question

Это TCL а также OpenGL, но я не знаю, какой именно это язык, и поэтому не могу найти документацию для него. В частности, мне нужно понять все атрибуты в строке OGL.

global Qu

gl matrixmode projection
gl pushmatrix
gl loadidentity

gl ortho 0 50. 0 50. -1. 1.
gl matrixmode modelview
gl pushmatrix
gl loadidentity

gl color 1 1 1 1
if {$Qu(Speed) >= 30 } { 
    OGL drawtex sans-bold "Speed 3" -center -pos 25 47 0 -dir 2 0 0 -up 0 2 0
    OGL drawtex sans "[format %#.3g $Qu(Speed)]" -center -pos 25 44 0 -dir 3 0 0 -up 0 3 0
}

Функция этого кода заключается в отображении скорости в виде двух строк текста на экране, когда speed>=30,

Answer 1

Ну первые строчки из gl matrixmode projection в gl color 1 1 1 1 довольно простые функции OpenGL (на самом деле не рекомендуется OpenGL). Другая строка, кажется, самоочевидна, однако вы можете попытаться немного изменить их, чтобы увидеть, какие эффекты имеет каждый параметр.

Я думаю, что это как следует (только предположение):

• OGL drawtext: команда для рисования текста
• sans-bold: семейство шрифтов или имя файла.
• "Скорость 3": простой текст
• "[format% #. 3g $ Qu (Speed)]": форматированный текст, который вставляет скорость в строку.
• -центр: текст центрируется вокруг своей позиции.
• -pos, -dir и -up: Положение, направление и вектор вверх