Grafik ohne externe Dateien aus einer DataSection lesen

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Antworten
Benutzeravatar
AndyX
Beiträge: 1272
Registriert: 17.12.2004 20:10
Wohnort: Niederösterreich
Kontaktdaten:
Kontaktdaten von AndyX

Beitrag von AndyX »

Aber ide Konstanten werden ja nirgends verwendet...

Mfg,
AndyX
Nach oben
Leo
Beiträge: 420
Registriert: 26.10.2004 18:26

Beitrag von Leo »

AndyX hat geschrieben:Aber ide Konstanten werden ja nirgends verwendet...

Mfg,
AndyX
Ja, ich hab sie dann doch nich gebraucht :mrgreen:

Is ja gut ich editier sie rauß :D :D
Nach oben
Benutzeravatar
AndyX
Beiträge: 1272
Registriert: 17.12.2004 20:10
Wohnort: Niederösterreich
Kontaktdaten:
Kontaktdaten von AndyX

Beitrag von AndyX »

Danke. :mrgreen: Ich hab schon ur viel Farben. :D

Mfg,
AndyX
Nach oben
Benutzeravatar
AndyX
Beiträge: 1272
Registriert: 17.12.2004 20:10
Wohnort: Niederösterreich
Kontaktdaten:
Kontaktdaten von AndyX

Beitrag von AndyX »

Code: Alles auswählen

        ;Farben müssen noch erweitert werden...    COLORS ### COLORS ### COLORS ### COLORS ### TABELLE
        
                                                                                                                   ;STANDARD  FARBEN
        
        Case 0 : Color = RGB(0,0,0)       ;Black
        Case 1 : Color = RGB(0,0,255)     ;BlueBright
        Case 2 : Color = RGB(0,255,0)     ;GreenBright
        Case 3 : Color = RGB(255,0,0)     ;RedBright
        Case 4 : Color = RGB(128,128,128) ;Grey50
        Case 5 : Color = RGB(255,255,0);YellowBright
        Case 6 : Color = RGB(255,128,0);OrangeBright
          
                                                                                                                    ;BLAU  FARBEN
          
        Case 7 : Color = RGB(240,248,255);AliceBlue
        Case 8 : Color = RGB(138,43,226);BlueViolet
        Case 9 : Color = RGB(95,158,160);CadetBlueDark
        Case 10 : Color = RGB(152,245,255);CadetBlueLight
        Case 11 : Color = RGB(122,197,205);CadetBlueMedium
        Case 12 : Color = RGB(100,149,237);CornflowerBlue
        Case 13 : Color = RGB(72,61,139);DarkSlateBlue
        Case 14 : Color = RGB(0,206,109);DarkTurquoise
        Case 15 : Color = RGB(0,191,255);DeepSkyBlue
        Case 16 : Color = RGB(0,154,205);MediumDarkSkyBlue
        Case 17 : Color = RGB(0,104,139);DarkSkyBlue
        Case 18 : Color = RGB(45,78,139);DodgerBlue
        Case 19 : Color = RGB(173,216,230);LightBlue
        Case 20 : Color = RGB(104,131,139);DarkLightBlue
        Case 21 : Color = RGB(224,255,255);LightCyan
        Case 22 : Color = RGB(133,206,250);LightSkyBlue
        Case 23 : Color = RGB(132,112,255);LightSlateBlue
        Case 24 : Color = RGB(176,196,222);LightSteelBlue
        Case 25 : Color = RGB(110,123,139);DarkSteelBlue
        Case 26 : Color = RGB(102,205,170);MediumAquamarine
        Case 27 : Color = RGB(0,0,205);MediumBlue
        Case 28 : Color = RGB(123,104,238);MediumSlateBlue
        Case 29 : Color = RGB(72,209,204);MediumTurquoise
        Case 30 : Color = RGB(25,25,112);MidnightBlue
        Case 31 : Color = RGB(187,255,255);PaleTurquoise
        Case 32 : Color = RGB(150,205,205);MediumPaleTurquoise
        Case 33 : Color = RGB(102,139,139);DarkPaleTurquoise
        Case 34 : Color = RGB(65,105,225);RoyalBlue
        Case 35 : Color = RGB(39,64,139);DarkRoyalBlue
        Case 36 : Color = RGB(135,206,235);SkyBlue
        Case 37 : Color = RGB(74,112,139);DarkedSkyBlue
        Case 38 : Color = RGB(106,90,205);SlateBlue
        Case 39 : Color = RGB(0,0,128);NavyBlue
        Case 40 : Color = RGB(71,60,139);DarkedSlateBlue
        Case 41 : Color = RGB(99,184,255);SteelBlue
        Case 42 : Color = RGB(128,255,212);Aquamarine
        Case 43 : Color = RGB(69,139,116);DarkAquamarine
        Case 44 : Color = RGB(230,245,245);Azure
        Case 45 : Color = RGB(193,205,205);DarkAzure
        Case 46 : Color = RGB(0,0,120);DarkBlue
        Case 47 : Color = RGB(0,255,255);Cyan
        Case 48 : Color = RGB(0,205,205);DarkCyan
        Case 49 : Color = RGB(64,224,208);Turquoise
        Case 50 : Color = RGB(0,134,139);DarkedTurquoise
          
                                                                                                                    ;BRAUN  FARBEN
          
        Case 51 : Color = RGB(255,193,193);RosyBrown
        Case 52 : Color = RGB(205,155,155);DeepRosyBrown
        Case 53 : Color = RGB(139,105,105);DarkRosyBrown
        Case 54 : Color = RGB(139,69,19);SaddleBrown
        Case 55 : Color = RGB(244,164,96);SandyBrown
        Case 56 : Color = RGB(245,245,220);Beige
        Case 57 : Color = RGB(165,42,42);Brown
        Case 58 : Color = RGB(139,35,35);MediumBrown
        Case 59 : Color = RGB(222,184,135);Burlywood
        Case 60 : Color = RGB(255,211,150);BrightBurlywood
        Case 61 : Color = RGB(139,115,85);DarkBurlywood
        Case 62 : Color = RGB(205,133,63);Peru
        Case 63 : Color = RGB(210,180,140);Tan
        Case 64 : Color = RGB(255,165,79);LightTan
        Case 65 : Color = RGB(205,133,63);DarkTan
          
                                                                                                                    ;GRAU  FARBEN
          
        Case 66 : Color = RGB(35,35,35);VeryMuchDarkGrey
        Case 67 : Color = RGB(55,55,55);LotsOfDarkGrey
        Case 68 : Color = RGB(85,85,85);VeryDarkGrey
        Case 69 : Color = RGB(105,105,105);DarkGrey
        Case 70 : Color = RGB(140,140,140);MediumGrey
        Case 71 : Color = RGB(180,180,180);LightGrey
        Case 72 : Color = RGB(220,220,220);BirhgtGrey
        Case 73 : Color = RGB(240,240,240);VeryBrightGrey
        Case 74 : Color = RGB(255,255,255);White
          
                                                                                                          ;GRÜN  FARBEN
          
        Case 75 : Color = RGB(0,100,0);DarkGreen
        Case 76 : Color = RGB(189,183,107);DarkKhaki
        Case 77 : Color = RGB(85,107,47);DarkOliveGreen
        Case 78 : Color = RGB(188,238,104);LightOliveGreen
        Case 79 : Color = RGB(162,205,90);DeepOliveGreen
        Case 80 : Color = RGB(143,188,143);DarkSeaGreen
        Case 81 : Color = RGB(193,255,193);LightSeaGreen
        Case 82 : Color = RGB(34,139,34);ForestGreen
        Case 83 : Color = RGB(173,255,47);GreenYellow
        Case 84 : Color = RGB(124,252,0);LawnGreen
        Case 85 : Color = RGB(50,205,50);LimeGreen
        Case 86 : Color = RGB(0,250,154);MediumSpringGreen
        Case 87 : Color = RGB(240,250,245);MintCream
        Case 88 : Color = RGB(107,142,35);OliveDrab
        Case 89 : Color = RGB(192,255,62);OliveDrabLight
        Case 90 : Color = RGB(152,251,152);PaleGreen
        Case 91 : Color = RGB(144,238,144);PaleGreenDeep
        Case 92 : Color = RGB(84,139,84);PaleGreenDark
        Case 93 : Color = RGB(46,139,87);SeaGreen
        Case 94 : Color = RGB(84,255,159);SeaGreenBright
        Case 95 : Color = RGB(0,255,127);SpringGreen
        Case 96 : Color = RGB(127,255,0);Chartreuse
        Case 97 : Color = RGB(69,139,0);DarkChartreuse
        Case 98 : Color = RGB(0,200,0);MediumGree
        Case 99 : Color = RGB(0,140,0);DeepGreen
        Case 100 : Color = RGB(240,230,140);Khaki
        Case 101 : Color = RGB(140,134,78);DarkKhaki
          
                                                                                                                              ;ORANGE  FARBEN
          
          
          
                                                                                                                              ;ROT  FARBEN
          
          
          
                                                                                                                              ;VIOLETT  FARBEN
          
          
          
                                                                                                                              ;WEIß  FARBEN
          
          
          
                                                                                                                              ;GELB  FARBEN
          
          ;Farben müssen noch erweitert werden...    COLORS ### COLORS ### COLORS ### COLORS ### TABELLE
Boah das war Arbeit... Ich machs aber noch fertig :mrgreen:

Die Tabelle gibt´s da: http://www.uni-magdeburg.de/counter/rgb.txt.shtml#Black

Mfg,
AndyX
Nach oben
Benutzeravatar
125
Beiträge: 1322
Registriert: 19.09.2004 16:52
Wohnort: Neu Wulmstorf (Hamburg)
Kontaktdaten:
Kontaktdaten von 125

Beitrag von 125 »

bräuchte man dann nurnoch sone Art Paint das dan den Data Include erstellt :) :D
Nach oben
CNESM
Beiträge: 311
Registriert: 29.08.2004 15:16
Kontaktdaten:
Kontaktdaten von CNESM

Beitrag von CNESM »

Hi,

das ist ein super Beispiel.

hab sowas mal für Profan gesehen. Da konnte man mittels einens Programms Bilder einladen und in so ein Codezeugs umwandeln. Das ganze wurde dann ins programm eingebunden und man bekam genau dieses Bild wieder angezeigt.

Wäre dioch auch was schickes für PB sowas :)
Nach oben
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

vorschlag:

nimm doch statt CASE ein Array, dass du aus DATA-zeilen einliest,
und in einer FOR-NEXT-schleife per IF abfragst...

könnte übersichtlicher sein...

@CNESM

schau mal in die Hilfe zu IncludeBinary und CatchSprite ;)
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Nach oben
Benutzeravatar
AndyX
Beiträge: 1272
Registriert: 17.12.2004 20:10
Wohnort: Niederösterreich
Kontaktdaten:
Kontaktdaten von AndyX

Beitrag von AndyX »

Hier mein MrGreen:

Code: Alles auswählen

MrGreen:
Data.l 14,14
Data.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data.l 0,0,0,0,0,9,9,9,9,9,0,0,0,0,0
Data.l 0,0,0,9,9,9,9,9,9,9,9,9,0,0,0
Data.l 0,0,9,9,0,0,9,9,9,0,0,9,9,0,0
Data.l 0,0,9,0,9,9,0,9,0,9,9,0,9,0,0
Data.l 0,9,9,9,9,9,9,9,9,9,9,9,9,9,0
Data.l 0,9,0,0,0,0,0,0,0,0,0,0,0,9,0
Data.l 0,9,0,74,74,0,74,74,74,0,74,74,0,9,0
Data.l 0,9,0,74,74,0,74,74,74,0,74,74,0,9,0
Data.l 0,9,0,74,74,0,74,74,74,0,74,74,0,9,0
Data.l 0,0,9,0,74,0,74,74,74,0,74,0,9,0,0
Data.l 0,0,9,9,0,0,74,74,74,0,0,9,9,0,0
Data.l 0,0,0,9,9,0,0,0,0,0,9,9,0,0,0
Data.l 0,0,0,0,0,9,9,9,9,9,0,0,0,0,0
Data.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Ihr braucht die Farben:

Code: Alles auswählen

0,9,74

0 : Color = RGB(0,0,0) ;Black
9 : Color = RGB(95,158,160) ;CadetBlue
74 : Color = RGB(255,255,255) ;White
:mrgreen:

Mfg,
AndyX
Nach oben
Leo
Beiträge: 420
Registriert: 26.10.2004 18:26

Beitrag von Leo »

:D

G01l, super Beispiel ^^
Nach oben
Benutzeravatar
AndyX
Beiträge: 1272
Registriert: 17.12.2004 20:10
Wohnort: Niederösterreich
Kontaktdaten:
Kontaktdaten von AndyX

Beitrag von AndyX »

Ja der MrGreen ROCKT!!! :D

Mfg,
AndyX
Nach oben
Antworten

Zurück zu „Code, Tipps und Tricks“