更新材质球

(
 global TestMapSamples
 try(destroyDialog TestMapSamples )catch()
 local lights_state = #()
 local lights_array = #()

 fn collectLightsState =
 (
  lights_state = #()
  lights_array = for l in Lights where classof l != TargetObject collect l
  for l in lights_array do
  (
   try
   (
    append lights_state l.on
    l.on = false
   )
   catch(append lights_state false) 
  )
 )
 
 fn restoreLightsState =
 (
  for l = 1 to lights_array.count do
   try(lights_array[l].on = lights_state[l])catch() 
 )
 
 fn renderMaterial mat size_x size_y=
 (
  if superclassof mat == Material then
  (
   disablesceneredraw()
   with undo off
   (
    local old_selection = selection as array
   local visibleObjects = for o in objects where not o.isHidden collect o
    hide objects
    collectLightsState()
   backgroundColor = color 128 128 128
         meditMaterials[1] = MatteShadow ()
         meditMaterials[1].shadowBrightness = 0.5
      ground = convertToPoly(Box lengthsegs:1 widthsegs:1 heightsegs:1 length:457.961 580.275 height:607.9 mapcoords:on pos:[99991.211,99950.945,99803.086] isSelected:on)
   select ground
         ground.material = meditMaterials[1]
       om1 = omniLight pos:[99900.0,99900.0,100300.0] multiplier:1.5
       om2 = omniLight pos:[100100.0,100000.0,99900.0] multiplier:2.0
       s = sphere pos:[100000.0,100000.0,100000.0] mapcoords:true segs:60
    uvw_mod = uvwmap Channel:1
    uvw_mod.mapType=2
    addmodifier s uvw_mod
    s.material = mat
    t_o = targetObject pos:[100000.0,100000.0,100000.0]
    c = TargetCamera target:t_o
    c.pos = [100000.0,100000.0-65,100030.0]
   map_sample = render camera:c outputsize:[size_x,size_y] vfb:false
    delete #(c,s,om1,om2)
    unhide visibleObjects
    select old_selection
    restoreLightsState()
   )
   enablesceneredraw()
  )
  else
   map_sample = renderMap mat size:[size_x,size_y] scale:200
  map_sample
 )

 rollout TestMapSamples "Test Map Samples"
 (
  bitmap bmp_slot1 64 height:64 across:6
  bitmap bmp_slot2 64 height:64
  bitmap bmp_slot3 64 height:64
  bitmap bmp_slot4 64 height:64
  bitmap bmp_slot5 64 height:64
  bitmap bmp_slot6 64 height:64
  bitmap bmp_slot7 64 height:64 across:6
  bitmap bmp_slot8 64 height:64
  bitmap bmp_slot9 64 height:64
  bitmap bmp_slot10 64 height:64
  bitmap bmp_slot11 64 height:64
  bitmap bmp_slot12 64 height:64
  
  button btn_updateSlots "Update Slots"
  on btn_updateSlots pressed do
  (
   suspendEditing()
   bmp_slot1.bitmap = renderMaterial meditMaterials[1] 64 64
   bmp_slot2.bitmap = renderMaterial meditMaterials[2] 64 64
   bmp_slot3.bitmap = renderMaterial meditMaterials[3] 64 64
   bmp_slot4.bitmap = renderMaterial meditMaterials[4] 64 64
   bmp_slot5.bitmap = renderMaterial meditMaterials[5] 64 64
   bmp_slot6.bitmap = renderMaterial meditMaterials[6] 64 64
   bmp_slot7.bitmap = renderMaterial meditMaterials[7] 64 64
   bmp_slot8.bitmap = renderMaterial meditMaterials[8] 64 64
   bmp_slot9.bitmap = renderMaterial meditMaterials[9] 64 64
   bmp_slot10.bitmap = renderMaterial meditMaterials[10] 64 64
   bmp_slot11.bitmap = renderMaterial meditMaterials[11] 64 64
   bmp_slot12.bitmap = renderMaterial meditMaterials[12] 64 64
   resumeEditing()
  ) 
 )--end rollout
 createDialog TestMapSamples 420 200
)