SchemEnginE

Check-in [666c96abdc]
Login

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
Context
2012-04-21
15:43
[45cb21aa9f] + ICOSAHEDRON model generator + EARTH texture * updated MODELS format (INDEXES may be groupped to TRIANGLEs or QUADs, VERTEXES should have name/index) (user: Alexander, tags: trunk)
10:25
[666c96abdc] + script for loading model from file (from command line) * missed textures (user: Alexander, tags: trunk)
10:24
[f7cc15d1c0] * CUBE model with valid normals + AXIS for all axis (user: Alexander, tags: trunk)
Changes
Hide Diffs Unified Diffs Ignore Whitespace 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