worlds/haxima-1.002/weather-vane.scm

   1 ;; A weather vane points away from the wind direction
   2
   3 (define (weather-vane-exec kobj)
   4   (kern-obj-set-facing kobj
   5                        (kern-get-wind)))
   6
   7 (define weather-vane-ifc
   8   (ifc '()
   9        (method 'exec weather-vane-exec)
  10        ))
  11
  12 ;; Make a kernel portcullis type
  13 (mk-obj-type 't_weather_vane "É÷¸«" s_weather_vane layer-mechanism
  14              weather-vane-ifc)
  15
  16 ;; Define a constructor
  17 (define (mk-weather-vane)
  18   (kern-mk-obj t_weather_vane 1))