Giriş

Bir gün, çocuğunuza bir bilgisayarda nasıl çizileceğini gösteriyordunuz. Yazdığınız mspaint.exeçalıştırma çubuğunda. Korku için, "Aramanla eşleşen hiçbir şey yok" yazıyor. Çocuğunuzun çizebilmesi için basit bir boya sürümü oluşturmalısınız!

Meydan okuma

Basit bir çizim programı oluşturmalısınız. Bunu yapmak için beyaz bir ekran penceresi açın (99x99 pikselden büyük). Fareye her basıldığında, farenin açık olduğu pikseli siyaha dönüştürün.

Bu kod-golf , bayt cinsinden en kısa cevap!

8086 makine kodu, 32 31 28 26 bayt

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 grafik kartının ve Microsoft uyumlu herhangi bir fare sürücüsünün varlığını varsayar.

@Berendi sayesinde -2 bayt!

Nasıl çalışır:

            |   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

Hepsi bu kadar. Sihir içermez, sadece birkaç işlev çağrısı.

Kazı Kazan, 10 Kazı Kazan

Scratch, pratikte bunun gibi şeyler için tasarlandı.

Çevrimiçi deneyin!

HTML + JavaScript (ES6), 66 64 62 bayt

HTML

<canvas id=c>

JavaScript

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

Gustavo Rodrigues ve Shaggy'den 2 byte sayesinde 2 byte kurtarıldı.

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 bayt

Teşekkürler, Cody ve Quentin! Kurtulmayı umuyordum #include <windows.h>ama bu her türlü hataya yol açıyor. En azından birden fazla monitörle doğru çalışıyor ...

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

Önceki kod:

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

İşlem, 98 79 bayt

@Dzaima sayesinde 19 bayt kurtarıldı

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

Açıklama (eski)

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 bayt

Kromda test edilmiştir.

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

Çevrimiçi deneyin!

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 bayt

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

Bu, Glosskütüphaneyi kullanır (v1.11). Bir tam ekran penceresini açar ve sol fare düğmesine basarak siyah pikselleri (aslında yarıçapı 1 olan daireler) boyar. Çıkmak ESCiçin tuşuna basın .

Nasıl çalışır:

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

Düzenleme: counterclockwis açmak için @ cresten bana tam ekran pencereleri kullanırken 5 bayt kaydeder parlak yeni sürümü hakkında anlattı. Teşekkürler!

SmileBASIC 2, 52 51 bayt

Bu, SmileBASIC'in babası Petit Computer'da (ve bir iki bayt daha kısa.)

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

Açıklama:

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 bayt

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

Çevrimiçi olarak kontrol edin!

Tıkla ve sürükle desteği eklemek basit olacaktır, bununla birlikte bir değişken ayarladınız, ancak talimatlara göre ve kodu kısaltmak için desteklenmiyor, "Fareye her basıldığında, farenin üzerinde olduğu pikseli siyaha dönüştürün" . Talimatı bir clickolay olarak yorumladım .

SpecBAS - 61 59 bayt

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

Siyah zaten varsayılan kalem rengidir, ancak arka plan genellikle gri bir gri tonudur, bu nedenle CLS 15onu parlak beyaza ayarlar.

SmileBASIC, 70 58 53 Bayt

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

Açıklaması:

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 bayt

-20 bayt, ithalimi küçültmek için kullanabileceğime işaret ettiği için @cfrick sayesinde use.

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

Quil kütüphanesini kullanır . Fare sürüklendiğinde bir nokta çizer.

Quil, Clojure için bir İşleme sarmalayıcısı olduğundan, Temel olarak İşlem yanıtı.

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

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 ve Python3, 82 bayt (veya 77?)

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

Kaplumbağa modülünü kullanarak, bu çok kötü değil :)

Ungolfed:

import turtle
turtle.up()

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

turtle.onscreenclick(fun)
turtle.mainloop()

Noktalar arasında çizgiler olması tamamsa, aslında 5 byte tasarruf edebilirsiniz:

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

Excel VBA, 62 Bayt

Kullanıcının herhangi bir sayfaya basitçe seçerek çizmesini sağlayan anonim VBE acil pencere işlevi

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

Örnek çıktı

HTML + Javascript, 152 148 bayt

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

Turing , 77 bayt

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 bayt

CSS ile eğlenceli 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 bayt

Bu margin, <body>öğenin varsayılanını dengelemeye çalışır , ancak tarayıcılarda ve kullanıcı aracısı stil sayfalarında farklı olabilir. Chrome'da başarıyla test edildi.

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 bayt

Buradaki pikseller, yarım piksel koordinatlarında çizildiklerinden daha büyük görünebilir.

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 bayt

Pt-Change(

TI calcs ile çoğunuzun Penkomutu düşündüğüne eminim , ama tokenize olmadığı ortaya çıktı, bu yüzden bunu 3 bayt olarak saymak en mantıklı olur. Sen etkileşimli sürümüne okuyabilirsiniz Pt-Change(at http://tibasicdev.wikidot.com/pt-change

Lua (love2d Çerçeve), 180 bayt

golf versiyonu

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

nasıl çalıştığını oldukça kolay. Öncelikle işleri kısaltmak için birkaç başlangıç. Bundan sonra, farenin tıklandığını kontrol eder ve noktaları diziye kaydeder. Ondan sonra noktaları çizer.Ayrıca rengini beyaz & siyah'a ayarlar, çünkü varsayılan tersidir :) :)
Ve işte resim geliyor:

İşlem, 65 bayt

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

glslsandbox 232 bayt

Eski posta ancak bu ilginç bulundu.
İşlem yapıldığından beri farklı bir şey yapmaya karar verdim.

Bu, fareye basılıp basılmadığını çizer, yani ne pydude istedi ama neredeyse.

#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 üzerinde deneyin

İşleme, 93 bayt, 91 bayt, boşluk sayılmazsa

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

WxWidgets ile UCBlogo, 65 bayt

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

Açıklama (değişkene atanan kod buttonacther düğmeye tıklandığında yürütülür):

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

En azından, bunun işe yaradığını düşünüyorum. Belgelere göre olmalı , ancak görünüşe göre buttonactdeğişken sadece bir wxWidgets yapısında çalışıyor ve ben modern bir Linux'ta wcWidgets ile UCBLogo oluşturmak için uğraşıyorum (waddyamean gösterici kullanıp çeviremezsiniz int?).

WxWidgets içermeyen UCBlogo, 73 bayt

Amaçlanan efekti görmek için, bu uzun sürümü sonsuz bir döngü ile çalıştırabilirsiniz.

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

Ama bu ucblogobenim makinemde çöküyor ... Bir yarış koşulu gibi görünüyor.

UCBlogo, aslında makinemde çalışıyor, 80 bayt

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