comp=Manipulate[With[{textSize=14},Module[{s,d,n,f=noiseLevel,noisy,i,rec,col,fixedfrec,colrec},s=AudioResample[SpeechSynthesize[word],16000];d=Duration[s];n=AudioGenerator[noiseKind,d,SampleRate16000];noisy=s+f*n;rec=result[noisy];fixedfrec=cmsiskws[noisy];i=Spectrogram[noisy,ImageSizeLarge,LabelStyleDirective[FontSize12]];col=If[recword,RGBColor[0,0.7,0],Red];colrec=If[fixedfrecword,RGBColor[0,0.7,0],Red];Column[{Text[Style["Spectrogram",16]],(*Row[{"Noise Level: ",noiseLevel}],*)i,Grid[{{Text[Style["Recognized word with reference framework",textSize]],Text[Style[":",textSize]],Text[Style[rec,col,textSize]]},{Text[Style["Recognized word with CMSIS-NN",textSize]],Text[Style[":",textSize]],Text[Style[fixedfrec,colrec,textSize]]}},Alignment{Left,Baseline}]},Spacings1]]],{{noiseLevel,0.02},0.0,0.25},{noiseKind,{"White","Pink"}},{word,{"backward","yes","no"}},ContinuousActionFalse,LabelStyleDirective[FontSize12]]