code drawing 130b by RafaelFajardo