introduction

Un jour, vous montriez à votre enfant comment dessiner sur un ordinateur. Vous tapez mspaint.exedans la barre d'exécution. À votre horreur, il est écrit "Aucun élément ne correspond à votre recherche". Vous devez créer une version simple de peinture pour que votre enfant puisse dessiner!

Défi

Vous devez créer un programme de dessin simple. Pour ce faire, ouvrez une fenêtre d’affichage blanche (supérieure à 99 x 99 pixels). Chaque fois que la souris est enfoncée, changez le pixel sur lequel la souris est allumée.

C'est du code-golf , donc la réponse la plus courte en octets gagne!

8086 code machine, 32 31 28 26 octets

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

Suppose la présence d'une carte graphique VGA et de tout pilote de souris compatible avec Microsoft.

-2 octets grâce à @berendi!

Comment ça fonctionne:

            |   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

C'est tout ce qu'on peut en dire. Aucune magie impliquée, juste quelques appels de fonction.

Scratch, 10 Scratch Octets

Scratch a été pratiquement conçu pour des choses comme celle-ci.

Essayez-le en ligne!

HTML + JavaScript (ES6), 66 64 62 octets

HTML

<canvas id=c>

JavaScript

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

Sauvegardé 2 octets grâce à Gustavo Rodrigues et 2 octets 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 octets

Merci, Cody et Quentin! J'espérais me débarrasser de la #include <windows.h>mais cela conduit à toutes sortes d'erreurs. Au moins, cela fonctionne correctement avec plusieurs moniteurs ...

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

Code précédent:

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

Traitement en cours, 98 à 79 octets

19 octets sauvegardés grâce à @dzaima

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

Explication (obsolète)

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 octets

Testé en chrome.

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

Essayez-le en ligne!

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 octets

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

Ceci utilise la Glossbibliothèque (v1.11). Il ouvre une fenêtre plein écran et peint les pixels noirs (en fait, les cercles de rayon 1) en appuyant sur le bouton gauche de la souris. Appuyez sur ESCpour quitter.

Comment ça fonctionne:

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: @ cessé de tourner à l’horloge, m’a parlé de la nouvelle version de gloss qui économise 5 octets lors de l’utilisation de fenêtres en plein écran. Merci!

SmileBASIC 2, 52 51 octets

Celui - ci fonctionne dans le papa de SmileBASIC, Petit ordinateur (et est l' un de deux octets plus court.)

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

Explication:

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 octets

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

Découvrez-le en ligne!

Ajouter un support clic et glisser serait simple, vous définiriez une variable, cependant, conformément aux instructions et pour raccourcir le code, celle-ci ne serait pas prise en charge. . J'ai interprété l'instruction comme un clickévénement.

SpecBAS - 61 59 octets

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

Le noir est déjà la couleur par défaut du stylo, mais l'arrière-plan est généralement une nuance de gris désagréable. Réglez-le donc CLS 15sur blanc éclatant.

SmileBASIC, 70 58 53 octets

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

A expliqué:

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 octets

-20 octets grâce à @cfrick pour avoir signalé que je peux utiliser usepour réduire mon importation.

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

Utilise la bibliothèque Quil . Dessine un point chaque fois que la souris est déplacée.

Fondamentalement, la réponse Processing, puisque Quil est un wrapper Processing pour 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 octets

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

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

En utilisant le module Tortue, ce n'est pas si mal :)

Ungolfed:

import turtle
turtle.up()

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

turtle.onscreenclick(fun)
turtle.mainloop()

Si vous pouvez insérer des lignes entre les points, vous pouvez réellement économiser 5 octets:

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

Excel VBA, 62 octets

Fonction de fenêtre immédiate VBE anonyme permettant à l’utilisateur de dessiner sur n’importe quelle feuille en la sélectionnant simplement

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

Exemple de sortie

HTML + Javascript, 152 148 octets

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

Turing , 77 octets

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 octets

Amusez-vous avec 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 octets

Celui-ci tente de compenser la valeur par défaut marginde l' <body>élément, mais cela peut être différent selon les navigateurs et les feuilles de style de l'agent utilisateur. Testé avec succès dans 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 octets

Les pixels de celui-ci peuvent paraître plus gros car ils sont dessinés à des coordonnées d'un demi-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 octet

Pt-Change(

Je suis sûr que la plupart d’entre vous avec les calculateurs TI ont pensé à la Pencommande, mais il s’avère que ce n’est pas un jeton, il serait donc logique de compter cela comme 3 octets. Vous pouvez lire la version interactive Pt-Change(à http://tibasicdev.wikidot.com/pt-change

Lua (love2d Framework), 180 octets

version golfée

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

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

assez facile comment ça marche. Tout d’abord quelques initialisations pour raccourcir les choses. Après cela, il vérifiera que la souris est cliquée et enregistre les points dans le tableau. Après cela, il dessine les points. De plus, il définit la couleur en blanc et noir car le défaut est l’inverse :)
Et voici l’image:

Traitement, 65 octets

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

glslsandbox 232 octets

Ancien post, mais j'ai trouvé cela intéressant.
Comme le traitement a déjà été effectué, j'ai décidé de faire quelque chose de différent.

Ceci dessine si la souris est pressée ou non, donc pas ce que pydude a demandé mais presque.

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

Essayez-le sur glslsandbox

Traitement, 93 octets, 91 octets si les espaces ne comptent pas

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

UCBlogo avec wxWidgets, 65 octets

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

Explication (le code attribué à la variable buttonactest exécuté à chaque clic de bouton):

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

Au moins, je pense que cela fonctionne. Cela devrait être conforme à la documentation , mais apparemment, la buttonactvariable ne fonctionne que dans une construction wxWidgets et je peine à créer UCBLogo avec wxWidgets sur un Linux moderne (waddyamean vous ne pouvez pas utiliser un pointeur vers intet en arrière?).

UCBlogo sans wxWidgets, 73 octets

Pour voir l'effet recherché, vous pouvez exécuter cette version plus longue avec une boucle infinie.

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

Mais cela se bloque ucblogosur ma machine ... On dirait une condition de concurrence.

UCBlogo, travaillant actuellement sur ma machine, 80 octets

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