Colour pinstripe/Display: Difference between revisions

{{task|Test card}}

 

 

 

 

=={{header|ActionScript}}==

package {

 

}

 

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

Module names and variables with same name may exist

Sprite layers have a priority number, so 32 is the top one. We can change priorities sending back any sprite.

 

 

}

}

Pinstripe

}

 

=={{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].

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

{{omit from|AWK}}