2martens/uni
1
0
Fork 0
mirror of https://github.com/2martens/uni.git synced 2026-05-06 11:26:25 +02:00
Code Releases Activity

SE3-6: Zusätzlichen MoniMonitor zum Weihnachtsbild hinzugefügt.

Browse Source
This commit is contained in:
Jim Martens
2013-12-07 13:09:57 +01:00
parent 99ca499a0a
commit 4cbbe10194
1 changed files with 24 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
se3/G08_B06_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt
View File

@ -74,10 +74,11 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
)) ))
; erzeugt einen Monitor ; erzeugt einen Monitor
(define monitor (above/align (define (monitor content)
(above/align
"center" "center"
(overlay (overlay
(text "cout << 0x2a;" 24 "red") (text content 24 "red")
(rectangle 160 90 "solid" "blue") (rectangle 160 90 "solid" "blue")
(rectangle 165 95 "solid" "gray") (rectangle 165 95 "solid" "gray")
) )
@ -89,6 +90,7 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
"solid" "solid"
"gray") "gray")
)) ))
; erzeugt ein Star Citizen Poster ; erzeugt ein Star Citizen Poster
(define scPoster (overlay (define scPoster (overlay
(above (above
@ -98,12 +100,16 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
(rectangle 200 100 "solid" "black"))) (rectangle 200 100 "solid" "black")))
; linker Tannenbaum ; linker Tannenbaum
(display (tannenbaum 10)) (display (tannenbaum 8))
; Monitor ; Monitor
(display monitor) (display (monitor "cout << 0x2a;"))
; Abstand zwischen Monitor und Poster ; Abstand zwischen Monitor und Poster
(display " ") (display " ")
; Star Citizen Poster ; Star Citizen Poster
(display scPoster) (display scPoster)
; Abstand zwischen Monitor und Poster
(display " ")
; Monitor
(display (monitor "6.12.13"))
; rechter Tannenbaum ; rechter Tannenbaum
(display (tannenbaum 10)) (display (tannenbaum 8))