Difference between revisions of "Project:Submissions/Potato"

From Key 15th Anniversary Letter Project Wiki
Jump to: navigation, search
(Source code)
m (Added location)
Line 3: Line 3:
 
|groupcheck=No
 
|groupcheck=No
 
|group=
 
|group=
 +
|location=Arizona, US
 
|date=2012/08/24
 
|date=2012/08/24
 
|submission type=Image
 
|submission type=Image

Revision as of 10:55, 9 July 2013

Submission by Potato
Name Potato

Potato.png

Date 2012/08/24
Location Arizona, US
Submission Type Yes Image
Image Type Yes Fan art
Status Yes Reviewed
Additional images
[[Image::
| ]]
Other information
This submission was created as an example. Source code is attached below. Cloud668 (talk) 07:51, 28 September 2012 (UTC)



Source code

The following code is in QBASIC. It does not execute or compile correctly in FreeBASIC.
SCREEN 12

REM mouth
LINE (260, 270)-(300, 270), 15

REM tounge
LINE (260, 270)-(300, 270), 15
LINE (260, 270)-(260, 290), 15
LINE (300, 270)-(300, 290), 15
CIRCLE (280, 290), 20, 15, 3.14, 0, .5
PAINT (280, 290), 11, 15
LINE (280, 280)-(280, 300), 15

DIM t(5000)
GET (260, 280)-(300, 300), t
PUT (260, 280), t


CIRCLE (280, 160), 100, 15, 0, 3.14, .25
CIRCLE (155, 160), 25, 15, 0, 3.14, .2
LINE (130, 160)-(120, 220), 15
CIRCLE (145, 220), 25, 15, 3.14, 0, .2
LINE (180, 180)-(170, 220), 15
LINE (160, 225)-(160, 300), 15
CIRCLE (175, 300), 25, 15, 3.14, 4.71, 1.75
LINE (175, 325)-(385, 325), 15
CIRCLE (385, 300), 25, 15, 4.71, 0, 1.75
LINE (400, 300)-(400, 225), 15

REM right ear
CIRCLE (405, 160), 25, 15, 0, 3.14, .2
LINE (430, 160)-(440, 220), 15
CIRCLE (415, 220), 25, 15, 3.14, 0, .2
LINE (380, 180)-(390, 220), 15
PAINT (280, 240), 15

REM black border
CIRCLE (280, 160), 100, 0, 0, 3.14, .25
CIRCLE (155, 160), 25, 0, 0, 3.14, .2
LINE (130, 160)-(120, 220), 0
CIRCLE (145, 220), 25, 0, 3.14, 0, .2
LINE (180, 180)-(170, 220), 0
LINE (160, 225)-(160, 300), 0
CIRCLE (175, 300), 25, 0, 3.14, 4.71, 1.75
LINE (175, 325)-(385, 325), 0
CIRCLE (385, 300), 25, 0, 4.71, 0, 1.75
LINE (400, 300)-(400, 225), 0

REM right ear
CIRCLE (405, 160), 25, 0, 0, 3.14, .2
LINE (430, 160)-(440, 220), 0
CIRCLE (415, 220), 25, 0, 3.14, 0, .2
LINE (380, 180)-(390, 220), 0

REM eyes
CIRCLE (220, 210), 10, 0
PAINT (220, 210), 0
CIRCLE (340, 210), 10, 0
PAINT (340, 210), 0

REM nose
LINE (270, 230)-(290, 230), 0
LINE (280, 240)-(270, 230), 0
LINE (280, 240)-(290, 230), 0
PAINT (280, 238), 0

REM I have no fucking clue what this does; it's been years since I made this.
x = 260
y = 280
DO
  PUT (x, y), t
  DO
    k$ = INKEY$
  LOOP WHILE k$ = ""
  PUT (x, y), t, XOR
  IF k$ = CHR$(0) + CHR$(72) AND y > 270 THEN y = y - 2
  IF k$ = CHR$(0) + CHR$(80) AND y + 20 < 300 THEN y = y + 2
  IF k$ = CHR$(0) + CHR$(71) THEN x = 260: y = 280
LOOP WHILE k$ <> CHR$(13)
SCREEN 12

REM Top

CIRCLE (330, 121), 110, 15, 0, 3.14, .05
'CIRCLE (320, 120), 100, 15, 1.57, 3.14, .05
'LINE (320, 115)-(340, 115), 15
'CIRCLE (340, 120), 100, 15, 0, 1.57, .05
LINE (440, 120)-(480, 160), 15


REM Left Ear

LINE (220, 120)-(180, 160), 15
LINE (220, 120)-(180, 100), 15
LINE (180, 100)-(140, 120), 15
LINE (140, 120)-(150, 160), 15
LINE (150, 160)-(170, 130), 15
LINE (170, 130)-(200, 140), 15
LINE (180, 160)-(165, 140), 15
PAINT (180, 120), 15

REM Left side
LINE (180, 160)-(170, 260), 15
CIRCLE (160, 260), 10, 15, 4.71, 0
CIRCLE (160, 280), 10, 15, 4.71, 1.57
LINE (160, 290)-(200, 320), 15
' CIRCLE (160, 320), 40, 15, 0, 1.57, .15
CIRCLE (240, 320), 40, 15, 3.14, 4.71, .15
' CIRCLE (320, 327), 80, 15, 3.14, 4.71, .05
LINE (230, 326)-(420, 326), 15

REM Right Side
CIRCLE (420, 320), 40, 15, 4.71, 0, .15
LINE (460, 320)-(500, 290), 15
CIRCLE (500, 280), 10, 15, 1.57, 4.71
CIRCLE (500, 260), 10, 15, 3.14, 4.71
LINE (490, 260)-(480, 160), 15

REM Right ear
LINE (480, 160)-(540, 110), 15
LINE (540, 110)-(500, 100), 15
LINE (500, 100)-(440, 120), 15
LINE (540, 110)-(500, 110), 15
LINE (500, 110)-(450, 130), 15
PAINT (460, 120), 15

REM Painting of the face
PAINT (320, 140), 15, 15

REM EYES
CIRCLE (260, 180), 40, 12, 0, 3.14, .075
CIRCLE (400, 180), 40, 12, 0, 3.14, .075

REM Mouth area
CIRCLE (330, 230), 30, 6, 0, 3.14, .5
LINE (300, 230)-(240, 240), 6
LINE (240, 240)-(220, 260), 6
LINE (220, 260)-(220, 280), 6
LINE (220, 280)-(260, 320), 6
LINE (260, 320)-(400, 320), 6
LINE (400, 320)-(440, 280), 6
LINE (440, 280)-(440, 260), 6
LINE (440, 260)-(420, 240), 6
LINE (420, 240)-(360, 230), 6
PAINT (260, 280), 6

REM Nose and Mouth
CIRCLE (330, 230), 10, 12
PAINT (330, 230), 12
LINE (330, 250)-(330, 275), 0
CIRCLE (330, 280), 20, 0, 0, 3.14, .25
CIRCLE (285, 280), 25, 0, 3.14, 0, .25
CIRCLE (375, 280), 25, 0, 3.14, 0, .25

REM Left Ear Paint

LINE (220, 120)-(180, 160), 6
LINE (220, 120)-(180, 100), 6
LINE (180, 100)-(140, 120), 6
LINE (140, 120)-(150, 160), 6
LINE (150, 160)-(170, 130), 6
LINE (170, 130)-(200, 140), 6
LINE (180, 160)-(165, 140), 6
PAINT (180, 120), 6
PAINT (180, 140), 12, 6

REM Right ear paint
LINE (480, 160)-(540, 110), 6
LINE (540, 110)-(500, 100), 6
LINE (500, 100)-(440, 120), 6
LINE (540, 110)-(500, 110), 6
LINE (500, 110)-(450, 130), 6
LINE (440, 120)-(480, 160), 6
PAINT (460, 120), 6
PAINT (500, 120), 12, 6