# Untitled

a guest
Jun 20th, 2017
204
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. #! /usr/bin/sdlbrt
2. 'vf
3.
4. pi=3.141592
5.
6. r=.8
7. h=.25
8. f=32
9. x=7.7
10. y=2.35
11. z=3
12.
13. for i=pi/f to pi*2 step (pi*2)/f
14.   xs\$=str\$(x+r*sin(i))
15.   zs\$=str\$(z+r*cos(i))
16.   ys\$=str\$(y-(h/2))
17.   txou\$="v "+xs\$+" "+ys\$+" "+zs\$
18.   print txou\$
19.   next
20.
21. for i=pi/f to pi*2 step (pi*2)/f
22.   xs\$=str\$(x+r*sin(i))
23.   zs\$=str\$(z+r*cos(i))
24.   ys\$=str\$(y+(h/2))
25.   txou\$="v "+xs\$+" "+ys\$+" "+zs\$
26.   print txou\$
27.   next
28.
29. txou\$="f"
30.   for i=0 to f-1
31.   txou\$+=" "+str\$(i+1)
32.   next
33. print txou\$
34.
35. txou\$="f"
36.   for i=0 to f-1
37.   txou\$+=" "+str\$(i+1+f)
38.   next
39. print txou\$
40.
41. for i=0 to f-2
42.   txou\$="f "+str\$(i+1)+" "+str\$(i+2)+" "+str\$(i+2+f)+" "+str\$(i+1+f)
43.   print txou\$
44.   next
45.
46. txou\$="f "+str\$(f)+" "+str\$(1)+" "+str\$(f+1)+" "+str\$(f*2)
47. print txou\$
RAW Paste Data