From 35898016ac6fd2d85ebc7ef0056124e30d455e30 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sun, 6 Dec 2020 22:12:49 -0800 Subject: 7345 --- apps/tile/environment.mu | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 776b4185..5c17a97d 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -1899,20 +1899,6 @@ fn render-column screen: (addr screen), functions: (addr handle function), bindi return right-col } -fn clear-canvas _env: (addr environment) { - var env/esi: (addr environment) <- copy _env - var screen-ah/edi: (addr handle screen) <- get env, screen - var _screen/eax: (addr screen) <- lookup *screen-ah - var screen/edi: (addr screen) <- copy _screen - clear-screen screen - var nrows/eax: (addr int) <- get env, nrows - var sep-col/ecx: (addr int) <- get env, code-separator-col - # divider - draw-vertical-line screen, 1, *nrows, *sep-col - # primitives - var dummy/eax: int <- render-primitives screen, *nrows, *sep-col -} - # wordstar-style cheatsheet of shortcuts fn render-menu _env: (addr environment) { var env/esi: (addr environment) <- copy _env @@ -1967,6 +1953,20 @@ fn render-menu _env: (addr environment) { print-string screen, " define function " } +fn clear-canvas _env: (addr environment) { + var env/esi: (addr environment) <- copy _env + var screen-ah/edi: (addr handle screen) <- get env, screen + var _screen/eax: (addr screen) <- lookup *screen-ah + var screen/edi: (addr screen) <- copy _screen + clear-screen screen + var nrows/eax: (addr int) <- get env, nrows + var sep-col/ecx: (addr int) <- get env, code-separator-col + # divider + draw-vertical-line screen, 1, *nrows, *sep-col + # primitives + var dummy/eax: int <- render-primitives screen, *nrows, *sep-col +} + # return value: top-most row written to fn render-primitives screen: (addr screen), bottom-margin-row: int, right-col: int -> _/eax: int { # render primitives from the bottom of the screen upward -- cgit 1.4.1-2-gfad0 er
path: root/themes/spawn
blob: b32862d3f396fcb3a3b0a2e635358e353ebeb948 (plain) (blame) 
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

>
1848b18f ^

98f7918b ^

363be37f ^

98f7918b ^


0487a30e ^

ac0e9db5 ^

f88883e2 ^




0487a30e ^



827898fc ^

98f7918b ^



88be3dbc ^

98f7918b ^

bc643692 ^


0487a30e ^

98f7918b ^

57699011 ^

98f7918b ^

051c4738 ^

0487a30e ^

bc643692 ^

0487a30e ^





bc643692 ^

0487a30e ^



051c4738 ^

0487a30e ^

bc643692 ^

0487a30e ^



1848b18f ^


98f7918b ^

363be37f ^

98f7918b ^


0487a30e ^

ac0e9db5 ^

f88883e2 ^




0487a30e ^



827898fc ^

98f7918b ^



88be3dbc ^

98f7918b ^

bc643692 ^


0487a30e ^

98f7918b ^

57699011 ^

d7e11237 ^

051c4738 ^

0487a30e ^

bc643692 ^

0487a30e ^





bc643692 ^

0487a30e ^



051c4738 ^

0487a30e ^

bc643692 ^

0487a30e ^



1848b18f ^


d7e11237 ^

363be37f ^

d7e11237 ^


e4630643 ^

ac0e9db5 ^

f88883e2 ^




827898fc ^

0487a30e ^

d7e11237 ^



88be3dbc ^

d7e11237 ^

bc643692 ^

0487a30e ^

d7e11237 ^

57699011 ^

0487a30e ^



bc643692 ^

0487a30e ^




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