home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Questions & Answers / Q&A Programming Functions / How to find 2 last symbols 1? < prev    next >
Encoding:
Text File  |  1998-10-26  |  2.2 KB  |  48 lines  |  [TEXT/ScoM]
  1. HOW TO FIND 2 LAST SYMBOLS
  2.  
  3. >The problem: given a length-list x whose sum EXCEEDS the duration of a zone,
  4. >there's no easy way to find the last n symbols in the zone.
  5.  
  6. I see. It relates to a problem with classes which must precalculate
  7. zone material before constructing expanded zone lists for the 
  8. compiler. Basicly you can do that walking symbol list while
  9. summing up te absolute value of the ticks of the each length and
  10. comparing when the sum exceeds the given zone tick value, and
  11. presto, return the rest of the symbols. Check out if you can apply
  12. these.
  13.  
  14. ; (symbol-divide-zone '(a b c d e f g) '((1/4 -1/4) (1/8 -1/8)) '(1/2 1/2 1/2 1/2))
  15. ; (symbol-divide-zone '(a (1- b)) '((1/4) (1/8 -1/8)) '(1/2 1/2 1/2 1/2))
  16. ; (symbol-divide-zone '(a b c d e f g) '((1/4) (1/8)) '(1/2 -1/2 1/2))
  17. ; ((a b) nil (c d))
  18. ; (symbol-divide-zone '((a b) (c d) (e f)) '((1/4) (1/8)) '(1/2 -1/2 1/2))
  19. ; ((a b) nil (c d))
  20. ; (symbol-divide-zone '((a b) (c d) (e f)) '((1/4)) '(1/2 -1/2 1/2))
  21. ; ((a b) nil (c d))
  22.  
  23. ;(symbol-divide-zone '((1 2) (3 4) (5 6)) 
  24. ;                     '((1/16) (1/8) (1/4))
  25. ;                     '(1/1 1/1 1/1))
  26. ;(symbol-divide-zone '((1 2) (3 4) (5 6)) 
  27. ;                     '((1/16) (1/8) (1/4))
  28. ;                     '(1/1 -1/1 1/1))
  29. ;(symbol-divide-zone '((0)) '((1/16)) '(2/1)) 
  30. ;((0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0))
  31. ;(symbol-divide-zone '((0 150)) '((1/16)) '(2/4 3/4 4/4))
  32. ;(symbol-divide-zone '((80 60 70 65)) '((1/16)) '(2/4 3/4 3/4 1/4 2/4 1/8 3/4 2/2 1/4 5/4 6/4 1/4))
  33.  
  34. ;(symbol-divide-zone2 '(1 2 3 4 5) '(1/16) '(1/1 1/1 1/1))
  35. ;(symbol-divide-zone2 '(a b c d e f g) '(1/16) '(1/2 1/2))
  36. ;(symbol-divide-zone2 '(a b c d e f g) '(1/4) '(1/2 -1/2 1/2))
  37. ;(symbol-divide-zone2 '(= b c) '(1/8 1/16 1/16) '(5/8))
  38. ;(symbol-divide-zone2 '((1 2 3) (3 4) (5 6)) '(1/4) '(1/1 1/1 1/1))
  39. ;(symbol-divide-zone2 '((1 2 3) (3 4) (5 6)) '(1/4) '(1/1 -1/1 1/1))
  40.  
  41. ; (length-divide-zone '(nil (a b c) (a b)) '(-1/2 1/4) '(1\/1 1\/1 1\/1))
  42. ; (length-divide-zone '(nil (a b c) (a b)) '(1/2 1/4) '(1\/1 -1\/1 1\/1 -1\/1 1\/1))
  43.  
  44. ; length-divide-zone2 works with flat symbol list
  45. ; (length-divide-zone2 '(a b c) '(1/2 1/4) '(1\/1 1\/1 1\/1))
  46. ; (length-divide-zone2 '(a b c) '(1/2 1/4) '(1\/1 -1\/1 1\/1))
  47.  
  48.