home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / MAXONB32.DMS / in.adf / Beispiele_1.3 / Examples / Plants.bas < prev   
Encoding:
BASIC Source File  |  1994-04-14  |  996 b   |  43 lines
  1.  
  2. '
  3. ' Plants
  4. '
  5. ' written by   scott dhomas trenn
  6. '              797 Mitchell Street, Fredericton, NB, E3B 3S8, CANADA
  7. '              INTERNET: wilkie@jupiter.sun.csd.unb.ca
  8. '
  9.  
  10. '
  11. ' Generates a random plant formation
  12. '
  13.  
  14. DEFINT a-z
  15.  
  16. RANDOMIZE TIMER
  17.  
  18. branchnum = 10
  19. da! = 0.5
  20. dr! = 0.05
  21. p! = .6
  22. maxlen = 60 : minlen = 35
  23.  
  24. xorigin = 200 : yorigin = 100
  25.  
  26. FOR j = 1 TO branchnum
  27.         x! = xorigin : y! = yorigin
  28.         PSET (x!,y!), 0
  29.         r! = 0 : a! = 0
  30.         IF RND(1) > .5 THEN lDirection = 1 ELSE lDirection = -1
  31.         n = minlen + INT((maxlen-minlen) * RND(1))
  32.         FOR i = 1 TO n
  33.                 IF lDirection = -1 THEN t! = p! ELSE t! = 1-p!
  34.                 IF RND(1) > t! THEN cDirection = 1 ELSE cDirection = -1
  35.                 num! = RND(1) * cDirection
  36.                 a! = a! + num! * da! : r! = r! + dr!
  37.                 x! = r! * COS(a!) + x! : y! = r! * SIN(a!) + y!
  38.                 LINE STEP (0,0) - (x!,y!), 1
  39.                 lDirection = cDirection
  40.         NEXT i
  41. NEXT j
  42.  
  43.