Опубликовано: 2020-06-15 08:00:00
Рисуем 3D-функции
В этой статье представлена неплохая реализация отрисовки 3D-функции.
Рассмотрим исходный текст программы:
- SCREEN 9
- ALFA = 1.55
- GAMMA = 0.5
- SC = 260
- ZZ = 600
- COL = 2
- FOR XX = -100 TO 100
- FOR YY = -100 TO 100 STEP 50
- GOSUB DRAWING
- NEXT YY
- NEXT XX
- FOR YY = -100 TO 100
- FOR XX = -100 TO 100 STEP 50
- GOSUB DRAWING
- NEXT XX
- NEXT YY
- COL = 2
- FOR XX = -100 TO 100 STEP 20
- FOR YY = -100 TO 100 STEP 20
- ZZ = 250 - XX / 2 - YY / 2
- GOSUB DRAWING
- NEXT YY
- NEXT XX
- END
- DRAWING:
- Z = ZZ
- Y = (XX + YY) * 0.707 + 500
- X = (XX - YY) * 0.707
- BETA = ATN(Y / X)
- BETA = -(BETA - ALFA)
- A = TAN(BETA) * SC
- D = SQR((X * X) + (Y * Y))
- BETA = ATN(Z / D)
- BETA = BETA - GAMMA
- B = TAN(BETA) * SC
- PSET (320 + A, 175 + B), COL
- RETURN
Рисунок 1 – Исходный текст для отрисовки 3D-функции
Рисунок 2 – Результат отрисовки 3D-функции
Спасибо за прочтение этой статьи.
Прикрепленные файлы: