【VFB源码】FB图形例题3D旋转

勇芳软件

这是 FB 自己内部绘图专用函数画的动画
当然可以用翻译为 GDI画，这里只是演示代码运行方式
感兴趣的可以下载源码研究。
基本代码：

1.   ScreenRes 800, 600, 32
   
2.   
   
3.   Dim As Long fps
   
4.   ReDim As V3 Va()
   
5.   Dim As String d = "ABCD"
   
6.   Randomize 13
   
7.   AddABox(va(), Type < V3 > (400, 300, 0), 350, 2, 2, RGB(250, 100, 0)) 'skewer
   
8.   'flip 90 degrees on y axis
   
9.   memcpy(@va(LBound(va)), RotateArray(va(), Type < _float > (0, 1.570796, 0), vct(400, 300, 0), 0), (UBound(va) - LBound(va) + 1) *SizeOf(v3))
   
10.   'Add text
    
11.   For n As Long = 0 To Len(d) -1
    
12.       Var zv = map(0, (Len(d) -1), n, -250, 250)
    
13.       AddAChar(Va(), Chr(d[n]), 150, RGB(Rnd * 255, Rnd * 255, Rnd * 255), "Arial", FS_BOLD, zv)
    
14.   Next n
    
15.   'knob at the end
    
16.   addasphere(va(), Type < V3 > (400, 300, -350), 30, RGB(200, 200, 0), 1)
    
17.   
    
18.   Dim As Single ang, rad
    
19.   Dim As v3 Ptr rr
    
20.   
    
21.   Color, RGB(100, 100, 100)
    
22.   Do
    
23.       ang += .025
    
24.       If ang > 1.570796 * 4 Then ang = 0 '2*pi
    
25.       rr = RotateArray(va(), Type < _float > (.5, ang, 0), vct(400, 300, 0), 1)
    
26.       quicksort(rr, 0, UBound(va) -1)
    
27.       ScreenLock
    
28.       Cls
    
29.       Draw String(10, 10), "FPS =" & fps
    
30.       Draw String(10, 30), "Elements = " & UBound(va)
    
31.       
    
32.       For n As Long = LBound(va) -1 To UBound(va) -1
    
33.           rad = map( -500, 500, rr[n].z, 5, 2)
    
34.           Circle(rr[n].x, rr[n].y), rad, rr[n].col, , , , f
    
35.       Next n
    
36.       ScreenUnlock
    
37.       Sleep Regulate(30, fps), 1
    
38.   Loop Until Len(Inkey)

复制代码

源码下载：Basic语言编程群 78458582 进QQ群后，在群共享里下载。

xiawan

啥也不说了，感谢楼主分享哇！