Tugas: Keluarkan bendera Swiss.

Selamat Hari Nasional Swiss / Schweizer Bundesfeiertag / Fête nationale suisse / Festa nazionale svizzera / Fiasta naziunala svizra!

Detail: Bendera terdiri dari tanda #FFFFFFsilang putih ( ) pada #FF0000latar belakang merah ( ). Salib terdiri dari 6x6 persegi dengan lengan ukuran 6x7 terpaku di setiap sisi. Salib berada di tengah latar belakang persegi 32x32 yang memiliki jarak 6 unit untuk setiap sisi. ( Sumber )

Ukuran output dapat dipilih oleh peserta, tetapi gambar harus sama persis dengan proporsi ini, ini berarti ukurannya harus kelipatan 32.

Versi minimal akan terlihat seperti ini:

SVG (HTML5), 94 83 82 64 byte

<svg><path d=M0,0V32H32V0M6,13h7V6h6v7h7v6H19v6H13V19H6 fill=red

Disimpan 2 byte berkat @ThePirateBay. Disimpan 1 byte berkat @ATaco. Disimpan 18 byte berkat @CraigAyre menunjukkan bahwa gambar 32 × 32 dapat diterima. Seperti yang ditunjukkan oleh @Shaggy, ini mengasumsikan latar belakang default Anda putih; tambahkan 22 byte untuk flag yang berfungsi pada latar belakang apa pun:

<svg><path d=M0,0V32H32V0 fill=red /><path d=M6,13h7V6h6v7h7v6H19v6H13V19H6 fill=#FFF

x86-16 Kode Mesin untuk DOS, 43 byte

               ; Draw 32x32 red square
B8 0C 28          mov  ax, 0x0C28   ; AL == color red, AH == set pixel function
B9 00 1F          mov  cx, 31
               DrawBox:
BA 00 1F          mov  dx, 31
               DrawRow:
CD 10             int  0x10
4A                dec  dx
75 FB             jnz  DrawRow
E2 F6             loop DrawBox

               ; Draw the interior white cross
B0 0F             mov  al, 0x0F    ; high byte already set
B1 06             mov  cl, 6       ; high byte already 0
               DrawCross:
B2 0D             mov  dl, 13      ; high byte already 0
               DrawCrossInner:
CD 10             int  0x10        ; plot CX, DX
87 D1             xchg dx, cx
CD 10             int  0x10        ; plot DX, CX
87 D1             xchg dx, cx
42                inc  dx
80 FA 12          cmp  dl, 13+6
75 F2             jne  DrawCrossInner
41                inc  cx
80 F9 19          cmp  cl, 6+(32-6-6)
75 EA             jne  DrawCross

C3                ret

Kode di atas dirancang untuk dirakit sebagai file COM dan kemudian dijalankan di bawah DOS. Ini memanggil layanan video ROM BIOS untuk memplot piksel masing-masing bendera, membentuk representasi 32x32 dari bendera Swiss di sudut kiri atas layar.

Kode ini mengasumsikan bahwa mode video sudah diatur ke mode 0x13, yang juga berarti bahwa itu memerlukan tampilan VGA. Mode video lain dapat digunakan, tetapi membutuhkan VGA memberi Anda dua hal: (1) piksel persegi, dan (2) palet default yang mencakup 100% benar merah ( 0xFF0000) (artinya Anda tidak perlu membuang byte mengubah palet warna). Sebelum menjalankan program ini, Anda perlu mengalihkan tampilan ke mode 0x13; hanya kode yang perlu Anda lakukan:

mov  ax, 0x13
int  0x10

Kode tidak membuat asumsi lain, dan harus berjalan pada perangkat keras apa pun yang kompatibel dengan x86 di bawah sistem operasi yang kompatibel dengan DOS.

Namun, program berakhir segera setelah menggambar bendera, sehingga DOS prompt biasanya akan dicetak ulang di sudut kiri atas layar, menutupi beberapa baris atas bendera. Oleh karena itu, jika Anda ingin mengagumi output yang sebenarnya, Anda harus menggantung / menjeda sistem sebelum RETmenyala. Berikut screenshot dari tampilannya, berjalan di mesin virtual FreeDOS:

Dimungkinkan untuk menurunkan ini lebih jauh dengan menulis data piksel langsung ke buffer video, terutama karena saya sudah mengasumsikan mode 0x13. Saya belum mencobanya. INT 0x10sudah merupakan instruksi yang cukup singkat, tetapi jika saya dapat menggunakan instruksi satu byte string untuk menulis data pixel langsung ke memori, maka itu dapat menghasilkan penghematan kode yang signifikan.

MATL , 29 byte

2Y66t&Y"OJQht3$)6thYaQK7hBoYG

Cobalah di MATL Online!

Penjelasan

2Y6     % Push predefined literal: 3×3 matrix [0 1 0; 1 1 1; 0 1 0]
6t&Y"   % Repeat each entry 6 times in the two dimensions. Gives an 18×18 matrix
OJQh    % Push [0 1j+1]. Used as an index, this means [0 1 ... end+1]. Indexing
        % is 1-based and modular, so 0 is the same as end
t3$)    % Apply that index in the two dimensions. This extends by 1 entry in 
        % each dimension, so that the arms have length 7. Gives a 20×20 matrix
6thYa   % Pad with 6 zeros in the two dimensions. Gives a 32×32 matrix
Q       % Add 1. The matrix now contains values 1 (will become red) and 2 (white)
K7hBo   % Convert array [4 7] to binary. Gives [1 0 0; 1 1 1], to be used as
        % colormap. First row is red, second is white
YG      % Show image using colormap

Java 8, 246 + 42 = 288 byte

Berkat @ Harun untuk -64 byte.
-4 byte dengan mengeluarkan file atanpa ekstensi.

import java.awt.*;import java.awt.image.*;
x->{BufferedImage i=new BufferedImage(32,32,1);Graphics g=i.getGraphics();g.setColor(Color.RED);g.fillRect(0,0,32,32);g.setColor(Color.WHITE);g.fillRect(13,6,6,20);g.fillRect(6,13,20,6);javax.imageio.ImageIO.write(i,"png",new java.io.File("a"));}

Ekspresi lamba yang dapat ditugaskan ke metode antarmuka fungsional yang melempar pengecualian. Membuat file gambar bernama a(file gambar) di direktori yang menjalankan file ini.

Kode sekitar yang digunakan untuk menjalankannya: Coba online!

Tidak disatukan

x->{
    BufferedImage i=new BufferedImage(32,32,1);
    Graphics g=i.getGraphics();
    g.setColor(Color.RED);
    g.fillRect(0,0,32,32);
    g.setColor(Color.WHITE);
    g.fillRect(13,6,6,20);
    g.fillRect(6,13,20,6);
    javax.imageio.ImageIO.write(i,"png",new java.io.File("a"));
}

Hasil

Kisi disediakan oleh pratinjau gambar IntelliJ IDEA (tampaknya).

Excel VBA, _{86 85} 79 Bytes

Kode

Anonymous VBE fungsi segera jendela yang tidak mengambil input dan output bendera Swiss ke kisaran [A1:F32]dari ActiveSheetobjek. Ini bekerja dengan terlebih dahulu membuat sel-sel persegi, lalu menggambar daerah merah dan akhirnya menggambar di salib putih.

Cells.RowHeight=48:[A1:AF32].Interior.Color=255:[G14:Z19,N7:S26].Interior.Color=-1

^{Perhatikan bahwa pengaturan yang menghapus langkah mewarnai "tanda silang" dari bendera Swiss setelah meletakkan latar belakang merah sebenarnya lebih panjang dari konfigurasi di atas, karena mereka memerlukan setidaknya 16 alamat sel, yang berkoordinasi dengan 8 wilayah berbeda dari bendera}

-1 Byte terima kasih kepada @ Greedo untuk RowHeight=48lebihColumnWidth=2

-6 Bytes terima kasih kepada @ Greedo sebagai -1gantinyargbWhite

Keluaran

C ++, SFML, 406 399 394 byte

-2 bytes berkat pdpi
-10 bytes berkat Zacharý

SFML (Perpustakaan Multimedia Sederhana dan Cepat) adalah perpustakaan C ++ yang ditulis untuk memudahkan pengembangan game video dan program multimedia

Kode :

#include<SFML\Graphics.hpp>
using namespace sf;int main(){for(RenderWindow t(VideoMode(128,128),"");t.isOpen();){t.clear();RectangleShape r({128.f,128.f});r.setFillColor(Color::Red);t.draw(r);r.setFillColor(Color::White);r.setPosition({24.f,52.f});r.setSize({80.f,24.f});t.draw(r);r.rotate(90);r.setPosition({76.f,24.f});t.draw(r);t.display();for(Event e;t.pollEvent(e);)if(!e.type)t.close();}}

Bendera ditampilkan di jendela 128x128. OS Anda harus dapat menampilkan jendela 128x128 (Win8.1 saya tidak dapat ditampilkan dengan lebar lebih kecil)

PERINGATAN : Anda mungkin ingin menambahkan 2 baris kode ini:, t.setFramerateLimit(60);t.setVerticalSyncEnabled(true);sehingga CPU Anda tidak akan panas saat Anda menjalankan kode. Saya tidak memasukkannya ke dalam kode asli karena alasan bermain golf.

Braindraw, 227 byte (Tidak bersaing) (Diperbarui untuk benar-benar berfungsi)

Versi tidak digabungkan (241 byte)

r<<^++++++++[-^++++v]^[->>[>]>++++++++[-<++++>]<[<]<]>>[[-vv[v]-[^]^]>]vv<[<]>>>>>>>>>>>>>>vvvvvvg<<^^++++++[->>[>]>+++++[-<++++>]<[<]<]>>[[-vv[v]b-g-[^]^]>]<vv[<]><<<<<<<vvvvvvv<<^^++++++[-vv[v]++++++++++++++[^]^]vv[[->>[>]b[+]-g[+]-[<]<]v]

Versi golf ringan (227 byte)

r<<^++++++++[-^++++v]^[->>[>]>++++++++[-<++++>]<[<]<]>>[[-vv[v]-[^]^]>]vv<[<]g>>>>>>>>>>>>vvvv++++++[->>[>]>+++++[-<++++>]<[<]<]>>[[-vv[v]b-g-[^]^]>]<vv[<]<<<<<<vvvvv<<++++++[-vv[v]++++++++++++++[^]^]vv[[->>[>]b[+]-g[+]-[<]<]v]

Braindraw adalah bahasa pemrograman desain saya sendiri. Pada pukul 3:08 malam hari ini, saya memiliki juru bahasa yang berfungsi dan telah memeriksa bahwa program berjalan dengan benar. Namun, juru bahasa tidak ada sebelum kompetisi ini dimulai, jadi saya tidak bersaing.

Braindraw sama dengan Brainf ***, kecuali ia beroperasi pada tiga array dua dimensi, bukan satu array satu dimensi. Array ini disebut r, g, dan b, dan bertindak sebagai saluran warna merah hijau dan biru. Operator r memindahkan pointer ke saluran merah, dll. Naik adalah ^, turun adalah v.

TI-BASIC (TI-84 Plus C (S) E saja), 58 byte

:For(A,0,31
:For(B,0,31
:Pxl-On(A,B,RED
:End
:End
:For(A,6,25
:For(B,13,18
:Pxl-Off(A,B
:Pxl-Off(B,A
:End
:End

Mathematica, 83 byte

R=Rectangle;Graphics[{Red,{0,0}~R~{32,32},White,{6,13}~R~{26,19},{13,6}~R~{19,26}}]

berikutnya hanya dari @ ASCII-saja (saya pikir itu hanya lelucon tapi berhasil!)

Mathematica, 23 byte

"CH"~CountryData~"Flag"

-10 byte dari @Jonathan Frech

HTML + CSS, 15 + 117 byte = 132 byte

Menggunakan pembungkus flexbox dengan inset box-shadow.

b{display:flex;box-shadow:red 0 0 0 6px inset;padding:2px;width:28px;flex-wrap:wrap}a{border:solid red 4px;margin:3px

<b><a><a><a><a>

HTML + CSS, 18 + 139 137 122 byte = 140 byte

Jawaban sebelumnya menggunakan borderdan pembungkus flexbox perantara dengan negatif margin.

i,b,a{display:inline-flex}i{border:solid red 6px}b{margin:-4px;width:28px;flex-wrap:wrap}a{border:solid red 4px;margin:3px

<i><b><a><a><a><a>

GraphicsMagick (?), 96 byte

gm convert -size 32x32 xc:red -fill #fff -draw "rectangle 13,6 18,25 rectangle 6,13 25,18" 1.bmp

Tidak yakin bagaimana bermain golf dengan GM (haruskah ini dianggap sebagai bahasa?). Juga tidak yakin bagaimana cara menghitung byte di sini ...

Dengan menginstal GM, ketik kode yang diberikan di windows cmd, Anda akan mendapatkan gambar dengan nama 1.bmp. Anda mungkin ingin mengubah penawaran ganda menjadi penawaran tunggal jika Anda menggunakan bash (seharusnya berfungsi, tetapi saya belum menguji ini).

Berkat Digital Trauma. gunakan hanya satu -drawsimpan 8 byte

JavaScript + HTML, 99 + 13 = 112 byte

Disimpan 2 byte berkat pengguna2428118
Disimpan 2 byte berkat Matheus Avellar

JSFiddle

with(c.getContext`2d`)fillStyle='red',fillRect(0,0,32,32),clearRect(6,13,20,6),clearRect(13,6,6,20)

<canvas id=c>

JavaScript Murni, 194 129 byte

JSFiddle

with(document.write`<canvas id=c>`,c.getContext`2d`)fillStyle='red',fillRect(0,0,32,32),clearRect(6,13,20,6),clearRect(13,6,6,20)

JavaScript (ES6) dalam HTML4 (?), 178 176 byte

document.write('<table cellspacing=0>'+[...Array(32)].map((_,y,p)=>p.map((_,x)=>`<td bgcolor=${x>5&&x<26&&y>12&&y<19||y>5&&y<26&&x>12&&x<19?'#fff':'red'}>`).join``).join`<tr>`)

Iya! Kita tidak perlu <canvas>atau <svg>bahkan <img>!

Berkat Justin Mariner, hemat 2 byte.

Löve2D , 139 138 Bytes

l=love g=l.graphics c=g.setColor r=g.rectangle f="fill"w=255 l.draw=loadstring"c(w,0,0)r(f,0,0,32,32)c(w,w,w)r(f,13,6,6,20)r(f,6,13,20,6)"

Disimpan satu byte berkat ThePirateBay

Tidak disatukan

function love.draw()
    love.graphics.setColor(255,0,0)
    love.graphics.rectangle("fill",0,0,32,32)
    love.graphics.setColor(255,255,255)
    love.graphics.rectangle("fill",13,6,6,20)
    love.graphics.rectangle("fill",6,13,20,6)
end

Python 3 , 190 byte

Simpan keluaran sebagai image.xpmdan buka dengan editor teks favorit Anda.

r=range;print('! XPM2\n32 32 2 1\nr c #FF0000\nw c #FFFFFF\n');d=[bytearray(b'r'*32)for _ in r(32)]
for i in r(20):
 for j in r(6):d[i+6][j+13]=d[j+13][i+6]=119
print(b'\n'.join(d).decode())

Cobalah online!

Keluaran:

! XPM2
32 32 2 1
r c #FF0000
w c #FFFFFF

rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

Perl 5 , 184 byte

Kode 176 byte + 8 untuk -Mutf8 -p.

Saya tidak sepenuhnya yakin ini seperti yang disyaratkan, ini bergantung pada input kosong yang disediakan sesuai meta post ini , yang tidak berfungsi pada TIO sehingga ia memasok baris baru (yang tidak digunakan). Output ke terminal dan terlihat seperti ini:

Proporsi harus berdasarkan skala pada satu ruang karakter menjadi dua 'piksel' vertikal.

%a=qw(R 101 W 107 A 101;97 B 91;107);$_=R.($a="32 
"x3).($b="13 W6 R13 
"x3)."6 A7▄W6 A7▄"."R6 
6 W20 "x2 ."R6 
6 B7▄W6 B7▄R6 
$b$a";s/\d+(.)/$1x$&/ge;s/\pL/[$a{$&}m/g

Cobalah online!

Anda dapat melihat pratinjau output dengan menyalin dari TIO dan menempel di sini (ini menunjukkan karakter kontrol ketika melayang di atas elemen) .

GFA BASIC (Atari ST), 62 byte

Daftar yang diedit secara manual dalam format .LST. Semua baris diakhiri dengan CR, termasuk yang terakhir.

DEFFILL2
PBOX0,0,31,31
DEFFILL0
PBOX13,6,18,25
PBOX6,13,25,18

Diperluas dan dikomentari:

DEFFILL 2         ! set fill color: default system color #2 is red (&H700)
PBOX 0,0,31,31    ! draw the red square
DEFFILL 0         ! set fill color: default system color #0 is white (&H777)
PBOX 13,6,18,25   ! draw a vertical white rectangle
PBOX 6,13,25,18   ! draw a horizontal white rectangle

Keluaran

Outputnya adalah 32x32.

NB: Ini memang menggunakan warna 'putih', meskipun terlihat abu-abu pada emulator (dan pada hal yang sebenarnya juga, kecuali jika Anda mengubah kecerahannya cukup tinggi).

R, 171 140 byte.

x = rep(c(6,13,19,26,19,13),e=2)
l=c(0,32)
par(bg="red",mar=0*1:4)
plot(0,0,'n',l,l,xaxs="i",yaxs="i")
polygon(x,c(x,x)[4:15],c="white",b=0)

(agak) tidak berbulu:

x <- rep(c(6,13,19,26,19,13),each=2)
y <- c(x,x)[4:15] # index by 3 positions
par(bg="red",mar=c(0,0,0,0)) # prepare the plot space
plot(0,type='n', xaxs="i",yaxs="i",xlim=c(0,32),ylim=c(0,32))
polygon(x,y,col="white",border=0)

Terima kasih kepada @gregor karena telah menghemat beberapa byte

Menjalankannya!

Oktaf, 105 byte, 73 byte

_{Catatan: umpan baris ditambahkan untuk kejelasan, tidak termasuk dalam jumlah byte}

x(32,32,3)=0;
x(:,:,1)=1;
x(7:26,14:19,:)=1;
x(14:19,7:26,:)=1;
imshow(x*255)

Sunting : terima kasih kepada flawr karena telah menghemat banyak byte!

Ini hasilnya di octave-online.net, terima kasih kepada sanchis

GIF, 97 Bytes

GIF87a    ð  ÿ  ÿÿÿ,         @„©Ëí£œ´Ú;ƒÞXmÞ!ŸŠcyŒj¨,àZê<Cô
:8nïtï‹é‚BJ1tì$1ËKSvb=_ÔªõŠe  ;

Murah dan byte-berat, tetapi sepadan.

Sunting: Beberapa karakter tidak ada dalam kode di atas, ini adalah pastebin untuk hexdump GIF.

EDIT: dikompresi hingga 97 byte dengan alat online.

HTML + JavaScript (ES6), 13 + 112 = 125 byte

C=c.getContext`2d`
C[s='fillStyle']='red'
C[r='fillRect'](0,0,32,32)
C[s]='#fff'
C[r](6,13,20,6)
C[r](13,6,6,20)

<canvas id=c>

HTML + JavaScript (ES6), 13 + 114 = 127 byte

with(c.getContext`2d`)fillStyle='red',fillRect(0,0,32,32),fillStyle='#fff',fillRect(6,13,20,6),fillRect(13,6,6,20)

<canvas id=c>

C # 265/266 209 byte

 using System;using c=System.Console;class P{static void Main(){for(int i=0,j;i<32;i++){for(j=0;j<32;j++){if((6<i&&i<26&&j>13&&j<19)||(6<j&&j<26&&i>13&&i<19))c.BackgroundColor=ConsoleColor.White;else c.BackgroundColor=ConsoleColor.Red;c.Write(" ");}c.WriteLine();}}}     

Saya menulis karakter "spasi" ke konsol sambil mengubah Warna Latar Belakang. Tetapi jika Anda menganggapnya terlalu tinggi dan Anda menghitung satu karakter sebagai 8 x 16 piksel, Anda cukup menggandakan nilai di dekat "j" seperti ini (+ 1 byte dan + c.ReadKey();jadi berhenti):

  using System;using c=System.Console;class P{static void Main(){for(int i=0,j;i<32;i++){for(j=0;j<64;j++){if((6<i&&i<26&&j>26&&j<38)||(12<j&&j<52&&i>13&&i<19))c.BackgroundColor=ConsoleColor.White;else c.BackgroundColor=ConsoleColor.Red;c.Write(" ");}c.WriteLine();} c.ReadKey(); }}     

56 byte disimpan berkat TheLethalCoder

 namespace System{using static Console;class P{static void Main(){for(int i=0,j;i<32;i++,WriteLine())for(j=0;j<32;Write(""))BackgroundColor=(ConsoleColor)((6<i&i<26&j>13&j<19)|(j++<26&i>13&i<19&6<j​)?15:12);}}}

Tikz, 145 143 byte

\documentclass[tikz]{standalone}\begin{document}\tikz{\def~{)rectangle(}\fill[red](,~33,33);\fill[white](7,14~27,20)(14,7~20,27)}\end{document}

Ini dia "ungolfed"

\documentclass[tikz]{standalone}
\begin{document}
\tikz{
\def~{)rectangle(}
  \fill[red](,~33,33);
  \fill[white](7,14~27,20)(14,7~20,27)
}\end{document}

Ini dia ungolfed sedikit lagi

\documentclass[tikz]{standalone}
\begin{document}
\tikz{
  \fill[red](1,1)rectangle(33,33);
  \fill[white](7,14)rectangle(27,20)(14,7)rectangle(20,27)
}\end{document}

Ini membuat 3 persegi panjang menjadi merah besar dan dua putih kecil untuk plus.

Begini tampilannya. Itu tidak benar-benar terlihat berbeda dari yang lain.

R, 109 byte

par(mar=0*1:4,bg=2,xaxs="i",yaxs="i")
frame()
rect(a<-c(6,13)/32,rev(a),b<-c(26,19)/32,rev(b),c="white",b=NA)

Penggunaan frameuntuk menghindari pengaturan plot, tetapi wilayah plot standar adalah pada interval [0,1], bukan [0,32]. Juga menggunakan fakta yang rectvektor. Ukuran standar jendela plot adalah 7in x 7in. Ini output sebagai berikut:

R, 125 byte

png()
par(mar=0*1:4,bg=2,xaxs="i",yaxs="i")
frame()
rect(a<-c(6,13)/32,rev(a),b<-c(26,19)/32,rev(b),c="white",b=NA)
dev.off()

Default untuk pngadalah kuadrat 480x480 piksel. Output adalah file png berikut:

R, 112 byte

par(bg=2,mar=0*1:4)
plot(0:32,0:32,'n',xaxs="i",yaxs="i")
rect(c(6,13),c(13,6),c(26,19),c(19,26),c="white",b=NA)

Padahal, untuk menjamin rasio aspek, kami membutuhkan 5 byte lebih untuk total 117:

par(bg=2,mar=0*1:4)
plot(0:32,0:32,'n',xaxs="i",yaxs="i",as=1)
rect(c(6,13),c(13,6),c(26,19),c(19,26),c="white",b=NA)

Dengan banyak inspirasi dari jawaban Alex Axthelm , dan terima kasih kepada Rift karena telah menghemat beberapa byte lagi.

Postscript, 301 286 187 byte

/m{moveto}def
/s{setrgbcolor}def
/r{rlineto}def
/c{closepath fill}def
1 0 0 s
0 0 m
0 320 r
320 0 r
0 -320 r
c
1 1 1 s
130 60 m
60 0 r
0 200 r
-60 0 r
c
60 130 m
0 60 r
200 0 r
0 -60 r c

Terima kasih kepada editor anonim yang menyarankan pengurangan 99 byte!

Merah , 79 Bytes

Kode:

view[base 32x32 red draw[fill-pen white pen off box 6x13 26x19 box 13x6 19x26]]

Hasil:

Penjelasan:

view [              ; activate view engine
base 32x32 red      ; draw a 32 by 32 red box as base
 draw [             ; draw on top of the base
  fill-pen white    ; fill color is white
  pen off           ; turn off outline, alternatively could use white
  box 6x13 26x19    ; draw a horizontal rectangle, specified as 2 corners XxY
  box 13x6 19x26    ; draw vertical rectangle
]]

Bitmap, 160 byte

Berikut adalah bitmap dengan kedalaman warna 1-bit, menggunakan definisi warna 24-bit. Enam byte terakhir dari baris kedua adalah palet dan berikut ini adalah array piksel. Setiap empat byte berisi seluruh baris piksel.

42 4D A0 00 00 00 00 00 00 00 20 00 00 00 0C 00
00 00 20 00 20 00 01 00 01 00 00 00 FF FF FF FF
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 07 E0 00 00 07 E0 00
00 07 E0 00 00 07 E0 00 00 07 E0 00 00 07 E0 00
00 07 E0 00 03 FF FF C0 03 FF FF C0 03 FF FF C0
03 FF FF C0 03 FF FF C0 03 FF FF C0 00 07 E0 00
00 07 E0 00 00 07 E0 00 00 07 E0 00 00 07 E0 00
00 07 E0 00 00 07 E0 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

Saya mencoba untuk memotong nol trailing, tetapi pemirsa gambar membutuhkan cukup piksel yang ditetapkan untuk seluruh kanvas.

Python 2, 92 91 89 byte

r,w=' \0\0',' '*3
A,B=192*r,(13*r+6*w+13*r)*7
print"P6 "+"32 "*3+A+B+(6*r+20*w+6*r)*6+B+A

Output sebagai ppm biner, penggunaan:

python golf_swiss.py > swiss.ppm

Meningkatkan kedalaman warna memungkinkan saya menggunakan ruang untuk nilai maksimum

Tcl / Tk, 94

Jika berjalan pada shell interaktif, seseorang dapat menyingkat canvasdari candan gridkegri

gri [can .c -bg red -w 32 -he 32]
lmap R {{8 15 28 21} {15 8 21 28}} {.c cr r $R -f #FFF -w 0}

Jika berjalan pada shell interaktif, seseorang dapat menyingkat canvaskecan

grid [can .c -bg red -w 32 -he 32]
.c cr r 8 15 28 21 -f #FFF -w 0
.c cr r 15 8 21 28 -f #FFF -w 0

pack [canvas .c -bg red -w 32 -he 32]
.c cr r 8 15 28 21 -f #FFF -w 0
.c cr r 15 8 21 28 -f #FFF -w 0