Changeset 27383 in project


Ignore:
Timestamp:
09/06/12 10:51:01 (8 years ago)
Author:
Ivan Raikov
Message:

glut example: slight correction to angle computation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/glut/examples/blender.scm

    r18998 r27383  
    2424(define light2-position '#f32(-1 -1 1 0))
    2525
    26 (define s 0)
    27 (define angle1 0)
    28 (define angle2 0)
     26(define s 0.)
     27(define angle1 0.)
     28(define angle2 0.)
    2929
    3030(define (output x y text)
     
    9393
    9494(define (idle)
    95   (set! angle1 (modulo (+ angle1 0.8) 360))
    96   (set! angle2 (modulo (+ angle2 1.1) 360))
     95  (set! angle1 (modulo (ceiling (+ angle1 0.8)) 360))
     96  (set! angle2 (modulo (ceiling (+ angle2 1.1)) 360))
    9797  (set! s (+ s 0.05))
    9898  (thread-sleep! 0.01)
Note: See TracChangeset for help on using the changeset viewer.