Colour pinstripe/Printer: Difference between revisions

=={{header|Ada}}==

{{libheader|APDF}}

 

with PDF_Out;

end;

Doc.Close;

 

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

{{works with|BBC BASIC for Windows}}

This program first displays a Print Dialogue so the printer can be selected.

_LOGPIXELSY = 90

pitch% += 1

NEXT y%

 

 

=={{header|FreeBASIC}}==

#ifdef __FB_WIN32__

exename = "mspaint.exe /pt"

If result = -1 Then Print "Error running "; exename : Sleep

End If

 

 

<br>

The code for this task is basically the same as for [[Colour_pinstripe/Display#Go]] except that the drawing parameters have been tweaked to produce 1 inch bands when printing on A4 paper and some code has been added to dump the image to the default printer.

import (

log.Fatal(err)

}

 

 

=={{header|Julia}}==

using Colors, FileIO

 

colorstripepng("temp.png")

run(`print temp.png`) # the run statement may need to be set up for the installed device

 

=={{header|Nim}}==

The code for drawing is the same that in the task Colour_pinstripe/Display but the context is different. We have chosen to display a dialog to give the user a way to choose the destination (which may be a printer or a file). Instead of the “draw” signal, we have to process the “begin_print” signal to set the number of pages and the “draw_page” signal to render the page.

 

 

const Colors = [[0.0, 0.0, 0.0], [255.0, 0.0, 0.0],

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

discard app.connect("activate", activate)

 

=={{header|Phix}}==

See the print_cb function of [[Colour_pinstripe/Display#Phix]] and the final comments of that entry.

 

=={{header|PicoLisp}}==

 

# Using circular lists for an endless supply of colors

(zero I)

(inc 'Step) ) ) )

 

=={{header|Python}}==

from turtle import *

from PIL import Image

subprocess.run(["mspaint", "/pt", "striped.jpg"])

 

=={{header|Racket}}==

only drawing onto a printer device context now.

 

#lang racket/gui

 

 

(send* dc (end-page) (end-doc))

 

=={{header|Raku}}==

Note that Raku does not attempt to be a printer driver. This example allows users to specify the dpi and paper size, then generates an image and passes it to the default printer. Defaults to 300 dpi and US letter paper.

 

 

my $filename = './Color-pinstripe-printer-perl6.png';

 

# Uncomment next line if you actually want to print it

See [https://github.com/thundergnat/rc/blob/master/img/Color-pinstripe-printer-perl6.png Color-pinstripe-printer-perl6.png] (offsite png image)

 

This code assumes that the page's printable area is 8.5"×11".

{{libheader|Tk}}

# Allocate a temporary drawing surface

canvas .c

exec lp - << [.c postscript -height $y -width $x -pageheight $y -pagewidth $x]

# Explicit exit; no GUI desired

 

=={{header|Wren}}==

<br>

This reuses the plug-in from the [[Pinstripe/Printer#Wren]] task to enable DOME to print to the default printer.

import "dome" for Window

import "plugin" for Plugin

}

 

 

{{omit from|AWK}}