GopherProxy

	tAdd first untested attempt - lego_film_processor - software for rotary photogr…
	git clone git://src.adamsgaard.dk/lego_film_processor
	Log
	Files
	Refs
	README
	LICENSE
	---
	commit f6e861e087f5d6bdbf567f7a54bf3e322341306b
	Author: Anders Damsgaard <[email protected]>
	Date: Sun, 7 Jul 2019 19:55:21 +0200

	Add first untested attempt

	Diffstat:
	A Makefile \| 12 ++++++++++++
	A lego_jobo.nqc \| 26 ++++++++++++++++++++++++++

	2 files changed, 38 insertions(+), 0 deletions(-)
	---
	diff --git a/Makefile b/Makefile
	t@@ -0,0 +1,12 @@
	+OUT = lego_jobo.rcx
	+NQC = nqc
	+
	+default: $(OUT)
	+
	+%.rcx: %.nqc
	+ $(NQC) $<
	+
	+clean:
	+ $(RM) *.rcx
	+
	+.PHONY: clean
	diff --git a/lego_jobo.nqc b/lego_jobo.nqc
	t@@ -0,0 +1,26 @@
	+#define t_turn 500 /* turn each way for 5 s */
	+
	+task main()
	+{
	+ int i, t_current, t_end;
	+
	+ t_current = 0;
	+ t_end = 6010 + 30; / total development time */
	+
	+ Off(OUT_A+OUT_B+OUT_C);
	+ SetPower(OUT_A, OUT_FULL); /* second arg an int between 0 and 7 */
	+
	+ i = 0;
	+ while (t_current < t_end) {
	+
	+ if (++i%2 == 0)
	+ OnFwd(OUT_A);
	+ else
	+ OnRev(OUT_A);
	+
	+ Wait(t_turn);
	+
	+ t_current += t_turn;
	+ }
	+ Off(OUT_A);
	+}