From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- pkg/images/tv/iis/blink.cl | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 pkg/images/tv/iis/blink.cl (limited to 'pkg/images/tv/iis/blink.cl') diff --git a/pkg/images/tv/iis/blink.cl b/pkg/images/tv/iis/blink.cl new file mode 100644 index 00000000..5cc437e5 --- /dev/null +++ b/pkg/images/tv/iis/blink.cl @@ -0,0 +1,19 @@ +#{ BLINK -- Blink 2, 3, or 4 frames. + +# frame1,i,a,,,,Frame1 +# frame2,i,a,,,,Frame2 +# frame3,i,a,,,,Frame3 +# frame4,i,a,,,,Frame4 +# rate,r,h,1.,,,Blink rate (sec per frame) + +{ + if ($nargs == 3) { + _dcontrol (alternate = frame1 // " " // frame2 // " " // + frame3, blink+, rate=rate) + } else if ($nargs == 4) { + _dcontrol (alternate = frame1 // " " // frame2 // " " // + frame3 // " " // frame4, blink+, rate=rate) + } else { + _dcontrol (alternate = frame1 // " " // frame2, blink+, rate=rate) + } +} -- cgit