前書き

ある日、あなたはあなたの子供にコンピューターで描く方法を見せていました。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>

JavaScript

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 +のWin32、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
}

JavaScript 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バイト

この1つのSmileBASICのお父さん、プティ・コンピュータで実行さ（とある1 2バイト短いです。）

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

Javascript + 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

Clojure、91 71バイト

useインポートを縮小するために使用できることを指摘してくれた@cfrickに感謝します。

(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}

Java 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 + Javascript、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 + JavaScript（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 + JavaScript（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 + JavaScript（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-Basic、1バイト

Pt-Change(

TI CalcのほとんどのユーザーはこのPenコマンドを考えていたと思いますが、トークン化されていないため、3バイトとしてカウントするのが最も理にかなっています。あなたは、対話型バージョンのについて読むことができますPt-Change(でhttp://tibasicdev.wikidot.com/pt-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を構築するのに苦労しています（waddyaはポインタをキャストすることはできません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]