filtress/sample_test.frs

76 lines
722 B
Plaintext

# This will test image sampling
RG1 WID
RG1 /2
RG2 HIG
RG2 /2
# Create sample in paralellagram shape
LOC RG1:RG2
LOC +50:-50
BEG 100
LOC -129:+1
BEG 130
GET
LOC +150:+150
APY
LOC -150:-150
LOC +1:+0
END
END
LOC 50:37
# Create vertical lines throughout
MOD 0
BEG 50
LOC +50:*73
BEG 2
LOC +1:+0
GET
APY +0:+RG2
END
END
# Create transparent red bar at top
MOD 1
LOC 0:0
COL 240:50:50:240
RG1 HIG
RG1 /10
APY +WID:+RG1
# Create noise underneath red bar
MOD 0
LOC +5:+1
BEG 50
LOC *9:+2
GET
LOC +0:+RG1
BEG 50
LOC +37:+0
APY +1:+1
END
LOC +0:-RG1
END
#Add dark bars
LOC 0:0
MOD 1
COL 0:0:0:240
RG1 7
BEG 5
LOC +0:+113
APY +WID:+RG1
RG1 *2
END