Plot[min[250,max[min[32,x],x*24/100]],x,0,1200]