From: Mart Lubbers <mart@martlubbers.net>
Date: Sun, 9 Jul 2017 11:38:37 +0000 (+0200)
Subject: update
X-Git-Tag: final~12
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=69977392ea3197c416b3702b20635c49ba0a3a1b;p=msc-thesis1617.git

update
---

diff --git a/pres.system.tex b/pres.system.tex
index f4c71ab..f45abbe 100644
--- a/pres.system.tex
+++ b/pres.system.tex
@@ -438,8 +438,11 @@ blink =               makeDevice "stm32" stm32 >>= connectDevice
 where
 	stm32   = makeDevice "Stm32"
 		(SerialDevice {devicePath="/dev/ttyUSB0", baudrate=B9600, ...}
-	blinkTask = sds \led=LED1 In sds \x=True In
-		{main = IF x (ledOff led) (ledOn led) :. x =. Not x }
+	blinkTask = sds \led=LED1 In sds \x=True In {main =
+			ledOn LED1 :.  ledOn LED2 :.  ledOn LED3 :.
+			IF x (ledOff led) (ledOn led) :.
+			x =. Not x
+		}
 	
 	\end{lstlisting}
 \end{frame}