SetMenuData( BertDNA , "trace9_bt", "cur_BertDNA" );
SetMenuData( BertHair , "trace8_bt", "cur_BertHair" );


SetEvidenceProperties( BertDNA, "TEXT1254", "evd_victim_dna", false, nil, COMPUTER_DNA, "bert_DNA", 1 )
SetEvidenceProperties( BertHair, "TEXT1248", "evd_bert_hair_samples", true, "bertHair", false, nil )

AddEvidenceSample( BertDNA, DNA3SampleObject )
AddEvidenceSample( BertDNA, DNA1SampleObject )
AddEvidenceSample( BertDNA, DNA5SampleObject )
AddEvidenceSample( BertDNA, DNA2SampleObject )
AddEvidenceSample( BertDNA, DNA4SampleObject )

-- pic_BertDNA / Hair: normal picture to show as evidence
-- pic_BertDNA_CE: enhanced picture for the computer
-- pic_BertHair_ME: enhanced picture for the microscope/viewfinder