… | |
… | |
339 | |
339 | |
340 | # object as in "Object xxx", i.e. archetypes |
340 | # object as in "Object xxx", i.e. archetypes |
341 | sub normalize_object($) { |
341 | sub normalize_object($) { |
342 | my ($ob) = @_; |
342 | my ($ob) = @_; |
343 | |
343 | |
|
|
344 | delete $ob->{editable}; # deprecated |
|
|
345 | |
344 | # convert material bitset to materialname, if possible |
346 | # convert material bitset to materialname, if possible |
345 | if (exists $ob->{material}) { |
347 | if (exists $ob->{material}) { |
346 | if (!$ob->{material}) { |
348 | if (!$ob->{material}) { |
347 | delete $ob->{material}; |
349 | delete $ob->{material}; |
348 | } elsif (exists $ob->{materialname}) { |
350 | } elsif (exists $ob->{materialname}) { |