소개

어느 날, 당신은 아이에게 컴퓨터로 그리는 법을 보여주었습니다. mspaint.exe실행 막대를 입력 합니다. 공포에 "검색어와 일치하는 항목이 없습니다"라고 표시되어 있습니다. 아이가 그릴 수 있도록 간단한 페인트 버전을 만들어야합니다!

도전

간단한 드로잉 프로그램을 만들어야합니다. 이렇게하려면 흰색 표시 창을 엽니 다 (99x99 픽셀보다 큼). 마우스를 누를 때마다 마우스가있는 픽셀을 검은 색으로 변경하십시오.

이것은 code-golf 이므로 바이트 단위의 최단 답변이 승리합니다!

8086 기계 코드, 32 31 28 26 바이트

00000000  b8 0f 00 cd 10 b8 02 10  ba 18 01 cd 10 b8 03 00  |................|
00000010  cd 33 4b b8 01 0c eb f3  3f 00                    |.3K.....?.|
0000001a

VGA 그래픽 카드 및 Microsoft 호환 마우스 드라이버가 있다고 가정합니다.

@berendi 덕분에 -2 바이트!

작동 방식 :

            |   org 0x100
            |   use16
b8 0f 00    |       mov ax, 0x000f      ; set screen mode: 640x350 monochrome
cd 10       |       int 0x10            ; call video bios
b8 02 10    |       mov ax, 0x1002      ; set palette
ba 18 01    |       mov dx, palette     ; pointer to palette data
cd 10       |   @@: int 0x10            ; call video bios
b8 03 00    |       mov ax, 0x0003      ; get mouse position in (CX, DX) and button status in BL
cd 33       |       int 0x33            ; call mouse driver
4b          |       dec bx              ; if no buttons pressed, --BX = 0xFFFF (invalid page)
b8 01 0c    |       mov ax, 0x0c01      ; plot pixel with color AL at (CX, DX) in page BH
eb f3       |       jmp @b              ; repeat
3f 00       |   palette db 0x3f, 0x00   ; palette in 2:2:2 rgb. color 0 = white, 1 = black.
            |                           ; this should be a 17-byte struct, but we only care about the first two colors here

그것이 전부입니다. 마법이 필요없고 몇 번의 함수 호출 만 있습니다.

스크래치, 10 개의 스크래치 바이트

스크래치는 실제로 이와 같은 것을 위해 설계되었습니다.

온라인으로 사용해보십시오!

HTML + JavaScript (ES6), 66 64 62 바이트

HTML

<canvas id=c>

자바 스크립트

onclick=e=>c.getContext`2d`.fillRect(e.x,e.y,1,1)

Gustavo Rodrigues 덕분에 2 바이트를 절약하고 Shaggy에서 2 바이트를 절약했습니다.

onclick=e=>c.getContext`2d`.fillRect(e.x,e.y,1,1)

/* This css isn't needed for the program to work. */
*{margin: 0}
#c{border:1px solid black}

<canvas id=c>

C + 윈 32 209 200 195 바이트

고마워, 코디와 쿠엔틴! 나는 그것을 제거하기를 바랐 #include <windows.h>지만 이것은 모든 종류의 오류로 이어진다. 적어도 여러 모니터에서 올바르게 작동합니다 ...

#include<windows.h> 
struct{int h,m,w,x:16,y:16;}m;h;main(){for(h=CreateWindow("EDIT","",1<<28,0,0,199,199,0,0,0,0);GetMessage(&m,h,0,0);m.m^513?DispatchMessage(&m):SetPixel(GetDC(h),m.x,m.y,0));}

이전 코드 :

#include<windows.h> 
main(){MSG m;HWND h;for(h=CreateWindow("EDIT","",1<<28,0,0,199,199,0,0,0,0);GetMessage(&m,h,0,0);m.message^513?DispatchMessage(&m):SetPixel(GetDC(h),LOWORD(m.lParam),HIWORD(m.lParam),0));}

처리 중, 98 79 바이트

@dzaima 덕분에 19 바이트 절약

void setup(){background(-1);}void draw(){if(mousePressed)point(mouseX,mouseY);}

설명 (오래됨)

void setup() {
  size(100,100);            // size of the sketch
  background(-1);           // set the background to white
                            // 1 byte shorter than background(255);
}

void draw(){}               // required for mousePressed to work

void mousePressed() {       // function that is called whenever the mouse is pressed
  point(mouseX, mouseY);    // draw a point at the mouse's coordinates
                            // the colour is set to black as default
}

자바 스크립트 ES6, 126 바이트

크롬에서 테스트되었습니다.

onclick=e=>document.body.outerHTML+=`<a style=position:fixed;top:${e.y}px;left:${e.x}px;width:1px;height:1px;background:#000>`

온라인으로 사용해보십시오!

onclick=e=>document.body.outerHTML+=`<a style=position:fixed;top:${e.y}px;left:${e.x}px;width:1px;height:1px;background:#000>`

하스켈 189 184 170 169 바이트

import Graphics.Gloss.Interface.Pure.Game
main=play FullScreen white 9[]Pictures(#)(\_->id)
EventKey(MouseButton LeftButton)Down _(x,y)#l=Translate x y(Circle 1):l
_#l=l

Gloss라이브러리 (v1.11)를 사용합니다 . 전체 화면 창을 열고 마우스 왼쪽 버튼을 눌러 검은 색 픽셀 (사실 반경이 1 인 원)을 그립니다. ESC종료하려면 누르 십시오.

작동 방식 :

play                 -- handles the whole event handling, screen update, etc. process
    FullScreen       -- use a full screen window
    white            -- use a white background
    9                -- 9 simulation steps per second (see simulation handler below)
    []               -- the initial world state, an emtpy list of circles
    Pictures         -- a function to turn the world state into a picture.
                     -- The world state is a list of translated circles and
                     -- "Pictures" turns this list into a single picture
    (#)              -- event handler, see below
    (\_->id)         -- simulation step handler. Ignore time tick and return the
                     -- world state unchanged. More readable: "\tick world -> world"

EventKey ... # l=... -- if the left mouse button is pressed, add a circle with
                     -- radius 1 translated to the current position of the mouse
                     -- to the world state
_#l=l                -- on all other events do nothing

편집 : @ ceased counterclockwis는 전체 화면 창을 사용할 때 5 바이트를 절약하는 최신 버전의 광택에 대해 알려줍니다. 감사!

SmileBASIC 2, 52 51 바이트

이 사람은 SmileBASIC의 아빠, 쁘띠 컴퓨터에서 실행 (이고 한 두 바이트 짧다.)

PNLTYPE"OFF
GPAGE 1GCLS 15@A
GPSET TCHX,TCHY
GOTO@A

설명:

PNLTYPE"OFF       'turn off keyboard
GPAGE 1           'set graphics to lower screen
GCLS 15           'clear with color 15 (white)
@A                'loop begin
GPSET TCHX,TCHY   'set black pixel at draw location
GOTO@A            'loop

자바 스크립트 + jQuery 138 바이트

d=$(document.body).click((e)=>d.append("<div style='background:black;width:5;height:5;position:fixed;top:"+e.pageY+";left:"+e.pageX+"'>"))

온라인으로 확인하십시오!

클릭 앤 드래그 지원을 추가하는 것은 간단 할 것입니다. 그러나 변수를 설정하고 지침에 따라 코드를 단축 할 수는 없습니다. "마우스를 누를 때마다 마우스가있는 픽셀을 검은 색으로 변경하십시오" . 나는 지시를 click사건 으로 해석했다 .

SpecBAS- 61 59 바이트

1 CLS 15 
2 IF MOUSEBTN=1 THEN PLOT MOUSEx,MOUSEy
3 GO TO 2

검은 색은 이미 기본 펜 색상이지만 배경은 일반적으로 거친 회색 음영이므로 CLS 15밝은 흰색으로 설정합니다.

SmileBASIC, 70 58 53 바이트

XSCREEN 4GCLS-1@L
TOUCH OUT,X,Y
GPSET X,Y+240,0GOTO@L

설명 :

XSCREEN 4 'display one graphics page on both screens
GCLS -1 'fill screen with white
@L 'loop
TOUCH OUT,X,Y 'get touch location
GPSET X,Y+240,0 'draw black pixel at touch position, offset by the height of the top screen.
GOTO @L 'loop

클로저, 91 71 바이트

use가져 오기 축소에 사용할 수있는 @cfrick 덕분에 -20 바이트 .

(use 'quil.core)(defsketch P :mouse-dragged #(point(mouse-x)(mouse-y)))

Quil 라이브러리를 사용합니다 . 마우스를 드래그 할 때마다 점을 그립니다.

Quil은 Clojure의 처리 래퍼이므로 기본적으로 처리 답변입니다.

(q/defsketch P ; Start a new drawing

             :mouse-dragged ; Attach a mouse drag listener
             ; that draws a point at the current mouse location
             #(q/point (q/mouse-x) (q/mouse-y))) 

Tcl / Tk, 45 46 51 57

gri [can .c]
bind . <1> {.c cr o %x %y %x %y}

자바 7, 353 바이트

import java.awt.*;import java.awt.event.*;class M{static int x,y;public static void main(String[]a){Frame f=new Frame(){public void paint(Graphics g){g.drawLine(x,y,x,y);}};f.addMouseListener(new MouseAdapter(){public void mousePressed(MouseEvent e){x=e.getX();y=e.getY();f.repaint(x,y,1,1);}});f.setBackground(Color.WHITE);f.resize(500,500);f.show();}}

언 골프 드 :

import java.awt.*;
import java.awt.event.*;

class M {
    //store the last point
    static int x, y;
    public static void main(String[] a) {
        Frame f = new Frame() {
            @Override
            public void paint(Graphics g) {
                g.drawLine(x, y, x, y);
            }
        }
        f.addMouseListener(new MouseAdapter() {
            @Override
            public void mousePressed(MouseEvent e) {
                x = e.getX();
                y = e.getY();
                //repaint only the "new pixel"
                f.repaint(x, y, 1, 1);
            }
        });
        //default background is grey
        f.setBackground(Color.WHITE);
        f.resize(500, 500);
        f.show();
    }
}

Python2 및 Python3, 82 바이트 (또는 77?)

from turtle import *;up();onscreenclick(lambda x,y: goto(x,y)or dot(1));mainloop()

Turtle 모듈을 사용하면 나쁘지 않습니다 :)

언 골프 드 :

import turtle
turtle.up()

def fun(x, y):
    turtle.goto(x,y)
    turtle.dot(1)

turtle.onscreenclick(fun)
turtle.mainloop()

점 사이에 선이있는 것이 좋다면 실제로 5 바이트를 절약 할 수 있습니다.

from turtle import *;onscreenclick(lambda x,y: goto(x,y)or dot(1));mainloop()

Excel VBA, 62 바이트

사용자가 간단히 시트를 선택하여 모든 시트에 그릴 수있는 익명의 VBE 즉시 창 기능

Cells.RowHeight=48:Do:DoEvents:Selection.Interior.Color=0:Loop

샘플 출력

HTML + 자바 스크립트, 152 148 바이트

<body onclick="document.body.innerHTML+='<x style=position:fixed;width:1;height:1;left:'+event.clientX+';top:'+event.clientY+';background:#000;>'"/>

튜링 , 77 바이트

var x,y,b:int loop mousewhere(x,y,b)if b=1then drawdot(x,y,1)end if end loop

언 골프 드 :

var x,y,b : int      
loop
  mousewhere(x,y,b)  % Set (x,y) to mouse co-ords, and b to 1 or 0 indicating if the button is pressed
  if b=1 then
    drawdot(x,y,1)  % Draw a black pixel at (x,y)
  end if
end loop

HTML + CSS + 자바 스크립트 (ES6), 8 + 31 + 64 = 103 바이트

CSS와 재미 box-shadow!

s='0 0 0',onclick=e=>p.style.boxShadow=s+=`,${e.x}px ${e.y}px 0`

*{margin:0;width:1px;height:1px

<p id=p>

HTML + CSS + 자바 스크립트 (ES6), 8 + 22 + 69 = 99 바이트

이 사람은 기본 상쇄하기 위해 시도 margin의 <body>요소를하지만, 브라우저와 사용자 에이전트 스타일에서 다를 수 있습니다. Chrome에서 성공적으로 테스트되었습니다.

s='0 0 0',onclick=e=>p.style.boxShadow=s+=`,${e.x-8}px ${e.y-16}px 0`

*{width:1px;height:1px

<p id=p>

HTML + CSS + 자바 스크립트 (ES6), 8 + 18 + 69 = 95 바이트

이 픽셀은 반 픽셀 좌표로 그려 질 때 더 크게 보일 수 있습니다.

s='0 0 0',onclick=e=>p.style.boxShadow=s+=`,${e.x}px ${e.y}px 0 .5px`

*{margin:0;width:0

<p id=p>

TI 기본, 1 바이트

Pt-Change(

TI calcs를 사용하는 대부분의 사람들은 Pen명령을 생각 했지만 토큰 화되지 않았으므로 3 바이트로 계산하는 것이 가장 합리적이라고 생각합니다. http://tibasicdev.wikidot.com/pt-changePt-Change( 에서 대화식 버전에 대해 읽을 수 있습니다.

Lua (love2d 프레임 워크), 180 바이트

골프 버전

l=love v,g,m,p=255,l.graphics,l.mouse,{}d=m.isDown function l.draw()g.setBackgroundColor(v,v,v)if d(1)or d(2)then p[#p+1],p[#p+2]=m.getPosition()end g.setColor(0,0,0)g.points(p)end

언 골프

l=love 
v,g,m,p=255,l.graphics,l.mouse,{}
d=m.isDown 
function l.draw()
  g.setBackgroundColor(v,v,v)
  if d(1)or d(2)then 
    p[#p+1],p[#p+2]=m.getPosition()
  end 
  g.setColor(0,0,0)
  g.points(p)
end

작동 방식이 아주 쉽습니다. 먼저 몇 가지 초기화를 통해 작업 시간을 줄입니다. 그런 다음 마우스를 클릭하여 점을 배열에 저장합니다. 그 후 포인트를 그립니다. 또한 색상을 흰색 및 검은 색으로 설정합니다. 기본값은 다른 방법입니다
.

처리, 65 바이트

void draw(){if(mousePressed)line(mouseX,mouseY,pmouseX,pmouseY);}

glslsandbox 232 바이트

오래된 게시물이지만이 흥미로운 것을 발견했습니다.
처리가 이미 완료된 후 다른 작업을 수행하기로 결정했습니다.

이것은 마우스가 눌 렸는지 여부를 나타내므로 pydude가 요청한 것이 아니라 거의 그렇습니다.

#ifdef GL_ES
precision lowp float;
#endif
uniform float time;uniform vec2 mouse,resolution;uniform sampler2D t;void main(){vec2 f=gl_FragCoord.xy,r=resolution;gl_FragColor=vec4(time<2.||length(f-mouse*r)>2.&&texture2D(t,f/r).x>.1);}

glslsandbox에서 사용해보십시오

공백이 계산되지 않으면 93 바이트, 91 바이트 처리

void setup(){size(100,100);background(-1);}void draw(){if(mousePressed) point(mouseX,mouseY);}

wxWidgets가있는 UCBlogo, 65 바이트

setbg 7
setpc 0
ht
pu
make "buttonact[setpos clickpos pd fd 1 pu]

설명 (변수에 지정된 코드 buttonact는 각 버튼 클릭시 실행 됨) :

SetBackground 7 ; white
SetPenColor 0 ; black
HideTurtle
PenUp
make "buttonact [
  SetPos ClickPos
  PenDown
  Forward 1
  PenUp
]

적어도 이것이 효과가 있다고 생각합니다. 그것은 문서 에 따라야 하지만 분명히 buttonact변수는 wxWidgets 빌드에서만 작동하며 현대 Linux에서 wxWidgets로 UCBLogo를 빌드하는 데 어려움을 겪고 있습니다 (waddyamean은 포인터를 int되돌릴 수 없습니까?).

wxWidgets가없는 UCBlogo, 73 바이트

의도 한 효과를 보려면 무한 루프로이 더 긴 버전을 실행할 수 있습니다.

setbg 7 setpc 0 ht pu
while[1=1][setpos mousepos if[button?][pd] fd 1 pu]

그러나 이것은 ucblogo내 컴퓨터에서 충돌 합니다 ... 경쟁 조건처럼 보입니다.

UCBlogo, 실제로 내 컴퓨터에서 80 바이트 작업

setbg 7 setpc 0 ht pu
while[1=1][setpos mousepos if[button?][pd] fd 1 pu wait 1]