worlds/haxima-1.002/blendterrains.scm

   1 ;; --------------- regular water ------------------------
   2
   3
   4 (define (mk-blend-terrain tag . sprites)
   5   (kern-mk-terrain tag "water" pclass-deep
   6                    (mk-composite-sprite (cons s_shallow sprites))
   7                    trn 0 nil))
   8
   9 (mk-blend-terrain 't_wshore_n  s_grass_n )
  10 (mk-blend-terrain 't_wshore_w  s_grass_w )
  11 (mk-blend-terrain 't_wshore_nw s_grass_nw)
  12 (mk-blend-terrain 't_wshore_e  s_grass_e )
  13 (mk-blend-terrain 't_wshore_ne s_grass_ne)
  14 (mk-blend-terrain 't_wshore_we s_grass_e s_grass_w)
  15 (mk-blend-terrain 't_wshore_nwe s_grass_ne s_grass_nw)
  16 (mk-blend-terrain 't_wshore_s  s_grass_s )
  17 (mk-blend-terrain 't_wshore_ns s_grass_s s_grass_n)
  18 (mk-blend-terrain 't_wshore_ws s_grass_sw)
  19 (mk-blend-terrain 't_wshore_nws s_grass_sw s_grass_nw)
  20 (mk-blend-terrain 't_wshore_es s_grass_se)
  21 (mk-blend-terrain 't_wshore_nes s_grass_se s_grass_ne)
  22 (mk-blend-terrain 't_wshore_wes s_grass_se s_grass_sw)
  23 (mk-blend-terrain 't_wshore_c s_grass_se s_grass_sw s_grass_ne s_grass_nw)
  24
  25 (define (mk-blend-terrain tag . sprites)
  26   (kern-mk-terrain tag "deep water" pclass-deep
  27                    (mk-composite-sprite (cons s_deep sprites))
  28                    trn 0 nil))
  29
  30 (mk-blend-terrain 't_dshore_n  s_grass_n )
  31 (mk-blend-terrain 't_dshore_w  s_grass_w )
  32 (mk-blend-terrain 't_dshore_nw s_grass_nw)
  33 (mk-blend-terrain 't_dshore_e  s_grass_e )
  34 (mk-blend-terrain 't_dshore_ne s_grass_ne)
  35 (mk-blend-terrain 't_dshore_we s_grass_e s_grass_w)
  36 (mk-blend-terrain 't_dshore_nwe s_grass_ne s_grass_nw)
  37 (mk-blend-terrain 't_dshore_s  s_grass_s )
  38 (mk-blend-terrain 't_dshore_ns s_grass_s s_grass_n)
  39 (mk-blend-terrain 't_dshore_ws s_grass_sw)
  40 (mk-blend-terrain 't_dshore_nws s_grass_sw s_grass_nw)
  41 (mk-blend-terrain 't_dshore_es s_grass_se)
  42 (mk-blend-terrain 't_dshore_nes s_grass_se s_grass_ne)
  43 (mk-blend-terrain 't_dshore_wes s_grass_se s_grass_sw)
  44 (mk-blend-terrain 't_dshore_c s_grass_se s_grass_sw s_grass_ne s_grass_nw)
  45
  46 (kern-mk-terrain 't_water_rocks "boulder" pclass-waterboulder
  47                    (mk-composite-sprite (list s_shoals s_boulder_over))
  48                    lgt 0 nil)
  49
  50 ;;----------------------------
  51 ;; Water edges
  52
  53 (define (mk-blend-terrain tag . sprites)
  54   (kern-mk-terrain tag "grass" pclass-grass
  55                    (mk-composite-sprite (cons s_shoals (cons s_grassi_c sprites)))
  56                    trn 0 nil))
  57
  58 (mk-blend-terrain 't_grassw_ne s_grasso_se s_grasso_sw s_grasso_nw)
  59 (mk-blend-terrain 't_grassw_nw s_grasso_se s_grasso_sw s_grasso_ne)
  60 (mk-blend-terrain 't_grassw_es s_grasso_sw s_grasso_ne s_grasso_nw)
  61 (mk-blend-terrain 't_grassw_ws s_grasso_se s_grasso_ne s_grasso_nw)
  62 (mk-blend-terrain 't_grassw_nwe s_grasso_se s_grasso_sw)
  63 (mk-blend-terrain 't_grassw_nes s_grasso_sw s_grasso_nw)
  64 (mk-blend-terrain 't_grassw_nws s_grasso_se s_grasso_ne)
  65 (mk-blend-terrain 't_grassw_wes s_grasso_ne s_grasso_nw)
  66
  67 (kern-mk-terrain 't_grassw_c "grass" pclass-shoals
  68                    (mk-composite-sprite (list s_shoals s_grassi_c))
  69                    trn 0 nil)
  70
  71 (define (mk-blend-terrain tag . sprites)
  72   (kern-mk-terrain tag "trees" pclass-trees
  73                    (mk-composite-sprite (cons s_shoals (cons s_trees_c sprites)))
  74                    lgt 0 nil))
  75
  76 (mk-blend-terrain 't_treew_ne s_trees_se s_trees_sw s_trees_nw)
  77 (mk-blend-terrain 't_treew_nw s_trees_se s_trees_sw s_trees_ne)
  78 (mk-blend-terrain 't_treew_es s_trees_sw s_trees_ne s_trees_nw)
  79 (mk-blend-terrain 't_treew_ws s_trees_se s_trees_ne s_trees_nw)
  80 (mk-blend-terrain 't_treew_nwe s_trees_se s_trees_sw)
  81 (mk-blend-terrain 't_treew_nes s_trees_sw s_trees_nw)
  82 (mk-blend-terrain 't_treew_nws s_trees_se s_trees_ne)
  83 (mk-blend-terrain 't_treew_wes s_trees_ne s_trees_nw)
  84
  85 (kern-mk-terrain 't_treew_c "trees" pclass-trees
  86                    (mk-composite-sprite (list s_shoals s_trees_c))
  87                    lgt 0 nil)
  88
  89 (define (mk-blend-terrain tag . sprites)
  90   (kern-mk-terrain tag "hills" pclass-hills
  91                    (mk-composite-sprite (cons s_shoals (cons s_hills_c sprites)))
  92                    dns 0 nil))
  93
  94 (mk-blend-terrain 't_hillw_ne s_hills_se s_hills_sw s_hills_nw)
  95 (mk-blend-terrain 't_hillw_nw s_hills_se s_hills_sw s_hills_ne)
  96 (mk-blend-terrain 't_hillw_es s_hills_sw s_hills_ne s_hills_nw)
  97 (mk-blend-terrain 't_hillw_ws s_hills_se s_hills_ne s_hills_nw)
  98 (mk-blend-terrain 't_hillw_nwe s_hills_se s_hills_sw)
  99 (mk-blend-terrain 't_hillw_nes s_hills_sw s_hills_nw)
 100 (mk-blend-terrain 't_hillw_nws s_hills_se s_hills_ne)
 101 (mk-blend-terrain 't_hillw_wes s_hills_ne s_hills_nw)
 102
 103 (kern-mk-terrain 't_hillw_c "hills" pclass-trees
 104                    (mk-composite-sprite (list s_shoals s_hills_c))
 105                    dns 0 nil)
 106
 107 (define (mk-blend-terrain tag . sprites)
 108   (kern-mk-terrain tag "mountains" pclass-mountains
 109                    (mk-composite-sprite (cons s_shoals (cons s_mount_c sprites)))
 110                    opq 0 nil))
 111
 112 (mk-blend-terrain 't_mountw_ne s_mount_se s_mount_sw s_mount_nw)
 113 (mk-blend-terrain 't_mountw_nw s_mount_se s_mount_sw s_mount_ne)
 114 (mk-blend-terrain 't_mountw_es s_mount_sw s_mount_ne s_mount_nw)
 115 (mk-blend-terrain 't_mountw_ws s_mount_se s_mount_ne s_mount_nw)
 116 (mk-blend-terrain 't_mountw_nwe s_mount_se s_mount_sw)
 117 (mk-blend-terrain 't_mountw_nes s_mount_sw s_mount_nw)
 118 (mk-blend-terrain 't_mountw_nws s_mount_se s_mount_ne)
 119 (mk-blend-terrain 't_mountw_wes s_mount_ne s_mount_nw)
 120
 121 (kern-mk-terrain 't_mountw_c "mountains" pclass-mountains
 122                    (mk-composite-sprite (list s_shoals s_mount_c))
 123                    opq 0 nil)
 124
 125 ;;----------------------------------------------------------------------------
 126 ;; Some blended hill terrain types
 127
 128 (define (mk-blend-terrain tag . sprites)
 129   (kern-mk-terrain tag "grass" pclass-grass
 130                    (mk-composite-sprite (cons s_grass sprites))
 131                    trn 0 nil))
 132
 133 (mk-blend-terrain 't_hilledge_n  s_hill_n )
 134 (mk-blend-terrain 't_hilledge_w  s_hill_w )
 135 (mk-blend-terrain 't_hilledge_nw s_hill_n s_hill_w)
 136 (mk-blend-terrain 't_hilledge_e  s_hill_e )
 137 (mk-blend-terrain 't_hilledge_ne s_hill_n s_hill_e)
 138 (mk-blend-terrain 't_hilledge_we s_hill_e s_hill_w)
 139 (mk-blend-terrain 't_hilledge_nwe s_hill_n s_hill_e s_hill_w)
 140 (mk-blend-terrain 't_hilledge_s  s_hill_s )
 141 (mk-blend-terrain 't_hilledge_ns s_hill_s s_hill_n)
 142 (mk-blend-terrain 't_hilledge_ws s_hill_s s_hill_w)
 143 (mk-blend-terrain 't_hilledge_nws s_hill_s s_hill_w s_hill_n)
 144 (mk-blend-terrain 't_hilledge_es s_hill_s s_hill_e)
 145 (mk-blend-terrain 't_hilledge_nes s_hill_s s_hill_e s_hill_n)
 146 (mk-blend-terrain 't_hilledge_wes s_hill_s s_hill_e s_hill_w)
 147 (mk-blend-terrain 't_hilledge_c s_hill_s s_hill_e s_hill_w s_hill_n)
 148
 149 ;; inner hill corners
 150
 151 (define (mk-blend-terrain tag . sprites)
 152   (kern-mk-terrain tag "hills" pclass-hills
 153                    (mk-composite-sprite (cons s_grass (cons s_hills_c sprites)))
 154                    dns 0 nil))
 155
 156 (mk-blend-terrain 't_hilli_ne s_hills_se s_hills_sw s_hills_nw)
 157 (mk-blend-terrain 't_hilli_nw s_hills_se s_hills_sw s_hills_ne)
 158 (mk-blend-terrain 't_hilli_es s_hills_sw s_hills_ne s_hills_nw)
 159 (mk-blend-terrain 't_hilli_ws s_hills_se s_hills_ne s_hills_nw)
 160 (mk-blend-terrain 't_hilli_nwe s_hills_se s_hills_sw)
 161 (mk-blend-terrain 't_hilli_nes s_hills_sw s_hills_nw)
 162 (mk-blend-terrain 't_hilli_nws s_hills_se s_hills_ne)
 163 (mk-blend-terrain 't_hilli_wes s_hills_ne s_hills_nw)
 164
 165 (kern-mk-terrain 't_hilli_c "hills" pclass-trees
 166                    (mk-composite-sprite (list s_grass s_hills_c))
 167                    1 0 nil)
 168
 169 ;;---------------------------------------------------------------------------
 170 ;; swamp corners
 171
 172 (define (mk-blend-terrain tag . sprites)
 173   (kern-mk-terrain tag "bog" pclass-hills
 174                    (mk-composite-sprite (cons s_bog sprites))
 175                    trn 0 'terrain-effect-swamp))
 176
 177 (mk-blend-terrain 't_bog_nw s_grass_nw)
 178 (mk-blend-terrain 't_bog_ne s_grass_ne)
 179 (mk-blend-terrain 't_bog_nwe s_grass_ne s_grass_nw)
 180 (mk-blend-terrain 't_bog_ws s_grass_sw)
 181 (mk-blend-terrain 't_bog_nws s_grass_sw s_grass_nw)
 182 (mk-blend-terrain 't_bog_es s_grass_se)
 183 (mk-blend-terrain 't_bog_nes s_grass_se s_grass_ne)
 184 (mk-blend-terrain 't_bog_wes s_grass_se s_grass_sw)
 185 (mk-blend-terrain 't_bog_c s_grass_se s_grass_sw s_grass_ne s_grass_nw)
 186
 187 ;;----------------------------------------------------------------
 188 ;; mountain corners
 189
 190 (define (mk-blend-terrain tag . sprites)
 191   (kern-mk-terrain tag "mountains" pclass-mountains
 192                    (mk-composite-sprite (cons s_grass (cons s_mount_c sprites)))
 193                    opq 0 nil))
 194
 195 (mk-blend-terrain 't_mountg_ne s_mount_se s_mount_sw s_mount_nw)
 196 (mk-blend-terrain 't_mountg_nw s_mount_se s_mount_sw s_mount_ne)
 197 (mk-blend-terrain 't_mountg_es s_mount_sw s_mount_ne s_mount_nw)
 198 (mk-blend-terrain 't_mountg_ws s_mount_se s_mount_ne s_mount_nw)
 199 (mk-blend-terrain 't_mountg_nwe s_mount_se s_mount_sw)
 200 (mk-blend-terrain 't_mountg_nes s_mount_sw s_mount_nw)
 201 (mk-blend-terrain 't_mountg_nws s_mount_se s_mount_ne)
 202 (mk-blend-terrain 't_mountg_wes s_mount_ne s_mount_nw)
 203
 204 (kern-mk-terrain 't_mountg_c "mountains" pclass-mountains
 205                    (mk-composite-sprite (list s_grass s_mount_c))
 206                    0 0 nil)
 207
 208 ;;----------------------------------------------------------------
 209 ;; forest corners
 210
 211
 212 (define (mk-blend-terrain tag . sprites)
 213   (kern-mk-terrain tag "forest" pclass-forest
 214                    (mk-composite-sprite (cons s_grass (cons s_forest_c sprites)))
 215                    hvy 0 nil))
 216
 217 (mk-blend-terrain 't_forestg_ne s_forest_se s_forest_sw s_forest_nw)
 218 (mk-blend-terrain 't_forestg_nw s_forest_se s_forest_sw s_forest_ne)
 219 (mk-blend-terrain 't_forestg_es s_forest_sw s_forest_ne s_forest_nw)
 220 (mk-blend-terrain 't_forestg_ws s_forest_se s_forest_ne s_forest_nw)
 221 (mk-blend-terrain 't_forestg_nwe s_forest_se s_forest_sw)
 222 (mk-blend-terrain 't_forestg_nes s_forest_sw s_forest_nw)
 223 (mk-blend-terrain 't_forestg_nws s_forest_se s_forest_ne)
 224 (mk-blend-terrain 't_forestg_wes s_forest_ne s_forest_nw)
 225
 226
 227
 228 ;;-------------------------------------------------------
 229 ;; void *
 230
 231 (define (mk-blend-terrain tag . sprites)
 232   (kern-mk-terrain tag "cliff edge" pclass-space
 233                    (mk-composite-sprite (cons s_null sprites))
 234                    trn 0 nil))
 235
 236 (mk-blend-terrain 't_voids_n  s_grass_n )
 237 (mk-blend-terrain 't_voids_w  s_grass_w )
 238 (mk-blend-terrain 't_voids_nw s_grass_nw)
 239 (mk-blend-terrain 't_voids_e  s_grass_e )
 240 (mk-blend-terrain 't_voids_ne s_grass_ne)
 241 (mk-blend-terrain 't_voids_we s_grass_e s_grass_w)
 242 (mk-blend-terrain 't_voids_nwe s_grass_ne s_grass_nw)
 243 (mk-blend-terrain 't_voids_s  s_grass_s )
 244 (mk-blend-terrain 't_voids_ns s_grass_s s_grass_n)
 245 (mk-blend-terrain 't_voids_ws s_grass_sw)
 246 (mk-blend-terrain 't_voids_nws s_grass_sw s_grass_nw)
 247 (mk-blend-terrain 't_voids_es s_grass_se)
 248 (mk-blend-terrain 't_voids_nes s_grass_se s_grass_ne)
 249 (mk-blend-terrain 't_voids_wes s_grass_se s_grass_sw)
 250 (mk-blend-terrain 't_voids_c s_grass_se s_grass_sw s_grass_ne s_grass_nw)
 251
 252 (define (mk-blend-terrain tag . sprites)
 253   (kern-mk-terrain tag "grass" pclass-grass
 254                    (mk-composite-sprite (cons s_null (cons s_grassi_c sprites)))
 255                    trn 0 nil))
 256
 257 (mk-blend-terrain 't_grassv_ne s_grasso_se s_grasso_sw s_grasso_nw)
 258 (mk-blend-terrain 't_grassv_nw s_grasso_se s_grasso_sw s_grasso_ne)
 259 (mk-blend-terrain 't_grassv_es s_grasso_sw s_grasso_ne s_grasso_nw)
 260 (mk-blend-terrain 't_grassv_ws s_grasso_se s_grasso_ne s_grasso_nw)
 261 (mk-blend-terrain 't_grassv_nwe s_grasso_se s_grasso_sw)
 262 (mk-blend-terrain 't_grassv_nes s_grasso_sw s_grasso_nw)
 263 (mk-blend-terrain 't_grassv_nws s_grasso_se s_grasso_ne)
 264 (mk-blend-terrain 't_grassv_wes s_grasso_ne s_grasso_nw)
 265
 266 (define (mk-blend-terrain tag . sprites)
 267   (kern-mk-terrain tag "hills" pclass-hills
 268                    (mk-composite-sprite (cons s_null (cons s_hills_c sprites)))
 269                    dns 0 nil))
 270
 271 (mk-blend-terrain 't_hillv_ne s_hills_se s_hills_sw s_hills_nw)
 272 (mk-blend-terrain 't_hillv_nw s_hills_se s_hills_sw s_hills_ne)
 273 (mk-blend-terrain 't_hillv_es s_hills_sw s_hills_ne s_hills_nw)
 274 (mk-blend-terrain 't_hillv_ws s_hills_se s_hills_ne s_hills_nw)
 275 (mk-blend-terrain 't_hillv_nwe s_hills_se s_hills_sw)
 276 (mk-blend-terrain 't_hillv_nes s_hills_sw s_hills_nw)
 277 (mk-blend-terrain 't_hillv_nws s_hills_se s_hills_ne)
 278 (mk-blend-terrain 't_hillv_wes s_hills_ne s_hills_nw)
 279
 280 (define (mk-blend-terrain tag . sprites)
 281   (kern-mk-terrain tag "mountains" pclass-mountains
 282                    (mk-composite-sprite (cons s_null (cons s_mount_c sprites)))
 283                    opq 0 nil))
 284
 285 (mk-blend-terrain 't_mountv_ne s_mount_se s_mount_sw s_mount_nw)
 286 (mk-blend-terrain 't_mountv_nw s_mount_se s_mount_sw s_mount_ne)
 287 (mk-blend-terrain 't_mountv_es s_mount_sw s_mount_ne s_mount_nw)
 288 (mk-blend-terrain 't_mountv_ws s_mount_se s_mount_ne s_mount_nw)
 289 (mk-blend-terrain 't_mountv_nwe s_mount_se s_mount_sw)
 290 (mk-blend-terrain 't_mountv_nes s_mount_sw s_mount_nw)
 291 (mk-blend-terrain 't_mountv_nws s_mount_se s_mount_ne)
 292 (mk-blend-terrain 't_mountv_wes s_mount_ne s_mount_nw)
 293
 294 ;;---------------------------------------------------------------------------
 295 ;; tree corners
 296
 297 (define (mk-blend-terrain tag . sprites)
 298   (kern-mk-terrain tag "trees" pclass-trees
 299                    (mk-composite-sprite (cons s_trees sprites))
 300                    lgt 0 nil))
 301
 302 (mk-blend-terrain 't_trees_nw s_treesi_nw s_grasso_nw)
 303 (mk-blend-terrain 't_trees_ne s_treesi_ne s_grasso_ne)
 304 (mk-blend-terrain 't_trees_nwe s_treesi_ne s_grasso_ne s_treesi_nw s_grasso_nw)
 305 (mk-blend-terrain 't_trees_ws s_treesi_sw s_grasso_sw)
 306 (mk-blend-terrain 't_trees_nws s_treesi_sw s_grasso_sw s_treesi_nw s_grasso_nw)
 307 (mk-blend-terrain 't_trees_es s_treesi_se s_grasso_se)
 308 (mk-blend-terrain 't_trees_nes s_treesi_se s_grasso_se s_treesi_ne s_grasso_ne)
 309 (mk-blend-terrain 't_trees_wes s_treesi_se s_grasso_se s_treesi_sw s_grasso_sw)
 310 (mk-blend-terrain 't_trees_c s_treesi_se s_grasso_se s_treesi_sw s_grasso_sw s_treesi_ne s_grasso_ne s_treesi_nw s_grasso_nw)
 311
 312 ;; grass with tree corners
 313
 314 (define (mk-blend-terrain tag . sprites)
 315   (kern-mk-terrain tag "grass" pclass-grass
 316                    (mk-composite-sprite (cons s_grass sprites))
 317                    trn 0 nil))
 318
 319 (mk-blend-terrain 't_grasst_nw s_treeso_nw)
 320 (mk-blend-terrain 't_grasst_ne s_treeso_ne)
 321 (mk-blend-terrain 't_grasst_nwe s_treeso_ne s_treeso_nw)
 322 (mk-blend-terrain 't_grasst_ws s_treeso_sw)
 323 (mk-blend-terrain 't_grasst_nws s_treeso_sw s_treeso_nw)
 324 (mk-blend-terrain 't_grasst_es s_treeso_se)
 325 (mk-blend-terrain 't_grasst_nes s_treeso_se s_treeso_ne)
 326 (mk-blend-terrain 't_grasst_wes s_treeso_se s_treeso_sw)
 327 (mk-blend-terrain 't_grasst_c s_treeso_se s_treeso_sw s_treeso_ne s_treeso_nw)
 328
 329
 330 ;;--------------------------------------------------------------------------
 331 ;; lava corners
 332
 333 (define (mk-blend-terrain tag . sprites)
 334   (kern-mk-terrain tag "lava" pclass-hills
 335                    (mk-composite-sprite (cons s_lava sprites))
 336                    trn 0 'terrain-effect-lava))
 337
 338 (mk-blend-terrain 't_lava_n  s_grass_n )
 339 (mk-blend-terrain 't_lava_w  s_grass_w )
 340 (mk-blend-terrain 't_lava_nw s_grass_nw)
 341 (mk-blend-terrain 't_lava_e  s_grass_e )
 342 (mk-blend-terrain 't_lava_ne s_grass_ne)
 343 (mk-blend-terrain 't_lava_we s_grass_e s_grass_w)
 344 (mk-blend-terrain 't_lava_nwe s_grass_ne s_grass_nw)
 345 (mk-blend-terrain 't_lava_s  s_grass_s )
 346 (mk-blend-terrain 't_lava_ns s_grass_s s_grass_n)
 347 (mk-blend-terrain 't_lava_ws s_grass_sw)
 348 (mk-blend-terrain 't_lava_nws s_grass_sw s_grass_nw)
 349 (mk-blend-terrain 't_lava_es s_grass_se)
 350 (mk-blend-terrain 't_lava_nes s_grass_se s_grass_ne)
 351 (mk-blend-terrain 't_lava_wes s_grass_se s_grass_sw)
 352 (mk-blend-terrain 't_lava_c s_grass_se s_grass_sw s_grass_ne s_grass_nw)
 353
 354 ;;----------------------------------------------------------------
 355 ;; natural stone edges
 356
 357 (define (mk-blend-terrain tag . sprites)
 358   (kern-mk-terrain tag "natural stone wall" pclass-wall
 359                    (mk-composite-sprite (cons s_nat_rock sprites))
 360                    opq 0 nil))
 361
 362 (mk-blend-terrain 't_nat_rock_n s_nat_rock_n)
 363 (mk-blend-terrain 't_nat_rock_s s_nat_rock_s)
 364 (mk-blend-terrain 't_nat_rock_w s_nat_rock_w)
 365 (mk-blend-terrain 't_nat_rock_e s_nat_rock_e)
 366 (mk-blend-terrain 't_nat_rock_nw s_nat_rock_n s_nat_rock_w)
 367 (mk-blend-terrain 't_nat_rock_ne s_nat_rock_n s_nat_rock_e)
 368 (mk-blend-terrain 't_nat_rock_ns s_nat_rock_n s_nat_rock_s)
 369 (mk-blend-terrain 't_nat_rock_we s_nat_rock_w s_nat_rock_e)
 370 (mk-blend-terrain 't_nat_rock_ws s_nat_rock_w s_nat_rock_s)
 371 (mk-blend-terrain 't_nat_rock_es s_nat_rock_e s_nat_rock_s)
 372 (mk-blend-terrain 't_nat_rock_nwe s_nat_rock_n s_nat_rock_w s_nat_rock_e)
 373 (mk-blend-terrain 't_nat_rock_nws s_nat_rock_n s_nat_rock_w s_nat_rock_s)
 374 (mk-blend-terrain 't_nat_rock_nes s_nat_rock_n s_nat_rock_e s_nat_rock_s)
 375 (mk-blend-terrain 't_nat_rock_wes s_nat_rock_w s_nat_rock_e s_nat_rock_s)
 376 (mk-blend-terrain 't_nat_rock_nwes s_nat_rock_n s_nat_rock_w s_nat_rock_e s_nat_rock_s)
 377
 378 ;;--------------------------------------------------------------------
 379 ;; fix terrain types
 380
 381 (define bad-terrain-list
 382   (list t_bog
 383         t_lava
 384         t_deep_lava
 385         t_fire_terrain
 386         t_fireplace
 387         t_inv_wall
 388         t_wall_torch
 389                 t_lava_n t_lava_w t_lava_nw t_lava_e
 390                 t_lava_ne t_lava_we t_lava_nwe t_lava_s
 391                 t_lava_ns t_lava_ws t_lava_nws t_lava_es
 392                 t_lava_nes t_lava_wes t_lava_c
 393                 t_lava
 394                 t_bog_nw t_bog_ne t_bog_nwe t_bog_ws
 395                 t_bog_nws t_bog_es t_bog_nes t_bog_wes
 396                 t_bog_c
 397         ))
 398
 399 (define inflammable-terrain-list
 400   (list t_bog
 401         t_deep
 402         t_shallow
 403         t_shoals
 404         t_sunlit_deep
 405         t_stars
 406                 t_void
 407                 t_chasm
 408                 t_bog_nw t_bog_ne t_bog_nwe t_bog_ws
 409                 t_bog_nws t_bog_es t_bog_nes t_bog_wes
 410                 t_bog_c
 411                 t_shore_n t_shore_w t_shore_nw t_shore_e
 412                 t_shore_ne t_shore_we t_shore_nwe t_shore_s
 413                 t_shore_ns t_shore_ws t_shore_nws t_shore_es
 414                 t_shore_nes t_shore_wes t_shore_c
 415                 t_wshore_n t_wshore_w t_wshore_nw t_wshore_e
 416                 t_wshore_ne t_wshore_we t_wshore_nwe t_wshore_s
 417                 t_wshore_ns t_wshore_ws t_wshore_nws t_wshore_es
 418                 t_wshore_nes t_wshore_wes t_wshore_c
 419                 t_dshore_n t_dshore_w t_dshore_nw t_dshore_e
 420                 t_dshore_ne t_dshore_we t_dshore_nwe t_dshore_s
 421                 t_dshore_ns t_dshore_ws t_dshore_nws t_dshore_es
 422                 t_dshore_nes t_dshore_wes t_dshore_c
 423                 t_voids_n t_voids_w t_voids_nw t_voids_e
 424                 t_voids_ne t_voids_we t_voids_nwe t_voids_s
 425                 t_voids_ns t_voids_ws t_voids_nws t_voids_es
 426                 t_voids_nes t_voids_wes t_voids_c
 427         ))
 428