Draw a pixel: Difference between revisions

::#  the color of the pixel must be red (255,0,0)

::#  the position of the pixel is x = 100, y = 100

 

=={{header|ARM Assembly}}==

{{works with|as|Raspberry Pi}}

 

/* ARM assembly Raspberry PI */

pop {r4, lr}

bx lr

 

It seems that the program should be this. And the BASIC256 tutorial programs work on my ubuntu system. This program neither draws the pixel nor resizes the window. Can't see anything when I plot many spots. Oh well. I've tried the rgb(255,0,0) function as well as the fastgraphics/refresh statements.

rem http://rosettacode.org/wiki/Draw_a_pixel

 

color red

plot 100, 100

 

{{works with|BBC BASIC for Windows}}

 

 

 

 

 

 

 

20 REM INITIALIZE BITMAP MODE

21 POKE 53280,0:PRINT CHR$(147);"CLEARING BITMAP... PLEASE WAIT..."

75 REM CLEAR PIXEL, RETURN TO TEXT MODE

80 POKE MEM,0:POKE 53265,PEEK(53265) AND 223:POKE 53272,PEEK(53272) AND 247

 

15 GRAPHIC 1,1 : REM ENTER BITMAP GRAPHICS MODE AND CLEAR SCREEN

20 DRAW 1,100,100 : REM PLOT PIXEL AT 100,100

 

=={{header|Factor}}==

kernel literals math sequences ;

IN: rosetta-code.draw-pixel

[ set-pixel-at ] keep image-window ;

 

 

' compile with: fbc -s console

' or: fbc -s gui

WindowTitle IIf(depth = 8, "Palette","True Color") + ", hit any key to end program"

Sleep

 

The resolution of the Game Boy's screen is only 160×144, so the window requirement is out, but the pixel is easy. Also, GB BASIC doesn't support displaying the color red, so the Game Boy's grayscale equivalent, dark gray, is used instead:

 

=={{header|Go}}==

 

import (

fmt.Println("The color of the pixel at ( 0, 0) is", cmap[c1], "\b.")

fmt.Println("The color of the pixel at (100, 100) is", cmap[c2], "\b.")

 

{{out}}

The color of the pixel at (100, 100) is red.

</pre>

 

=={{header|Java}}==

Basic Implementation via subclass of JFrame:

import java.awt.Graphics;

import javax.swing.JFrame;

}

}

Advanced Implementation via subclass of JPanel (more powerful especially while repainting):

import java.awt.Graphics;

import java.awt.image.BufferedImage;

}

}

 

=={{header|Julia}}==

const can = @GtkCanvas()

signal_connect(endit, win, :destroy)

wait(cond)

 

=={{header|Kotlin}}==

This task seems very similar to the [[Bitmap]] task and so therefore is the code to accomplish it.

 

import java.awt.Color

println(if (c == Color.red) "red" else "white")

}

 

{{output}}

The color of the pixel at (100, 100) is red

</pre>

 

=={{header|M2000 Interpreter}}==

There is also a PSet statement for pixel drawing (from 9.5 version). Just replace the module call to PlotPixel with Pset.

 

 

 

}

CheckIt

[https://www.dropbox.com/s/uscltz6pwy06jxv/DrawPixelForm.png?dl=0 OutPut]

 

=={{header|Nim}}==

{{libheader|rapid}}

 

 

var

discard step # Prevent unused variable warnings

update step:

 

 

 

 

 

 

 

=={{header|Oberon}}==

With basic module XYplane, the size of the drawing plane cannot be set. Tested with [https://miasap.se/obnc OBNC].

 

 

IMPORT XYplane;

REPEAT UNTIL XYplane.Key() = "q"

END pixel.

 

=={{header|Objeck}}==

{{libheader|SDL2}}

use Game.Framework;

 

}

}

 

=={{header|OCaml}}==

Using the Graphics library provided with the standard OCaml distribution:

 

 

let () =

G.set_color G.red;

G.plot 100 100;

run with:

<pre>$ ocaml graphics.cma draw_a_pixel.ml

{{libheader|OCamlSDL2}}

 

 

let () =

Render.render_present renderer;

Timer.delay 3000;

run with:

<pre>$ ocaml -I $(ocamlfind query sdl2) sdl2.cma draw_a_pixel.ml

</pre>

 

 

=={{header|Perl}}==

{{libheader|Gtk3}}

 

my $window = Gtk3::Window->new();

$cr->rectangle( 100, 100, 1, 1);

$cr->stroke;

 

 

 

 

 

 

 

=={{header|Phix}}==

 

 

 

 

 

 

 

size(320, 240);

 

 

=={{header|PureBasic}}==

 

If OpenWindow(0, 0, 0, 320, 240, "Rosetta Code Draw A Pixel in PureBasic")

If CreateImage(0, 320, 240) And StartDrawing(ImageOutput(0))

Until Event = #PB_Event_CloseWindow

EndIf

 

=={{header|Python}}==

{{works with|Python |2.7.14}}

{{libheader|PIL}}

 

img = Image.new('RGB', (320, 240))

pixels[100,100] = (255,0,0)

img.show()

 

' This program can run in QBASIC, QuickBASIC, gw-BASIC (adding line numbers) and VB-DOS

SCREEN 1

COLOR , 0

PSET (100, 100), 2

 

=={{header|Racket}}==

(require racket/draw)

(let ((b (make-object bitmap% 320 240)))

(send b set-argb-pixels 100 100 1 1 (bytes 255 0 0 255))

 

=={{header|Ring}}==

 

load "guilib.ring"

endpaint()

}

Output image:

[https://www.dropbox.com/s/gbtrkx7bx7hogxm/PixelColor.jpg?dl=0 Draw a pixel]

 

=={{header|Rust}}==

 

 

extern crate image;

 

}

}

 

=={{header|Scala}}==

{{Out}}

Best experienced in your browser [https://scastie.scala-lang.org/AHtZh6zhRTWGj3M8azw28g with Scastie (remote JVM)].

import java.awt.Color

import scala.language.reflectiveCalls

println("Tests successfully completed with no errors found.")

 

 

=={{header|SmileBASIC}}==

I almost said that the 320x240 requirement was not going to happen. Then I realised the 3DS bottom screen is exactly 320x240.

DISPLAY 1

GPSET 100, 100, RGB(255, 0, 0)

 

=={{header|VBA}}==

Word

Dim sh As Shape, sl As Shape

Set sh = ActiveDocument.Shapes.AddCanvas(100, 100, 320, 240)

Set sl = sh.CanvasItems.AddLine(100, 100, 101, 100)

sl.Line.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)

 

=={{header|Wee Basic}}==

Since the resolution of the Nintendo DS's bottom screen is only 256×192 (the same applies to the top screen), the window requirement is out, but the pixel is easy:

plot 0 100,100,5

 

=={{header|ZX Spectrum Basic}}==

The ZX Spectrum screen is only 256x224 (unless you're running one of the games like Starion or Dark Star which used scary machine code timing tricks to draw on the border), meaning the window requirement is out, but the pixel is easy: