-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathquiz.red
129 lines (94 loc) · 2.89 KB
/
quiz.red
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
Red [
Title: "Quiz"
Description: {Take Web Screenshot by command line (just requires latest Google Chrome installed)}
Platforms: [
Windows: yes
Mac: TOTEST
Linux: TOTEST
]
Build: 0.0.0.1
History: [
0.0.0.1 {Initial version}
]
References: [
https://twitter.com/Jamal7x7Jamal/status/1008269417124331520
https://pbs.twimg.com/media/Df4XIenXkAAhZRo.jpg:large
]
]
.center-rectangle: function[>position >parent-rectangle-size][
]
Title: "Quiz App"
font-title: make font! [ name: "Arial" ]
Quiz-title: "Quiz on Programming"
font-quiz-title: make font! [ name: "Arial" ]
Question: "What is Red?"
font-letter: make font! [ name: "Arial" size: 18]
darkest-blue: 1.23.64
lightest-blue: 104.172.248
lightest-magenta: 170.164.234
light-blue: 88.160.244
light-magenta: 153.152.232
base-size: 1024x728
bigRect-pos1: 0x0
bigRect-pos2: base-size
dark-blue: 6.38.89
darker-blue: 5.35.85
blue-highlight: 86.152.233
win: compose/deep [
title (title)
origin 0x0 space 0x0
base (base-size)
draw [
pen off ; will remove black border for shapes
;----------------------------------------------
fill-pen (darkest-blue)
box (bigRect-pos1) (bigRect-pos2)
fill-pen (lightest-blue)
box 227x148 287x258
fill-pen linear (light-blue) (light-magenta) 0x0 800x0
box 286x148 792x258
fill-pen (lightest-magenta)
box 732x148 793x258
;----------------------------------------------
; External Rectangles
;----------------------------------------------
font font-letter
fill-pen (darker-blue)
box 227x258 287x418
text 245x320 "A"
fill-pen (darker-blue)
box 732x258 793x418
text 756x320 "B"
fill-pen (darker-blue)
box 732x418 793x578
text 756x480 "C"
fill-pen (blue-highlight)
box 227x418 287x578
text 245x480 "D"
;----------------------------------------------
; Inner Rectangles
;----------------------------------------------
fill-pen (dark-blue)
box 287x258 512x418
fill-pen (dark-blue)
box 512x258 732x418
fill-pen (dark-blue)
box 512x418 732x578
fill-pen radial (150.122.189) (84.162.253)
;fill-pen radial (150.122.189) (84.162.253) 0 511x417
box 287x418 512x578
;----------------------------------------------
pen (1.30.80)
line-width 2
line 227x418 793x418
line 512x258 512x578
;----------------------------------------------
pen white
font font-title
text 400x70 (Quiz-title)
font font-quiz-title
text 440x187 (Question)
;----------------------------------------------
]
]
view layout win