Guest User

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