(nice-menus 
  (background-image (url "http://hypertramp.fr/__oneclick_uploads/2013/01/bg.jpg"))
  (image "nissan-45" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan-45.gif"))
  (image "nissan-40" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan-30.gif"))
  (image "nissan-35" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan-30.gif"))
  (image "nissan-30" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan-30.gif"))
  (image "nissan-25" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan-15.gif"))
  (image "nissan-20" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan-15.gif"))
  (image "nissan-15" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan-15.gif"))
  (image "nissan-10" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan-10.gif"))
  (image "nissan-5"  (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan-5.gif"))
  (image "nissan0"  (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan0.gif"))
  (image "nissan5"  (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan5.gif"))
  (image "nissan10" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan10.gif"))
  (image "nissan15" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan15.gif"))
  (image "nissan20" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan15.gif"))
  (image "nissan25" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan15.gif"))
  (image "nissan30" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan30.gif"))
  (image "nissan35" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan30.gif"))
  (image "nissan40" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan30.gif"))
  (image "nissan45" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/nissan45.gif"))
  (image "m-fwheel" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/fwheel.gif"))
  (image "m-rwheel" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/rwheel.gif"))
  (image "z-cloud" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/cloud.gif"))
  (image "z-bird" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/bird.gif"))
  (image "z-bird2" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/bird2.gif"))
  (audioclip "tracteur" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/823-tracteur-30db.ogg"))
  (audioclip "clp0" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/koyas2.ogg"))
  (audioclip "clp1" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/koyas3.ogg"))
  (audioclip "clp2" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/koyas4.ogg"))
  (audioclip "clp3" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/cumbia.ogg"))
  (audioclip "clp4" (url "http://hypertramp.fr/__oneclick_uploads/2013/01/condor.ogg"))
  
  
  
  
  
  
  (setq contour-points 
      '(187 187 187 187 187 188 188 188 188 188 188 188 188 188 188 188 188 188
188 188 188 188 188 188 188 188 188 188 188 188 188 188 188 188 188 188 188 188
188 188 188 188 188 188 189 189 189 189 189 189 189 189 189 189 189 189 189 189
189 189 189 189 189 189 189 189 188 188 188 187 187 186 186 185 185 184 184 183
182 182 181 181 180 180 179 179 178 178 177 177 176 176 175 175 175 174 174 174
173 173 173 172 172 172 171 171 171 171 170 170 170 169 169 169 168 168 168 167
166 166 165 164 164 163 162 162 161 160 160 159 158 157 157 156 155 155 154 153
153 152 151 151 150 150 149 148 148 147 146 146 145 144 144 143 142 142 141 140
140 139 139 139 138 138 138 138 137 137 137 136 136 136 136 135 135 135 135 135
135 135 135 135 135 135 257 136 136 136 136 136 136 136 136 137 137 138 138 139
139 140 140 141 141 142 142 143 144 144 145 145 146 146 147 147 148 148 149 149
149 150 150 151 151 152 152 153 153 154 154 154 155 155 156 156 156 157 157 157
157 157 157 157 157 157 157 157 157 157 157 157 157 157 157 157 156 156 156 156
156 155 155 155 155 155 155 154 154 154 154 154 153 153 153 153 153 152 152 152
152 152 152 152 152 152 152 152 152 152 151 151 151 151 151 151 151 151 151 151
151 151 151 151 151 152 152 153 153 154 155 155 156 156 157 157 158 158 159 160
160 161 161 162 162 163 163 164 164 165 165 166 166 167 167 168 168 169 169 170
170 171 171 171 171 171 171 171 170 170 170 170 170 169 169 169 169 169 168 168
167 166 166 165 165 164 163 163 162 162 161 160 160 159 159 159 158 158 157 157
157 156 156 155 155 155 154 154 153 153 153 152 152 151 151 151 150 150 150 149
149 149 148 148 148 147 147 147 146 146 146 145 145 145 144 144 144 143 142 142
141 140 140 139 138 138 137 136 136 135 134 134 133 132 132 131 130 130 130 130
130 130 130 130 130 130 130 130 130 130 130 130 130 130 130 130 131 131 131 132
132 133 133 134 134 134 135 135 136 136 137 137 137 138 138 139 139 139 139 140
140 140 140 140 141 141 141 141 142 142 142 142 143 143 143 143 143 143 143 143
143 143 143 143 143 143 143 143 143 143 143 143 144 144 145 145 146 147 147 148
148 149 150 150 151 151 151 151 151 152 152 152 152 153 153 153 153 153 153 153
152 151 151 150 150 149 149 148 148 147 146 146 145 145 145 145 145 145 145 145
145 145 145 145 145 145 145 145 145 145 145 145 145 145 146 146 147 147 147 148
148 148 149 149 150 150 150 151 151 152 152 152 153 153 154 155 156 156 157 158
158 159 160 160 161 162 162 162 162 162 163 163 163 163 257 164 164 164 164 165
165 165 165 165 166 166 167 167 167 168 168 169 169 170 170 170 171 171 172 172
173 173 173 173 173 173 173 174 174 174 174 174 174 174 175 175 175 175 175 175
175 176 176 176 176 176 176 176 176 176 176 176 176 176 176 176 176 176 176 176
176 176 177 177 177 177 177 177 177 177 177 177 177 177 177 177 177 177 177 177
177 177 177 177 177 177 177 177 177 177 178 178 179 179 179 180 180 181 181 181
182 182 183 183 183 184 184 185 185 185 185 185 186 186 186 186 187 187 187 187
187 188 188 188 188 189 189 189 189 189 190 190 190 190 190 190 190 191 191 191
191 191 191 191 192 192 192 192 193 193 193 193 194 194 194 195 195 195 195 196
196 196 196 196 196 196 196 196 196 196 196 196 196 196 196 196 196 196 196 196
196 196 196 196 196 196 197 197 197 197 197 197 197 197 197 197 197 197 197 197
197 196 196 196 196 196 195 195 195 195 195 194 194 194 194 194 193 193 193 192
192 192 191 191 191 190 190 189 189 189 188 188 188 187 187 187 186 186 186 185
185 184 184 184 183 183 183 182 182 182 181 181 180 180 180 179 179 179 179 179
179 179 179 179 179 179 179 179 179 179 179 180 180 180 180 180 180 180 180 180
180 180 180 180 180 180 180 180 180 180 180 180 180 180 181 181 181 182 182 183
183 184 184 184 185 185 186 186 186 186 186 187 187 187 187 257 188 188 188 188
189 189 189 189 189 189 189 189 189 189 189 189 189 188 188 188 188 188 188 188
188 188 188 188 189 189 189 190 190 190 191 191 191 192 192 192 193 193 193 193
193 193 193 192 192 192 192 192 191 191 191 191 191 191 191 192 192 193 193 193
194 194 195 195 195 195 194 194 193 192 192 191 190 190 190 190 191 191 192 192
193 193 194 194 195 195 196 196 196 197 197 197 197 197 197 197 197 197 197 197
197 197 197 197 197 197 197 197 197 197 197 197 197 197 197 198 198 198 198 198
198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198
198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198 198
198 198 198 198 198 197 197 197 197 197 197 196 196 196 196 196 196 195 195 195
195 195 195 194 194 194 193 193 193 192 192 191 191 191 190 190 190 190 190 190
190 191 191 191 192 192 192 192 193 193 193 193 193 193 193 193 193 193 193 257
192 192 192 192 192 192 192 192 191 191 191 191 191 191 257 190 190 190 190 190
190 190 190 190 190 190 191 191 191 191 191 191 190 189 188 187 186 185 184 181
178 178)
  )
  
  ;67,68 : roue av
  ;122, 68 : roue ar
  ;90° = 1,5707963267948966192313216916398
  ;45° = 0,78539816339744830961566084581988
  ;30° = 0,52359877559829887307710723054658
  ;15° = 0,26179938779914943653855361527329
  ;0° = 0
  
  (zone "load"
    (on-load
      ;(sysout "contour-points:" contour-points)
      (audioclip "tracteur" loop)
      (sequence -1
        (setq i 1200)
        (setq hvoit 80)
        (setq nissan-img "nissan0")
        (while (> i -50) (
            (setq y (element contour-points i ))
            (if (> i 1164) 
              (then (setq y2 192)) 
              (else (setq y2 (element contour-points (+ i 35))))
            )            
            (setq dy (- y2 y))
            (setq rap ((/ dy 39)))
            (setq ang (atan rap)) ;tangente = oppose / adjacent
            (setq ang2 (* (/ ang PI) 180))
            (setq ang3 (* 5 (truncate (/ ang2 5))))
            ;(sysout ang " , " ang2 " , " ang3)
            ;(sysout "y:" (eval y))
            (clear-transient-elements nissan-img)
            (setq nissan-img (cat "nissan" ang3)) 
            (image nissan-img (abs-at (- i 67) (- y hvoit)))
            (image "m-fwheel" (abs-at (- i 8) (- y 15)))
            (image "m-rwheel" (abs-at (+ i 47) (- y2 15)))
            (image "z-cloud")
            (image "z-bird" (abs-at (+ 800 (* 10 (random))) (+ 120 (* 10 (random)))))
            ;(image "z-bird2")
            (setq i (- i 5))
            ;(sysout "i = " i)
            (delay 300)
        ));while
      );sequence
      
      (sequence -1
        (setq n (truncate (* (random) 5)))
        (audioclip (cat "clp" n) play)
        (delay 20000)
      );sequence
      
      (setq birdx 1200)
      (setq birdx-speed 10)
      (sequence -1
        (image "z-bird2" (abs-at birdx 100))
        (setq birdx (- birdx birdx-speed))
        (setq birdx-speed (+ birdx-speed (- (* (random) 6) 3) ))
        (if (> birdx-speed 10) (then (setq birdx-speed 10)))
        (if (< birdx-speed -1) (then (setq birdx-speed -1)))
        (if (< birdx 0) (then (setq birdx 1200)))
        (delay 500)
      );sequence
    )
  );zone "load"
  
);nice-menus