dharmatech

;; For hacker Derick

(import (rnrs)
        (gl)
        (glut)
        (agave glu)
        (agave glamour window)
        (agave glamour misc)
        (agave glamour mouse))

dharmatech

(import (rnrs)
        (gl)
        (glut)
        (agave glu)
        (agave glamour window)
        (agave glamour misc)
        (agave glamour mouse))

(initialize-glut)

dharmatech

;; spherical plot with lighting

(import (rnrs)
        (gl)
        (glut)
        (agave glu)
        (agave glamour window)
        (agave glamour misc)
        (agave glamour mouse))

dharmatech

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#| 

* accessing

  (first seq)

  (last seq)

dharmatech

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (make-indexable-fold-left size ref)

  (define (fold-left seq val proc)
    (let ((n (size seq)))
      (let loop ((i 0) (val val))
        (if (>= i n)
            val

dharmatech

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; iterable: list ra-list stream

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (make-iterable-fold-left empty? next rest)

  (define (fold-left seq val proc)
    (let loop ((seq seq) (val val))

dharmatech

(library (sequences define-indexable-sequence-procedures)

  (export define-indexable-sequence-procedures)

  (import (rnrs)
          (dharmalab misc gen-id)
          (sequences indexable-functors))

  (define-syntax define-indexable-sequence-procedures

dharmatech

//  Original version in Processing:
//
//    http://www.openprocessing.org/visuals/?visualID=323

using math , ffi , GL , GLU , GLUT ;

GLUT::Init {0} NULL ;

GLUT::InitDisplayMode ( GLUT::DOUBLE or GLUT::RGB or GLUT::DEPTH ) ;

dharmatech

//  Original version in Processing:
//
//    http://www.openprocessing.org/visuals/?visualID=323

using math , ffi , GL , GLU , GLUT , glamour ;

GLUT::Init {0} NULL ;

GLUT::InitDisplayMode ( GLUT::DOUBLE or GLUT::RGB or GLUT::DEPTH ) ;

dharmatech

//  Original version in Processing:
//
//    http://www.openprocessing.org/visuals/?visualID=323

using math , ffi , GL , GLU , GLUT ;

GLUT::Init {0} NULL ;

GLUT::InitDisplayMode ( GLUT::DOUBLE or GLUT::RGB or GLUT::DEPTH ) ;