TV effect filter

["Francois Saluden" <francois@saluden.com>]

Hello,

For several months, I wanted to post the code of the only filter I've wrote
but I didn't have time.

It's a common filter, to produce TV lines. I have wrote it from scratch. His
name is Interlaced.

A French version is available on
http://www.saluden.com/filtre-plugin/entrelacement.htm

Here is the text code (generated with Harry's PiCo)
*************************************************
Category: FS Filters
Title: Interlaced lines
Copyright: Freeware
Author: Francois Saluden
Filename: interlac.8bf

R:(((((ctl(6)||0)==0)?x:y)%ctl(3))==0)||((((ctl(6)||0)==0)?x:y)%ctl(3)<ctl(4
)?1:0)?(!ctl(7)||0)*mix(ctl(z),c,ctl(5),255)+(ctl(7)||0)*c:(ctl(7)||0)*mix(c
tl(z),c,ctl(5),255)+(!ctl(7)||0)*c

G:(((((ctl(6)||0)==0)?x:y)%ctl(3))==0)||((((ctl(6)||0)==0)?x:y)%ctl(3)<ctl(4
)?1:0)?(!ctl(7)||0)*mix(ctl(z),c,ctl(5),255)+(ctl(7)||0)*c:(ctl(7)||0)*mix(c
tl(z),c,ctl(5),255)+(!ctl(7)||0)*c

B:(((((ctl(6)||0)==0)?x:y)%ctl(3))==0)||((((ctl(6)||0)==0)?x:y)%ctl(3)<ctl(4
)?1:0)?(!ctl(7)||0)*mix(ctl(z),c,ctl(5),255)+(ctl(7)||0)*c:(ctl(7)||0)*mix(c
tl(z),c,ctl(5),255)+(!ctl(7)||0)*c

A:a

ctl[0]: Red
ctl[1]: Green
ctl[2]: Blue
ctl[3]: Spacing
ctl[4]: Thickness
ctl[5]: Opacity
ctl[6]: Verti/Horiz
ctl[7]: Inversion

val[0]: 0
val[1]: 0
val[2]: 0
val[3]: 2
val[4]: 1
val[5]: 255
val[6]: 255
val[7]: 0

*****************************

Some explanations :
Verti/Horiz : 0 for vertical lines, other values produce horizontal lines
Inversion : 0 to paint the first line, other value to begin only on the
second line

I'm on holydays this evening, forgive me if I don't answer to any posting
about this filter.
I'll be back at the end of August.

Francois Saluden
www.saluden.com