hi Johann,
0) fluxus limits texture size to power-of-two which is no longer needed,
every graphics card should be able to use arbitrary sizes AFAIK. This is
only a minor performance and image quality issue.
yes, we have been discussing this. i proposed supporting npot textures,
but the concencus was that ati cards don't support it. we can bring the
topic up again.
1) It seems that the primitive must be drawn (with the mysterious #t
flag) and hiding it won't work. I have to move it out of the way, which
is a really crude workaround.
the #t parameter means you want to render to the pixel primitive.
otherwise the renderer is not active. hiding does not work, you can use
(scale 0)
2) When i use the mouse to change the camera transform, of course i
this is a trickier issue. what i was doing in the past is that i
extracted the fluxus camera handling code into a module and used that in
the pixel primitive. i modified your code to work with this module and
attached the code.
hope it helps.
best,
gabor
#lang scheme
(require fluxus-017/fluxus-modules)
(require fluxus-017/input)
(require fluxus-017/building-blocks)
(provide pp-input-camera)
(define camera-matrix (mtranslate (vector 0 1 -10)))
(define camera-position (vector 0 0 -10))
(define camera-rot-now (vector 0 0 0 1))
(define camera-rot-start (vector 0 0 0 1))
(define click-mouse (vector 0 0))
(define last-mouse (vector 0 0))
(define last-button 0)
(define (on-unit-sphere mx my)
(let ((mag (+ (* mx mx) (* my my))))
(cond
((> mag 1.0)
(let ((scale (/ 1.0 (sqrt mag))))
(vector (* mx scale) (* my scale) 0)))
(else
(vector mx my (sqrt (- 1 mag)))))))
(define (pp-input-camera px)
(let ([width (vx (get-screen-size))]
[height (vy (get-screen-size))]
[x (mouse-x)]
[y (mouse-y)])
(if (or (mouse-button 1) (mouse-button 2) (mouse-button 3))
(cond
((zero? last-button) ; click
(vector-set! last-mouse 0 x)
(vector-set! last-mouse 1 y)
(set! last-button (cond [(mouse-button 1) 1]
[(mouse-button 2) 2]
[(mouse-button 3) 3]))
(set! camera-rot-start
(qmul camera-rot-now camera-rot-start))
(set! camera-rot-now (vector 0 0 0 1))
(vector-set! click-mouse 0 (- (/ x (/ (- width 1) 2)) 1))
(vector-set! click-mouse 1 (- (- (/ y (/ (- height 1) 2))
1))))
(else ; drag
(cond
((eq? last-button 1) ; button 1
(let ((d (on-unit-sphere (vector-ref click-mouse 0)
(vector-ref click-mouse 1)))
(m (on-unit-sphere (- (/ x (/ (- width
1) 2)) 1)
(-
(- (/ y (/ (- height 1) 2)) 1)))))
(vector-set! camera-rot-now 0 (- (* (vector-ref
d 1) (vector-ref m 2))
(* (vector-ref d 2) (vector-ref m 1))))
(vector-set! camera-rot-now 1 (- (* (vector-ref
d 2) (vector-ref m 0))
(* (vector-ref d 0) (vector-ref m 2))))
(vector-set! camera-rot-now 2 (- (* (vector-ref
d 0) (vector-ref m 1))
(* (vector-ref d 1) (vector-ref m 0))))
(vector-set! camera-rot-now 3 (+ (* (vector-ref
d 0) (vector-ref m 0))
(* (vector-ref d 1) (vector-ref m 1))
(* (vector-ref d 2) (vector-ref m 2))))
(set! camera-rot-now (qnormalise
camera-rot-now))))
((eq? last-button 2) ; button 2
(vector-set! camera-position 0 (+ (vector-ref
camera-position 0)
(/ (- x (vector-ref last-mouse 0)) 50.0)))
(vector-set! camera-position 1 (+ (vector-ref
camera-position 1)
(- (/ (- y (vector-ref last-mouse 1)) 50.0)))))
((eq? last-button 3) ; button 3
(vector-set! camera-position 2 (+ (vector-ref
camera-position 2)
(- (/ (- y (vector-ref last-mouse 1)) 50.0))))))
(vector-set! last-mouse 0 x)
(vector-set! last-mouse 1 y)
(pp-update-camera px)))
(set! last-button 0))))
(define (pp-update-camera px)
(set! camera-matrix
(mmul (mtranslate camera-position)
(mtranspose (qtomatrix (qconjugate
(qmul camera-rot-now
camera-rot-start))))))
(with-pixels-renderer px
(set-camera camera-matrix)))
(require "ppcamera.ss")
(clear)
(define v
"
varying vec2 tc;
void main(){
gl_Position = ftransform();
tc = gl_MultiTexCoord0.st;
}")
(define f
"
uniform sampler2D tex;
varying vec2 tc;
void main() {
gl_FragColor = texture2D(tex,abs(tc-vec2(0.5))+vec2(0.5));
}")
(define p (build-pixels 2048 1024 #t))
(with-primitive p
(scale 0))
(set-camera-transform (mtranslate (vector 0 0 -10)))
(define (render)
(pp-input-camera p)
(with-pixels-renderer p
(texture (load-texture "test.png"))
(with-state
(hint-unlit)
(identity)
(scale 5.0)
(draw-cube))))
(with-primitive (build-plane)
(texture (pixels->texture p))
(shader-source v f)
(scale (vector 20 15 1)))
(every-frame (render))
