Вступ

Одного разу ви показували дитині, як малювати на комп’ютері. Ви набираєте mspaint.exeпанель запуску. На ваш жах, він говорить: "Жоден предмет не відповідає вашому пошуку". Ви повинні створити просту версію фарби, щоб малюк міг малювати!

Виклик

Ви повинні створити просту програму малювання. Для цього відкрийте біле вікно (більше 99x99 пікселів). Щоразу, коли мишу натискаєте, змініть піксель, на якому миша увімкнено, на чорний.

Це код-гольф , тому найкоротша відповідь у байтах виграє!

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.

-2 байти завдяки @berendi!

Як це працює:

            |   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 байт скретч

Scratch був практично розроблений для таких речей.

Спробуйте в Інтернеті!

HTML + JavaScript (ES6), 66 64 62 байт

HTML

<canvas id=c>

JavaScript

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

Збережено 2 байти завдяки Густаво Родрігесу та 2 байти від 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 байт

Спасибі, Коді та Квентін! Я сподівався позбутися, #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 байт

19 байт збережено завдяки @dzaima

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>`

Haskell, 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

Редагувати: @ перестало повертати проти годинника, мені розповіли про найновішу версію блиску, яка економить 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

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 байт

-20 байт завдяки @cfrick за вказівку на те, що я можу використовувати useдля зменшення імпорту.

(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 байти

Функція негайного вікна Anonymous 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 calcs думали про Penкоманду, але виявляється, що вона не є токенізованою, тому було б найбільш сенсом вважати це як 3 байти. Про інтерактивну версію можна прочитати на веб- Pt-Change(сайті http://tibasicdev.wikidot.com/pt-change

Lua (love2d Framework), 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 байт

Стара публікація, але це було цікавим.
Оскільки обробка вже зроблена, я вирішив зробити щось інше.

Це показує, натискається чи ні миша, тож не те, про що попросили підуїди, але майже.

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

UCBlogo з wxWidgets, 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, і я намагаюся створити UCBLogo з wxWidgets на сучасному Linux (waddyamean ви не можете кинути покажчик на intта назад?).

UCBlogo без wxWidgets, 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]