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

В этой статье представлена неплохая реализация отрисовки 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-функции

 

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

 

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