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|Action!}}==

BYTE

i,

DO UNTIL CH#$FF OD

CH=$FF

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Colour_pinstripe_display.png Screenshot from Atari 8-bit computer]

 

=={{header|ActionScript}}==

package {

 

}

 

=={{header|Ada}}==

{{libheader|SDLAda}}

with SDL.Video.Renderers.Makers;

with SDL.Video.Palettes;

Window.Finalize;

SDL.Finalise;

 

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

This uses the Game Boy Advance's bitmap screen modes; no pre-defined tilemaps are needed.

 

 

b ProgramStart ;branch around the cartridge header

.word 0b0111111111100000 ;cyan

.word 0b0000001111111111 ;yellow

 

{{out}}

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)

 

=={{header|BASIC256}}==

{{trans|Yabasic}}

graphsize w, h

 

col += 1

next x

 

=={{header|BBC BASIC}}==

{{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|Lua}}==

{{libheader|nw}}

{{libheader|cairo}}

local app = nw:app()

local cw, ch = 320, 240

end

win:show()

 

=={{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|MIPS Assembly}}==

This isn't perfect, as the edges are cut off due to overscan. But this is as close as I could get:

.include "\SrcAll\BasicMacros.asm"

.include "\SrcALL\AdvancedMacros.asm"

;colors are approximate because I'm not sure how the bit patterns work.

.halfword 0x0000,0xf000,0x0f00,0x00f0,0xf0f0,0x7fff,0xff00,0xffff

 

{{out}}

=={{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}}==

use strict ;

use GD ;

binmode DISPLAY ;

print DISPLAY $image->png ;

 

=={{header|Phix}}==

{{libheader|Phix/pGUI}}

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Colour_pinstripe.exw

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

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|QBasic}}==

{{works with|QBasic|1.1}}

{{trans|BASIC256}}

w = 640: h = 480

 

col = col + 1

NEXT x

 

=={{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|True BASIC}}==

LET h = 480

SET WINDOW 0, w, 0, h

NEXT x

NEXT i

 

=={{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}}