Colour pinstripe/Display: Difference between revisions

{{works with|https://skilldrick.github.io/easy6502/ Easy6502}}

Output can be seen by copying and pasting this code into the code editor, then clicking "Assemble," then "Run."

define looptemp $01

 

bcc loop_4wide

 

 

=={{header|ActionScript}}==

package {

 

}

 

=={{header|Ada}}==

{{libheader|SDLAda}}

with SDL.Video.Renderers.Makers;

with SDL.Video.Palettes;

Window.Finalize;

SDL.Finalise;

 

=={{header|AutoHotkey}}==

Requires the GDI+ standard library: http://www.autohotkey.com/forum/viewtopic.php?t=32238<br/>

It is worth noting that this fills the whole screen; press Esc to exit.

w := A_ScreenWidth

pToken := gdip_Startup()

Exit:

Gdip_Shutdown(pToken)

 

{{works with|BBC BASIC for Windows}}

SYS "ShowWindow", @hwnd%, SW_MAXIMIZE

VDU 26

NEXT

NEXT P%

 

=={{header|Befunge}}==

The dimensions of the image are specified by the first two values on the stack: 1366 (<tt>"%":*3-</tt>) by 768 (<tt>"`"8*</tt>).

 

5+:,1vv\%2:%8/-g025:\-1_$$55+,\:v1+*8g01g00_@>

 

=={{header|C}}==

The following code uses the BGI graphics library of Borland's Turbo C.

 

#include<graphics.h>

#include<conio.h>

return 0;

}

 

=={{header|C++}}==

[[File:clr_pinstripe_cpp.png|300px]]

#include <windows.h>

 

}

//--------------------------------------------------------------------------------------------------

 

=={{header|Common Lisp}}==

which causes the line caps to make the edges between regions to be a bit ragged. I mention

a couple of alternatives there which I'm too lazy to implement right now.

 

;;; We only need a bitmap pane - nothing fancy

(draw-line win

(make-position xpos top)

 

=={{header|Factor}}==

math.ranges opengl sequences ui ui.gadgets ui.render ;

 

bands [1,b] [ draw-pinstripe ] with each ;

 

 

=={{header|FreeBASIC}}==

' compile with: fbc -s console

' or compile with: fbc -s gui

'Print : Print "hit any key to end program"

Sleep

 

=={{header|Gambas}}==

 

Public Sub Form_Open()

 

End

'''[http://www.cogier.com/gambas/colour_pinstripe.png Click to see output image]'''

 

{{libheader|Go Graphics}}

{{trans|Java}}

 

import "github.com/fogleman/gg"

pinstripe(dc)

dc.SavePNG("color_pinstripe.png")

 

{{out}}

This is a modified version of the [[Pinstripe/Display]] solution. A shrunken screenshot is included.

 

procedure main() # pinstripe

}

WDone()

 

[[File:Pinstripe_Colour_unicon.jpeg]]

 

=={{header|J}}==

size=. 2{.".wd'qm' NB. J6

size=. getscreenwh_jgtk_ '' NB. J7

 

=={{header|Java}}==

{{works with|Java|8}}

import static java.awt.Color.*;

import javax.swing.*;

});

}

 

=={{header|Julia}}==

 

function drawline(ctx, p1, p2, color, width)

signal_connect(endit, win, :destroy)

wait(cond)

 

=={{header|Kotlin}}==

{{trans|Java}}

 

import java.awt.*

f.isVisible = true

}

 

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

We use a thread to move the layer above console (and inside console form), when we push any mouse button (only in console window). Program ends when we close the modal opened window.

 

Module Checkit {

Window 16, 14000,12000;

Checkit

 

 

=={{header|Maple}}==

colors := [yellow, black, red, green, magenta, cyan, white]:

plots:-display( [

seq( plot([1+i/10,y,y=4..5], color=colors[i mod 7 + 1],thickness=2), i = 1..500),seq( plot([1+i/10,y,y=3..4], color=colors[i mod 7 + 1],thickness=3), i = 1..500),seq( plot([1+i/10,y,y=2..3], color=colors[i mod 7 + 1],thickness=4,size=[interface(screenwidth)*20,interface(screenheight)*32]), i = 1..500)],

axes=none);

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

White}[[Mod[y, 8] + 1]];

Graphics[Join[{Thickness[1/408]},

Range[136]], {Thickness[1/102]},

Flatten[{color[#], Line[{{4 # - 2, 102}, {4 # - 2, 1}}]} & /@

{{out}}

See [https://www.dropbox.com/s/tg4zk4jkddkok8w/Mathematica_Pinstripes_Colored.png?dl=0 here].

 

=={{header|Nim}}==

{{libheader|gintro}}

 

const

let app = newApplication(Application, "Rosetta.ColorPinstripe")

discard app.connect("activate", activate)

 

=={{header|OCaml}}==

 

 

let () =

done

done;

 

run with:

 

=={{header|Perl}}==

 

 

 

 

 

 

 

Simply change constant colours to {CD_BLACK, CD_WHITE} for the monochrome tasks (as redirected here).

 

 

=={{header|PicoLisp}}==

((0 0 0) (255 0 0) (0 255 0) (0 0 255)

(255 0 255) (0 255 255) (255 255 0) (255 255 255) .) )

(prinl (length (car Ppm)) " " (length Ppm))

(prinl 255)

 

=={{header|Plain English}}==

Start up.

Clear the screen.

Add 1 pixel to the color pinstripe's width.

Move the color pinstripe's box down the color pinstripe's box's height.

 

=={{header|PureBasic}}==

Procedure PinstripeDisplay(width, height, Array psColors(1), numColors = 0)

Protected x, imgID, psHeight = height / 4, psWidth = 1, psTop, horzBand, curColor

While WaitWindowEvent() <> #PB_Event_CloseWindow

Wend

 

=={{header|Python}}==

from turtle import *

 

notused = input("Hit enter to continue: ")

 

=={{header|Racket}}==

#lang racket/gui

 

 

(void (new full-frame%))

 

=={{header|Raku}}==

(formerly Perl 6)

 

my @colors = map -> $r, $g, $b { [$r, $g, $b] },

}

 

 

=={{header|Ring}}==

# Project : Colour pinstripe/Display

 

}

label1 { setpicture(p1) show() }

 

See image:

=={{header|Scala}}==

===Java Swing Interoperability===

import java.awt._

 

)

 

 

=={{header|Sidef}}==

{{trans|Perl}}

 

func pinstripes(width = 1280, height = 720) {

}

 

 

=={{header|SmileBASIC}}==

COLIDX=0

YTOP=(I-1)*60

DATA 0,255,255

DATA 255,255,0

 

=={{header|Tcl}}==

{{libheader|Tk}}

package require Tk 8.5

}

incr y $dy

 

=={{header|Visual Basic .NET}}==

Inherits System.Windows.Forms.Form

Public Sub New()

Next

End Sub

 

=={{header|Wren}}==

{{trans|Go}}

{{libheader|DOME}}

import "dome" for Window

 

 

static draw(dt) {}

 

=={{header|XPL0}}==

[[File:PinsXPL0.gif|right]]

int X, Y, W, C;

[SetVid($13); \set 320x200 graphics mode in 256 colors

X:= ChIn(1); \wait for keystroke

SetVid(3); \restore normal text mode display

 

=={{header|Yabasic}}==

{{trans|SmileBASIC}}

open window w, h

h4 = h/4

DATA 255,255,0

DATA 255,255,255

 

{{omit from|AWK}}