2martens/uni
1
0
Fork 0
mirror of https://github.com/2martens/uni.git synced 2026-05-06 19:36:26 +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

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

@ -74,21 +74,23 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
)) ))
; erzeugt einen Monitor ; erzeugt einen Monitor
(define monitor (above/align (define (monitor content)
"center" (above/align
(overlay "center"
(text "cout << 0x2a;" 24 "red") (overlay
(rectangle 160 90 "solid" "blue") (text content 24 "red")
(rectangle 165 95 "solid" "gray") (rectangle 160 90 "solid" "blue")
) (rectangle 165 95 "solid" "gray")
(polygon )
(list (make-posn 0 0) (polygon
(make-posn 80 0) (list (make-posn 0 0)
(make-posn 55 -10) (make-posn 80 0)
(make-posn 25 -10)) (make-posn 55 -10)
"solid" (make-posn 25 -10))
"gray") "solid"
)) "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))