introduzione

Un giorno, stavi mostrando a tuo figlio come disegnare su un computer. Digiti mspaint.exela barra di esecuzione. Con tuo orrore, dice "Nessun elemento corrisponde alla tua ricerca". Devi creare una versione semplice di vernice in modo che tuo figlio possa disegnare!

Sfida

È necessario creare un semplice programma di disegno. Per fare ciò, aprire una finestra di visualizzazione bianca (più grande di 99x99 pixel). Ogni volta che il mouse viene premuto, cambia il pixel su cui si trova il mouse in nero.

Questo è code-golf , quindi vince la risposta più breve in byte!

8086 codice macchina, 32 31 28 26 byte

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

Presuppone la presenza di una scheda grafica VGA e di qualsiasi driver di mouse compatibile con Microsoft.

-2 byte grazie a @berendi!

Come funziona:

            |   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

Questo è tutto quello che c'è da fare. Nessuna magia coinvolta, solo alcune chiamate di funzione.

Scratch, 10 byte scratch

Scratch è stato praticamente progettato per cose come questa.

Provalo online!

HTML + JavaScript (ES6), 66 64 62 byte

HTML

<canvas id=c>

JavaScript

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

Salvato 2 byte grazie a Gustavo Rodrigues e 2 byte da 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 byte

Grazie, Cody e Quentin! Speravo di sbarazzarmi del #include <windows.h>ma questo porta a tutti i tipi di errori. Almeno funziona correttamente con più monitor ...

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

Codice precedente:

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

Elaborazione, 98 79 byte

19 byte salvati grazie a @dzaima

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

Spiegazione (obsoleta)

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 byte

Testato in cromo.

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

Provalo 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 byte

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

Questo utilizza la Glosslibreria (v1.11). Apre una finestra a schermo intero e dipinge i pixel neri (in effetti cerchi con raggio 1) premendo il pulsante sinistro del mouse. Premere ESCper uscire.

Come funziona:

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

Modifica: @continuato a girare in senso antiorario, mi ha parlato della nuova versione di gloss che salva 5 byte quando si usano le finestre a schermo intero. Grazie!

SmileBASIC 2, 52 51 byte

Questo si corre a papà di SmileBASIC, Petit Computer (ed è uno di due byte più breve.)

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

Spiegazione:

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 byte

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

Dai un'occhiata online!

Aggiungere il supporto click and drag sarebbe semplice, avresti impostato una variabile, tuttavia, secondo le istruzioni e per abbreviare il codice, non è supportato, "Ogni volta che il mouse viene premuto, cambia il pixel su cui il mouse è nero" . Ho interpretato l'istruzione come un clickevento.

SpecBAS - 61 59 byte

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

Il nero è già il colore predefinito della penna, ma lo sfondo è di solito una brutta tonalità di grigio, quindi lo CLS 15imposta su bianco brillante.

SmileBASIC, 70 58 53 byte

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

Ha spiegato:

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 byte

-20 byte grazie a @cfrick per aver sottolineato che posso usare useper ridurre la mia importazione.

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

Utilizza la libreria Quil . Disegna un punto ogni volta che il mouse viene trascinato.

Fondamentalmente la risposta di elaborazione, poiché Quil è un wrapper di elaborazione per 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 byte

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 byte (o 77?)

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

Utilizzando il modulo Turtle, questo non è poi così male :)

Ungolfed:

import turtle
turtle.up()

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

turtle.onscreenclick(fun)
turtle.mainloop()

Se è OK avere linee tra i punti, puoi effettivamente salvare 5 byte:

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

Excel VBA, 62 byte

Funzione di finestra immediata VBE anonima che consente all'utente di disegnare su qualsiasi foglio semplicemente selezionandolo

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

Uscita campione

HTML + Javascript, 152 148 byte

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

Turing , 77 byte

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 byte

Divertiti con i 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 byte

Questo si cerca di compensare il default margindel <body>elemento, ma possono essere diversi tra i vari browser e fogli di stile user agent. Testato con successo in 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 byte

I pixel in questo formato possono apparire più grandi quando vengono disegnati con coordinate a mezzo 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(

Sono sicuro che la maggior parte di voi con TI calc ha pensato al Pencomando, ma si scopre che non è tokenizzato, quindi avrebbe molto senso contarlo come 3 byte. È possibile leggere la versione interattiva del Pt-Change(a http://tibasicdev.wikidot.com/pt-change

Lua (love2d Framework), 180 byte

versione da golf

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

ungolfed

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

abbastanza facile come funziona. Prima alcune inizializzazioni per rendere le cose più brevi. Successivamente verificherà che si fa clic sul mouse e salvi i punti sull'array. Dopo di che disegna i punti. Inoltre imposta il colore su bianco e nero perché il valore predefinito è il contrario :)
Ed ecco che arriva l'immagine:

Elaborazione, 65 byte

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

glslsandbox 232 byte

Vecchio post ma l'ho trovato interessante.
Dato che l'elaborazione è già stata fatta, ho deciso di fare qualcosa di diverso.

Questo disegna se il mouse è premuto o meno, quindi non quello che pydude ha chiesto ma quasi.

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

Provalo su glslsandbox

Elaborazione, 93 byte, 91 byte se gli spazi non contano

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

UCBlogo con wxWidgets, 65 byte

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

Spiegazione (il codice assegnato alla variabile buttonactviene eseguito su ogni clic del pulsante):

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

Almeno, penso che funzioni. Dovrebbe secondo la documentazione , ma apparentemente la buttonactvariabile funziona solo in una build di wxWidgets e sto lottando per costruire UCBLogo con wxWidgets su un moderno Linux (waddyamean non puoi lanciare un puntatore inte tornare indietro?).

UCBlogo senza wxWidgets, 73 byte

Per vedere l'effetto desiderato, è possibile eseguire questa versione più lunga con un ciclo infinito.

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

Ma questo si blocca ucblogosulla mia macchina ... Sembra una condizione di gara.

UCBlogo, attualmente lavorando sulla mia macchina, 80 byte

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