program damper1
   implicit none
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(0.0,0.0,1.0,1.0)
   call newpath
   call wallr(0.2,0.4,0.2,0.2,20)
   call stroke
   call newpath
   call spring(0.2,0.3,0.45,0.3,0.05,3)
   call stroke
   call newpath
   call rect(0.45,0.25,0.55,0.35)
   call stroke
   call newpath
   call damper(0.8,0.3,0.55,0.3,0.05)
   call stroke
   call newpath
   call wallr(0.8,0.2,0.8,0.4,20)
   call stroke
   call text(0.32,0.36,"k")
   call text(0.48,0.36,"m")
   call text(0.66,0.36,"c")
   call fin
   stop
   end