/prog/ - ITT small crappy tools you've made.

Name: Anonymous 2008-01-15 19:59

lol progfind



# progfind shiichan



Title:     Shiichan Post Referencing

URL:       http://dis.4chan.org/read/prog/1195857400

Posted:    2007-11-23 22:36

Last Post: 2007-11-24 14:52



Title:     SHIICHAN HAS A FATAL FLAW

URL:       http://dis.4chan.org/read/prog/1185843497

Posted:    2007-07-31 01:58

Last Post: 2007-08-03 12:56



Title:     Shiichan, read.php, Line 11

URL:       http://dis.4chan.org/read/prog/1185626900

Posted:    2007-07-28 13:48

Last Post: 2007-07-28 14:10



Title:     Shiichan needs an [img] 

URL:       http://dis.4chan.org/read/prog/1185463229

Posted:    2007-07-26 16:20

Last Post: 2007-07-26 23:17



Title:     Shiichan

URL:       http://dis.4chan.org/read/prog/1181486959

Posted:    2007-06-10 15:49

Last Post: 2007-06-11 16:53

Name: Anonymous 2008-01-15 21:05

All right you faggots. Now I want to see YOUR code.

#(define seed (seed->random-state 1))

#(define note-value 0)



\version "2.10.33"



\paper {

  #(define dump-extents #t)



  ragged-right = ##t

  indent = 0\mm

  force-assignment = #""

  line-width = 7\in

}



\layout {

}



#(define (easy-note pitch duration)

  (make-music

    'EventChord

    'elements (list (make-music 'NoteEvent

                                'duration duration

                                'pitch pitch))))



#(define (random-note lc lo uc uo)

  (let* ((cr (- uc lc))

         (or (- uo lo))

         (range (+ cr (* or 7)))

         (ran (random range seed))

         (class (remainder ran 7))

         (octave (quotient ran 7)))

  (easy-note (ly:make-pitch (+ octave lo)

                            class

                            0)

             (ly:make-duration note-value 0 1 1))))



#(define (rn0 count lc lo uc uo accum)

  (if (> count 0)

      (rn0 (- count 1)

           lc lo uc uo

           (cons (random-note lc lo uc uo) accum))

      accum))



randomNotes =

#(define-music-function (parser location

                         number lc lo uc uo)

                        (integer? integer? integer?

                         integer? integer?)

  (make-music 'SequentialMusic

              'elements

              (rn0 number lc lo uc uo '())))





{

\clef "bass_8"

\randomNotes #200 #0 #-3 #0 #-1

}

ITT small crappy tools you've made.

1 Name: Anonymous 2008-01-15 19:59

9 Name: Anonymous 2008-01-15 21:05

Name: Anonymous 2008-01-15 19:59

Name: Anonymous 2008-01-15 21:05