vgi: doom: blurgh

This commit is contained in:
Vince Weaver 2021-06-25 15:39:19 -04:00
parent 84b997651d
commit ae09564fb8
1 changed files with 75 additions and 7 deletions

View File

@ -1,18 +1,26 @@
; Doom. A bad Idea
CLS 0 ; black background
; back walls
LINE 7 0 99 41 93 ; left
LINE 7 0 91 41 90
LINE 7 0 77 41 77
LINE 7 0 70 41 70
LINE 7 69 86 99 86 ; middle
LINE 7 69 89 194 89
LINE 7 71 74 97 74
LINE 2 0 99 41 93 ; left
LINE 2 0 91 41 90
LINE 2 0 77 41 77
LINE 2 0 70 41 70
LINE 2 69 86 99 86 ; middle
LINE 2 69 89 194 89
LINE 2 71 74 97 74
LINE 2 71 65 98 72 ; upper
LINETO 182 72
LINE 7 195 74 195 91
LINETO 210 92
LINE 2 71 58 97 67 ; upper
LINETO 173 67
DRECT 0x8 0x22 160 62 173 66 ; green blobs
DRECT 0x8 0x22 144 63 153 65
DRECT 0x8 0x22 90 57 97 64
; back barrel
DRECT 0x8 0x22 156 83 162 91
; back body?
DRECT 0x8 0x22 139 89 152 91
; white walls
RECT 7 7 183 60 278 72 ; top white wall
LINE 4 183 67 211 67 ; top bricks
@ -131,6 +139,66 @@ LINETO 178 137
LINE 7 202 137 209 130
LINETO 233 131
LINEF 7 233 131 261 137
; fourth row
LINE 7 6 135 11 128
LINETO 36 127
LINETO 45 122
LINETO 51 125
LINETO 64 128
LINETO 79 120
LINETO 101 120
LINETO 111 125
LINETO 89 131
LINE 7 65 125 68 129
LINE 7 0 116 8 114
LINETO 28 115
LINETO 28 119
LINETO 0 126
LINETO 12 129
LINE 7 50 110 44 113
LINETO 28 114
LINETO 31 119
LINETO 45 122
LINETO 55 117
LINETO 44 113
LINE 7 87 109 75 114
LINETO 54 117
LINE 7 76 115 79 120
LINE 7 102 111 108 115
LINETO 101 119
LINE 7 132 109 124 117
LINETO 132 118
LINETO 124 123
LINETO 130 127
LINE 7 125 124 108 124
LINE 7 106 115 125 117
LINE 7 132 119 158 117
LINETO 165 112
LINETO 159 110
LINE 7 165 113 181 112
LINETO 184 110
LINE 7 205 109 220 115
LINETO 214 120
LINETO 194 119
LINETO 181 112
LINE 7 157 130 168 124
LINETO 158 117
LINE 7 193 119 185 128
LINETO 207 132
LINE 7 219 115 242 116
LINETO 250 112
LINETO 243 111
LINE 7 166 122 180 126
LINEF 7 250 113 265 112
LINEF 7 265 112 273 116
LINEF 7 273 116 264 119
LINEF 7 264 119 278 124
LINE 7 214 119 231 125
LINETO 230 130
LINE 7 230 126 250 125
LINETO 252 120
LINETO 241 116
LINEF 7 252 119 263 119
; hand
FCIRC 5 139 166 23 ; hand
LINE 4 118 150 119 161 ; hand line