home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / jackodat / random.bas < prev   
Encoding:
BASIC Source File  |  1992-10-23  |  1.1 KB  |  41 lines
  1. INPUT "HOW MANY SETS OF NUMBER DO YOU NEED? ", FIN
  2. INPUT "Start file number? ", bs
  3. REM INPUT "File base ? ", basename$
  4. basename$ = "FLAM"
  5. RANDOMIZE
  6. CONST PI = 3.141492654#
  7. FOR J = 1 TO FIN
  8. FOR I = 1 TO RND(1) * 100
  9.         X = RND(1)
  10. NEXT I
  11. ROTY = RND(1) * 20
  12. ROTZ = RND(1) * 360
  13. X = 10 * SIN(-ROTY * (PI / 180)) * COS(-ROTZ * (PI / 180))
  14. Y = 10 * SIN(-ROTY * (PI / 180)) * SIN(-ROTZ * (PI / 180))
  15. Z = 10 * COS(-ROTY * (PI / 180))
  16. bas$ = RTRIM$(LTRIM$(STR$(bs)))
  17. zero$ = ""
  18. FOR k = 1 TO (8 - (LEN(bas$) + LEN(basename$)))
  19.           zero$ = zero$ + "0"
  20. NEXT k
  21. filename$ = LTRIM$(basename$) + zero$ + bas$ + ".inc"
  22. OPEN filename$ FOR OUTPUT AS 1
  23. PRINT
  24. PRINT "#declare CANDROTY = "; ROTY
  25. PRINT "#declare CANDROTZ = "; ROTZ
  26. PRINT "#declare LIGHTX   = "; X
  27. PRINT "#declare LIGHTY   = "; Y
  28. PRINT "#declare LIGHTZ   = "; Z
  29. PRINT #1,
  30. PRINT #1, "#declare CANDROTY = "; ROTY
  31. PRINT #1, "#declare CANDROTZ = "; ROTZ
  32. PRINT #1, "#declare LIGHTX   = "; X
  33. PRINT #1, "#declare LIGHTY   = "; Y
  34. PRINT #1, "#declare LIGHTZ   = "; Z
  35. bs = bs + 1
  36. CLOSE 1
  37. NEXT J
  38.  
  39.  
  40.  
  41.