SchemEnginE
Check-in [666c96abdc]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
SHA1 Hash:666c96abdceaecd279101bf7970f7d77a15fb41c
Date: 2012-04-21 10:25:08
User: Alexander
Comment:+ script for loading model from file (from command line) * missed textures
Tags And Properties
Changes
hide diffs unified diffs patch

Added test.bat



>
1
csi -q -b -s test.scm %*

Changes to test.scm

22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38


39

40
41
42
43
44
45
46
..
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
         ;; --------------------------------------------------------------------------------------------
         (x-rot 0)
         (y-rot 0)
         (z-rot 0)


         ;; --------------------------------------------------------------------------------------------
         ;; Cube model.
         ;; --------------------------------------------------------------------------------------------
         (cube #f)

         ;; --------------------------------------------------------------------------------------------
         ;; (ON-INIT)
         ;; Prepare the application.
         ;; --------------------------------------------------------------------------------------------
         [on-init (lambda ()
                    (console "(ON-INIT)")


                    (set! cube (load-model "cube.model.scm"))

                    #t)]


         ;; --------------------------------------------------------------------------------------------
         ;; (ON-RESIZE width height)
         ;; Called when size of the window/screen is changed)
         ;; --------------------------------------------------------------------------------------------
................................................................................
         [on-draw (lambda ()
                    (gl:LoadIdentity)
                    (gl:Translatef +1.0 +1.0 -10.0)
                    (gl:Rotatef x-rot 1.0 0.0 0.0)                              ; rotate on the X axis
                    (gl:Rotatef y-rot 0.0 1.0 0.0)                              ; rotate on the Y axis
                    ;(gl:Rotatef z-rot 0.0 0.0 1.0)                              ; rotate on the Z axis
                    (gl:Enable gl:TEXTURE_2D)
                    (draw-model cube)
                    (gl:Disable gl:TEXTURE_2D)
                    (gl:Begin gl:LINES)
                        (gl:Color3f  1 0 0)
                        (gl:Vertex3f 0 0 0)
                        (gl:Vertex3f 9 0 0)
                        (gl:Color3f  0 1 0)
                        (gl:Vertex3f 0 0 0)







|

|







>
>
|
>







 







|







22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
..
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
         ;; --------------------------------------------------------------------------------------------
         (x-rot 0)
         (y-rot 0)
         (z-rot 0)


         ;; --------------------------------------------------------------------------------------------
         ;; Model.
         ;; --------------------------------------------------------------------------------------------
         (model #f)

         ;; --------------------------------------------------------------------------------------------
         ;; (ON-INIT)
         ;; Prepare the application.
         ;; --------------------------------------------------------------------------------------------
         [on-init (lambda ()
                    (console "(ON-INIT)")
                    (set! model (load-model (if
                                              (null? (command-line-arguments))
                                              "cube.model.scm"
                                              (car (command-line-arguments)))))
                    #t)]


         ;; --------------------------------------------------------------------------------------------
         ;; (ON-RESIZE width height)
         ;; Called when size of the window/screen is changed)
         ;; --------------------------------------------------------------------------------------------
................................................................................
         [on-draw (lambda ()
                    (gl:LoadIdentity)
                    (gl:Translatef +1.0 +1.0 -10.0)
                    (gl:Rotatef x-rot 1.0 0.0 0.0)                              ; rotate on the X axis
                    (gl:Rotatef y-rot 0.0 1.0 0.0)                              ; rotate on the Y axis
                    ;(gl:Rotatef z-rot 0.0 0.0 1.0)                              ; rotate on the Z axis
                    (gl:Enable gl:TEXTURE_2D)
                    (draw-model model)
                    (gl:Disable gl:TEXTURE_2D)
                    (gl:Begin gl:LINES)
                        (gl:Color3f  1 0 0)
                        (gl:Vertex3f 0 0 0)
                        (gl:Vertex3f 9 0 0)
                        (gl:Color3f  0 1 0)
                        (gl:Vertex3f 0 0 0)

Added texture.jpg

cannot compute difference between binary files

Added texture.png

cannot compute difference between binary files