Introdução

Um dia, você estava mostrando ao seu filho como desenhar no computador. Você digita mspaint.exena barra de execução. Para seu horror, ele diz "Nenhum item corresponde à sua pesquisa". Você deve criar uma versão simples da tinta para que seu filho possa desenhar!

Desafio

Você deve criar um programa de desenho simples. Para fazer isso, abra uma janela de exibição branca (maior que 99x99 pixels). Sempre que o mouse for pressionado, altere o pixel em que o mouse está preto.

Isso é código-golfe , então a resposta mais curta em bytes vence!

Código de máquina 8086, 32 31 28 26 bytes

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

Assume a presença de uma placa gráfica VGA e de qualquer driver de mouse compatível com a Microsoft.

-2 bytes graças a @berendi!

Como funciona:

            |   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

É tudo o que há para isso. Nenhuma mágica envolvida, apenas algumas chamadas de função.

Zero, 10 bytes de zero

O Scratch foi praticamente projetado para coisas assim.

Experimente online!

HTML + JavaScript (ES6), 66 64 62 bytes

HTML

<canvas id=c>

Javascript

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

Economizou 2 bytes graças a Gustavo Rodrigues e 2 bytes de Shaggy.

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 bytes

Obrigado, Cody e Quentin! Eu estava esperando para me livrar do, #include <windows.h>mas isso leva a todos os tipos de erros. Pelo menos, está funcionando corretamente com vários monitores ...

#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));}

Código anterior:

#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));}

Processando, 98 79 bytes

19 bytes salvos graças a @dzaima

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

Explicação (desatualizada)

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 bytes

Testado em cromo.

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

Experimente online!

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

Haskell, 189 184 170 169 bytes

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

Isso usa a Glossbiblioteca (v1.11). Ele abre uma janela de tela cheia e pinta pixels pretos (na verdade, círculos com o raio 1) pressionando o botão esquerdo do mouse. Pressione ESCpara sair.

Como funciona:

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

Edit: @ cessou de girar no sentido contrário, disse-me sobre a versão mais recente do gloss, que economiza 5 bytes ao usar janelas de tela cheia. Obrigado!

SmileBASIC 2, 52 51 bytes

Este é executado no pai do SmileBASIC, Petit Computer (e é um byte mais curto.)

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

Explicação:

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 bytes

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

Confira on-line!

Adicionar suporte de clicar e arrastar seria simples; no entanto, você definiria uma variável de acordo com as instruções e para reduzir o código, ele não é suportado: "Sempre que o mouse for pressionado, altere o pixel em que o mouse está preto" . Eu interpretei a instrução como um clickevento.

SpecBAS - 61 59 bytes

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

O preto já é a cor padrão da caneta, mas o fundo geralmente é um tom desagradável de cinza, então o CLS 15define para branco brilhante.

SmileBASIC, 70 58 53 Bytes

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

Explicado:

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 bytes

-20 bytes graças a @cfrick por apontar que eu posso usar usepara reduzir minha importação.

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

Usa a biblioteca Quil . Desenha um ponto sempre que o mouse é arrastado.

Basicamente, a resposta de processamento, já que Quil é um wrapper de processamento para 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 bytes

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

Ungolfed:

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 e Python3, 82 bytes (ou 77?)

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

Usando o módulo Turtle, isso não é tão ruim :)

Ungolfed:

import turtle
turtle.up()

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

turtle.onscreenclick(fun)
turtle.mainloop()

Se não há problema em ter linhas entre os pontos, você pode realmente salvar 5 bytes:

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

Excel VBA, 62 bytes

Função de janela imediata VBE anônima que permite ao usuário desenhar em qualquer folha, simplesmente selecionando-a

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

Saída de amostra

HTML + Javascript, 152 148 bytes

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

Turing , 77 bytes

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

Ungolfed:

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 bytes

Diversão com 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 bytes

Este tenta compensar o padrão margindo <body>elemento, mas pode ser diferente nos navegadores e nas folhas de estilo do agente do usuário. Testado com sucesso no 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 bytes

Os pixels neste podem parecer maiores à medida que são desenhados nas coordenadas de meio pixel.

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 byte

Pt-Change(

Tenho certeza de que a maioria de vocês com TI pensa no Pencomando, mas acontece que não é tokenizado; portanto, faria mais sentido contar isso como 3 bytes. Você pode ler sobre a versão interativa Pt-Change(em http://tibasicdev.wikidot.com/pt-change

Lua (estrutura do love2d), 180 bytes

versão golfada

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

destroçado

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

muito fácil como funciona. Primeiro, algumas inicializações para tornar as coisas mais curtas. Depois disso, ele verifica se a mous é clicada e salva os pontos na matriz. Depois disso, ele desenha os pontos. Também define a cor para branco e preto, porque o padrão é o contrário :)
E aqui vem a imagem:

Processando, 65 bytes

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

glslsandbox 232 bytes

Post antigo, mas achei isso interessante.
Como o processamento já foi feito, decidi fazer algo diferente.

Isso desenha se o mouse é pressionado ou não, então não o que o pydude pediu, mas quase.

#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);}

Experimente no glslsandbox

Processando, 93 bytes, 91 bytes se os espaços não contam

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

UCBlogo com wxWidgets, 65 bytes

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

Explicação (o código atribuído à variável buttonacté executado em cada clique do botão):

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

Pelo menos, acho que isso funciona. De acordo com a documentação , mas aparentemente a buttonactvariável só funciona em uma versão wxWidgets e estou lutando para criar o UCBLogo com wxWidgets em um Linux moderno (waddyamean você não pode usar um ponteiro paraint trás e trás?).

UCBlogo sem wxWidgets, 73 bytes

Para ver o efeito pretendido, você pode executar esta versão mais longa com um loop infinito.

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

Mas isso trava ucblogona minha máquina ... Parece uma condição de corrida.

UCBlogo, realmente trabalhando na minha máquina, 80 bytes

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