QBASICBOOK.ru: сайт про QB64

Опубликовано: 2020-06-15 08:00:00

Рисуем 3D-функции

В этой статье представлена неплохая реализация отрисовки 3D-функции.

Рассмотрим исходный текст программы:


  1. SCREEN 9
  2. ALFA = 1.55
  3. GAMMA = 0.5
  4. SC = 260
  5. ZZ = 600
  6. COL = 2
  7. FOR XX = -100 TO 100
  8.     FOR YY = -100 TO 100 STEP 50
  9.         GOSUB DRAWING
  10.     NEXT YY
  11. NEXT XX
  12. FOR YY = -100 TO 100
  13.     FOR XX = -100 TO 100 STEP 50
  14.         GOSUB DRAWING
  15.     NEXT XX
  16. NEXT YY
  17. COL = 2
  18. FOR XX = -100 TO 100 STEP 20
  19.     FOR YY = -100 TO 100 STEP 20
  20.         ZZ = 250 - XX / 2 - YY / 2
  21.         GOSUB DRAWING
  22.     NEXT YY
  23. NEXT XX
  24. END
  25.  
  26. DRAWING:
  27. Z = ZZ
  28. Y = (XX + YY) * 0.707 + 500
  29. X = (XX - YY) * 0.707
  30. BETA = ATN(Y / X)
  31. BETA = -(BETA - ALFA)
  32. A = TAN(BETA) * SC
  33. D = SQR((X * X) + (Y * Y))
  34. BETA = ATN(Z / D)
  35. BETA = BETA - GAMMA
  36. B = TAN(BETA) * SC
  37. PSET (320 + A, 175 + B), COL
  38. RETURN

 Рисунок 1 – Исходный текст для отрисовки 3D-функции

Рисунок 1 – Исходный текст для отрисовки 3D-функции

Рисунок 2 – Результат отрисовки 3D-функции 

Рисунок 2 – Результат отрисовки 3D-функции

 

Спасибо за прочтение этой статьи.

 

Прикрепленные файлы:

< Предыдущая статья
Векторный шрифт
Следующая статья >
Отрисовка вертикального меню

Выделите опечатку и нажмите Ctrl + Enter, чтобы отправить сообщение об ошибке.