สัตว์ที่ก้าวร้าว!


25

อวาตาร์ Downgoat ของฉันมีคุณสมบัติที่แตกต่างหลากหลาย

อย่างไรก็ตามคุณสมบัติเหล่านี้ยังสามารถนำไปใช้กับสัตว์อื่น ๆ ได้อีกด้วย

สเปค

รับภาพสัตว์ (ในทางเทคนิคสามารถเป็นอะไรก็ได้) คุณต้องใช้คุณสมบัติ Downgoat กับมัน

พิกเซลขอบคือพิกเซลส่วนใหญ่ด้านนอกของภาพ

สีพื้นหลังถูกกำหนดให้เป็นสีที่พบมากที่สุดในพิกเซลชายแดน เมื่อสีนั้นถูกตีความว่าเป็นสี (r, g, b, a) โดยแต่ละช่องจาก [0, 256) พื้นหลังจะถูกกำหนดเป็นพื้นที่ที่ทุกช่องของพิกเซลที่กำหนด 'อยู่ภายใน 50 ของ " สีพื้นหลัง".

กระบวนการ:

  • การตั้งค่าพื้นหลังและพิกเซลโปร่งใสทั้งหมดเพื่อ#232323,RGBA(35, 35, 35, 1.00)
  • ตั้งพิกเซลทั้งหมดที่ไม่ได้เป็นพื้นหลังเพื่อ,#FC0D1BRGBA(252, 13, 27, 1.00)
  • สะท้อนภาพในแนวตั้ง
  • เพิ่มข้อความ-1ในแบบอักษร Arial ตรงกลางของรูปภาพ ความสูงรวมของข้อความควรเป็น 25% ของขนาดที่เล็กที่สุดของภาพ (เช่นmin(width, height) * 0.25)

กฎระเบียบ

  • สมมติว่าติดตั้งฟอนต์แล้ว
  • เกณฑ์ของคุณควรจะเป็น50อย่างไรก็ตามคุณสามารถใช้หมายเลขนี้เป็นอินพุตได้ คุณไม่ได้รับไบต์ที่ลดลง แต่อย่างใด
  • อ้างอิงค่าเริ่มต้น I / O ภาพของเราสำหรับคำถามใด ๆ ที่เกี่ยวข้องกับรูปแบบ I / O
  • รูปภาพจะมีขนาดอย่างน้อย 3x3 เสมอ
  • หากไม่มี "สีพิกเซลขอบ" ที่พบได้บ่อยที่สุดไม่ว่าสีพิกเซลขอบใดที่คุณใช้เป็น "สีพื้นหลัง" สีนี้จะต้องสอดคล้องกัน

ตัวอย่าง

การป้อนข้อมูล: แพะ

เอาท์พุท: Downgoat


การป้อนข้อมูล: ปลาหมึก

เอาท์พุท: Downsquid

การป้อนข้อมูล: Downgoat

เอาท์พุท: Downdowngoat


การป้อนข้อมูล: เดนนิส

เอาท์พุท: Downdennis


การป้อนข้อมูล: Trichoplax

เอาท์พุท: Downtrichoplax


ตัวอย่างเพิ่มเติม?

มีการใช้งานออนไลน์ที่นี่: vihan.org/p/downgoatify/#50


นี่คือสั้นที่สุดในหน่วยไบต์ โชคดี!


6
-1 กรณีทดสอบครั้งแรกไม่ใช่สัตว์ -_-
Geobits

10
กรณีทดสอบ-1ˢᵗไม่ใช่สัตว์อย่างใดอย่างหนึ่ง
Adám

8
ไม่ใช่แฟนพันธุ์แท้ของเดนนิสเดนนิส
downrep_nation

1
คุณสามารถขจัดความกังวลเกี่ยวกับการเป็นสัตว์โดยการเปลี่ยน "สัตว์" เป็น "ภาพแทนตัว" ในชื่อและตลอดคำถาม
Glenn Randers-Pehrson

4
จุดบังคับให้ใช้แบบอักษรคืออะไร สิ่งเดียวที่ทำได้คือลงโทษภาษาที่การเปลี่ยนแบบอักษรใช้เวลามากขึ้น
Fatalize

คำตอบ:


9

ImageMagick 7.0.3 + bash + sed, 379 ไบต์

M=magick K=\#232323 P='-chop x%[fx:u[0].h-2]-0+1'
$M $1 -depth 8 ppm:W;$M W $P T;$M W -rotate 90 -shave 1x $P L
C=`$M T L +append -statistic mode +0 txt:-|sed -e "1d;s/.*#/#/;s/ .*//;q"`
$M W -background $K -flatten -fill $K -fuzz 20% -opaque $C +fuzz -fill \#FC0D1B +opaque $K -flip -pointsize %[fx:.282*min\(u[0].w,u[0].h\)] -fill white -draw 'gravity center text 0,0 "-1"' x:

Ungolfed

# Make aliases for things we'll use repeatedly
M=magick K=\#232323 P='-chop x%[fx:u[0].h-2]-0+1'

# Copy the input file to a PPM file
$M $1 -depth 8 ppm:W

# Extract the border pixels into "T" (top and bottom), and "L" (left and right)
# PPM files, removing the ends from the "L" because they were already counted 
$M W $P T;$M W -rotate 90 -shave 1x $P L

# Put the borders into one strip and reduce to a txt image of the "mode"
# color on stdout, then convert the first pixel to hex format string "C"
C=`$M T L +append -statistic mode +0 txt:-|sed -e "1d;s/.*#/#/;s/ .*//;q"`

# Make background "#232323" and compose transparent pixels against it
# Convert any pixels with color within "fuzz" distance of background to #232323
# Convert any remaining pixels to "#FC0D1B"
# Flip the image vertically
# Determine pointsize for text, 1/5 of min(w,h). 1 pixel == 1.44 points
# Draw text "-1" centered on the image
# Display the result to an X window

$M W -background $K -flatten                     \
-fill $K -fuzz 20% -opaque $C                    \
+fuzz -fill \#FC0D1B +opaque $K                  \
-flip                                            \
-pointsize %[fx:.282*min\(u[0].w,u[0].h\)]       \
-fill white -draw 'gravity center text 0,0 "-1"' \
x:

อินพุตและเอาต์พุต

ฉันได้รับคำตอบที่แตกต่างกันมากสำหรับภาพเดนนิสอาจเป็นเพราะ "-fuzz" ของ ImageMagick คำนวณทรงกลมที่มีเส้นผ่านศูนย์กลางของหน่วย 2N ในพิกัด rgb ในขณะที่กฎเรียกการคำนวณลูกบาศก์ที่มีด้าน 101 หน่วยในพิกัด rgb การเปลี่ยนแปลง "fuzz" ช่วยบ้าง นอกจากนี้สิ่งประดิษฐ์ JPEG ในต้นฉบับดูเหมือนจะรบกวนการแปลง


ฉันไม่ใช่ familliar กับ imageMagick ดังนั้นนี่อาจไม่ได้รับการศึกษามากนัก แต่คุณสามารถแทนที่ # 0000 color color ด้วย # 0 ได้ไหม?
tuskiomi

ไม่ # 0 ไม่ทำงาน ทั้ง # 000 ก็ไม่ได้เพราะสีดำขุ่นและเราต้องการสีดำใสที่นี่
Glenn Randers-Pehrson

ข้อผิดพลาดที่ฉันกล่าวถึง# ImageMagick 7.0.1 through 7.0.3-7 fails hereได้รับการรายงานไปยังนักพัฒนา IM และได้รับการแก้ไขในรุ่น 7.0.3-8
Glenn Randers-Pehrson

10

C, Windows 32 บิต, 987 ไบต์

#include <windows.h>
#define A CreateCompatibleDC(c)
#define F z=GetPixel(d,x,y);r=z;g=z>>8;b=z>>16
#define C(X,Y) (X<0||Y<0||X>=s[2]||Y>=s[3]||!GetPixel(e,X,Y))
#define D ((C(x-1,y)||C(x+1,y)||C(x,y-1)||C(x,y+1))&&!C(x,y))
#define E(X,Y) ((Z+X-Y)*(Z+X-Y)<2501)
main(int a,int*n){HDC c,d,e,f,w;int x,y,s[9],z,*o,m,t,Z;unsigned char r,g,b,R,G,B;c=GetDC(w=GetDesktopWindow());d=A;e=A;SelectObject(d,f=LoadImage(0,n[1],0,0,0,16));SelectObject(e,LoadImage(0,n[2],0,0,0,16));GetObject(f,24,s+1);o=LocalAlloc(64/*Fixed,ZeroInit*/,8*s[2]*s[3]);for(x=t=Z=s[1]=s[0]=0;x<s[2];x++)for(y=0;y<s[3];y++)if D{F;for(m=0;m<t&&o[m]!=z;m+=2);o[m]=z;o[m+1]++;t+=2*(m>=t);}for(x=y=1;x<t;x+=2)if(o[x]>o[y])y=x;z=o[y-1];R=z;G=z>>8;B=z>>16;for(x=0;x<s[2];x++)for(y=0;y<s[3];y++){F;SetPixel(c,x,s[3]-y-1,(C(x,y)||(E(r,R)&&E(g,G)&&E(b,B)))?0x232323:0x1B0DFC);}SelectObject(c,CreateFont(-(s[2]>>2),0,0,0,400,0,0,0,0,0,0,0,0,"Arial"));SetBkMode(c,1);SetTextColor(c,0xFFFFFF);DrawText(c,"-1",2,s,37);ReleaseDC(w,c);}
  • ไฟล์ถูกบันทึกด้วย LF เป็นบรรทัดสิ้นสุดไม่ใช่ CR + LF เพื่อบันทึกบางไบต์
  • โปรแกรมถูกเขียนในลักษณะที่คำเตือนของคอมไพเลอร์ถูกสร้างขึ้นเพื่อบันทึกไบต์เพิ่มเติม
  • ไฟล์อาจจะไม่คอมไพล์เป็นโปรแกรม 64- บิตเพราะอาเรย์ " s[]" ถูกใช้เพื่อทำการร่ายโดยปริยาย ...
  • โปรแกรมใช้เวลาสองภาพ (ชื่อไฟล์จะได้รับผ่านทางบรรทัดคำสั่ง):
    • อิมเมจแรก (อาร์กิวเมนต์บรรทัดคำสั่งแรก) คืออิมเมจ R / G / B ในรูปแบบ Windows .BMP
    • ภาพที่สองคือช่องอัลฟ่า (สีดำหมายถึง: 0%, สีอื่น ๆ หมายถึง: ไม่ใช่ 0%); ไฟล์ยังอยู่ในรูปแบบ. BMP และจะต้องมีขนาดเท่ากันหรือใหญ่กว่าภาพแรก
  • ภาพที่แสดงจะแสดงที่มุมบนซ้ายของหน้าจอ
  • ฉันไม่สามารถสืบพันธุ์เด็กผู้ชายด้วยผมสีเหลือง สีเหลืองดูเหมือนจะอยู่ไกลเกินไป (> 50) จากสีขาว!

เวอร์ชันที่ไม่ถูกปรับแต่ง:

#include <windows.h>

/*
 * Although this line costs us 32 bytes
 * Replacing "CreateCompatibleDC(c)" we'll
 * save 42 bytes in the golfed version later
 * so we save 10 bytes using this define!
 */
#define A CreateCompatibleDC(c)

/*
 * Macro: Get a pixel value at (x,y) to z
 * Also get r, g, b
 */
#define F z=GetPixel(d,x,y); \
    r=z; \
    g=z>>8; \
    b=z>>16

/*
 * Macro checking if a pixel is a
 * transparent colour or lies outside the
 * image
 */
#define C(X,Y) (X<0 || Y<0 || X>=s[2] || Y>=s[3] || !GetPixel(e,X,Y))

/*
 * Macro checking if a pixel at (x,y) is a border pixel
 */
#define D ((C(x-1,y) || C(x+1,y) || C(x,y-1) || C(x,y+1)) && !C(x,y))

/*
 * Macro checking if the difference between X and Y is less than 50
 * The variable "Z" must be type "int" and zero. It is used to
 * perform an implicit cast from "BYTE" to "int".
 */
#define E(X,Y) ((Z+X-Y)*(Z+X-Y)<2501)

/*
 * Note that the second argument is "char **",
 * not "int *".
 * We ignore resulting compiler warnings...
 */
main(int a, int * n)
{
    HDC c, d, e, f, w;
    int x, y, s[9], z, *o, m, t, Z;
    unsigned char r, g, b, R, G, B;

    /*
     * Get the HDC handle to the
     * screen (allowing us to create HDCs
     * for accessing bitmap files as well as
     * drawing directly to the screen!)
     */
    c=GetDC(w=GetDesktopWindow());
    /*
     * Create two virtual HDCs for accessing
     * the bitmap files.
     */
    d=A; /* Macro */
    e=A; /* Macro */
    /*
     * Load the two images:
     * The first argument is the image file with
     * the R/G/B channel
     * The second argument is the image file
     * containing the mask defined by the Alpha
     * channel:
     *   Black means = Alpha=0
     *   White means = Alpha>0
     *   (Any other colour means: Alpha>0)
     *
     * Note that "f" is of the type "HBITMAP",
     * not "HDC". We save 4 bytes in the golfed
     * version using HDC instead of HBITMAP and
     * compile the C file with compiler warnings
     * switched off!
     *
     * The second image should have the same size
     * as the first one. However it may be larger
     * than the first one. It must not be smaller!
     */
    SelectObject(d,f=LoadImage(0,n[1],0,0,0,16 /* 16=LR_LOADFROMFILE */));
    SelectObject(e,LoadImage(0,n[2],0,0,0,16));
    /*
     * Get the image information (size)
     */
    GetObject(f,24,s+1);
    /*
     * Search all background colours
     */
    o=LocalAlloc(64 /* Fixed, ZeroInit */,8*s[2]*s[3]);
    for(x=t=Z=s[1]=s[0]=0;x<s[2];x++)
        for(y=0;y<s[3];y++)
            if D
    {
        F; /* Macro */
        for(m=0;m<t && o[m]!=z;m+=2);
        o[m]=z;
        o[m+1]++;
        t+=2*(m>=t);
    }
    /*
     * Search the most common one
     */
    for(x=y=1;x<t;x+=2) if(o[x]>o[y]) y=x;
    z=o[y-1];
    R=z;
    G=z>>8;
    B=z>>16;
    /*
     * Draw the image directly to the screen
     */
    for(x=0;x<s[2];x++)
        for(y=0;y<s[3];y++)
    {
        F; /* Macro */
        /* C and E are macros: */
        SetPixel(c,x,s[3]-y-1,(C(x,y) ||
            (E(r,R) && E(g,G) && E(b,B)))?
            0x232323:0x1B0DFC);
    }
    /*
     * Draw the text over the image
     */
    SelectObject(c,CreateFont(-(s[2]>>2),0,0,0,400,0,0,0,0,0,0,0,0,"Arial"));
    SetBkMode(c,1 /* TRANSPARENT */);
    SetTextColor(c,0xFFFFFF);
    DrawText(c,"-1",2,s,37 /* center, vcenter, singleline */);
    /*
     * Unfortunately DrawText() won't work
     * when not doing this!
     */
    ReleaseDC(w,c);
}
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.