File: alpha.hoc

package info (click to toggle)
drawterm 20110822-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch, wheezy
  • size: 2,944 kB
  • ctags: 5,508
  • sloc: ansic: 55,192; makefile: 568; sh: 23; asm: 20
file content (9 lines) | stat: -rw-r--r-- 220 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
 
func f(x) {
	return x-x%1
}

func pixel(dr, dg, db, da, sr, sg, sb, sa, m) {
	M = 255-f((sa*m)/255)
	print f((sr*m+dr*M)/255), " ", f((sg*m+dg*M)/255), " ", f((sb*m+db*M)/255),  " ", f((sa*m+da*M)/255), "\n"
	return 0
}