Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Coderaten
Gehe zu Seite Zurück  1, 2
 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Off-Topic-Forum
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
28398



Anmeldungsdatum: 25.04.2008
Beiträge: 1917

BeitragVerfasst am: 20.08.2009, 15:54    Titel: Antworten mit Zitat

Code:
    while ( i < n )
    {
      runcnt = FT_GET_BYTE();
      if ( runcnt & GX_PT_POINTS_ARE_WORDS )
      {
        runcnt = runcnt & GX_PT_POINT_RUN_COUNT_MASK;
        first  = points[i++] = FT_GET_USHORT();

        /* first point not included in runcount */
        for ( j = 0; j < runcnt; ++j )
          points[i++] = (FT_UShort)( first += FT_GET_USHORT() );
      }
      else
      {
        first = points[i++] = FT_GET_BYTE();

        for ( j = 0; j < runcnt; ++j )
          points[i++] = (FT_UShort)( first += FT_GET_BYTE() );
      }
    }
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
MOD
Fleißiger Referenzredakteur


Anmeldungsdatum: 10.09.2007
Beiträge: 1003

BeitragVerfasst am: 20.08.2009, 16:21    Titel: Antworten mit Zitat

@nemored: Eventuell, dass rot nicht auf rot gelegt werden darf?

@28398: Ich finde der Code sollte schon von einem selbst stammen. Dieser Code lässt sich zu leicht googlen, dann kommt man gleich zum entsprechendem Trunk.

Zitat:
/*<Function> */
/* ft_var_readpackedpoints */
/* */
/* <Description> */
/* Read a set of points to which the following deltas will apply. */
/* Points are packed with a run length encoding.*/


aus dem TrueType GX Font Variation loader vom FreeType Projekt.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
28398



Anmeldungsdatum: 25.04.2008
Beiträge: 1917

BeitragVerfasst am: 20.08.2009, 17:13    Titel: Antworten mit Zitat

Interessant, ich dachte die meisten Leute würden an sowas verzweifeln grinsen

Ganz nebenbei etwas Werbung:
JAM ist echt ein tolles Buildtool. Habs einfach in den bin-Ordner vom MinGW extrahiert, und funktioniert sofort! Außerdem sehr schnell </werbung>
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/

BeitragVerfasst am: 20.08.2009, 17:17    Titel: Antworten mit Zitat

MOD hat Folgendes geschrieben:
@nemored: Eventuell, dass rot nicht auf rot gelegt werden darf?

Ja, aber auch nicht nicht-rot auf nicht-rot (also schwarz auf schwarz). Der Abschnitt prüft in der Patience, ob in abwechselnden Farben gelegt wurde (wie z. B. aus der Harfe/Klondike/Solitaire bekannt).
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
MOD
Fleißiger Referenzredakteur


Anmeldungsdatum: 10.09.2007
Beiträge: 1003

BeitragVerfasst am: 20.08.2009, 18:16    Titel: Antworten mit Zitat

Was ist daran schwer den gesamten Code zu kopieren und bei Google einzugeben und einen der zwei Suchtreffer anzuklicken, die beide das gleiche zeigen grinsen

Naja hier ein Ausschnitt aus meinem Code:
Code:
      For k = 0 To imgh-1
         For i = IIf(rev=0,0,imgw-1) To IIf(rev=0,imgw-1,0) Step IIf(rev=0,1,-1)
            Read col
            Select Case col
               Case 1
                  PSet img,(i,k),-65281
               Case 2   
                  PSet img,(i,k),-16777216
               Case 3
                  PSet img,(i,k),-2602896
               Case 4
                  PSet img,(i,k),-487232
               Case 5
                  PSet img,(i,k),-1019744
               Case 6
                  PSet img,(i,k),-10481648
               Case 7
                  PSet img,(i,k),-5234632
               Case 8
                  PSet img,(i,k),-483112
               Case 9
                  PSet img,(i,k),-3127184
               Case 10
                  PSet img,(i,k),-1013576
               Case 11
                  PSet img,(i,k),-460552
               Case 12
                  PSet img,(i,k),-10505
               Case 13
                  PSet img,(i,k),-1
               Case 14
                  PSet img,(i,k),-518016
               Case 15
                  PSet img,(i,k),-5242840
               Case 16
                  PSet img,(i,k),-3145648
               Case 17
                  PSet img,(i,k),-470800
               Case 18
                  PSet img,(i,k),-472856
               Case 19
                  PSet img,(i,k),-8326920
               Case 20
                  PSet img,(i,k),-16738056
               Case 21
                  PSet img,(i,k),-16717576
               Case 22
                  PSet img,(i,k),-16756488
               Case 23
                  PSet img,(i,k),-2733453
               Case 24
                  PSet img,(i,k),-553795
               Case Else
                  PSet img,(i,k),col
            End Select
         Next
      Next
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 20.08.2009, 18:17    Titel: Antworten mit Zitat

Es wird ein Bild entweder gespiegelt oder normal aus DATA-Zeilen auf den Bildschirm gepixelt...
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/

BeitragVerfasst am: 21.08.2009, 12:17    Titel: Antworten mit Zitat

Da mein letztes XOR-Beispiel wohl etwas schwer war, habe ich noch einen sehr einfachen und bekannten Algorithmus; damit es wenigstens ein bisschen schwerer wird, habe ich sehr ungewöhnliche Variablenbezeichnungen genommen.
Code:
dim as integer dauer = iif(turmuhr > taschenuhr, -1, 1), undefiniert = glockenschlag(turmuhr)
for stunde as integer = turmuhr to taschenuhr step dauer
  glockenschlag(stunde) = glockenschlag(stunde + dauer)
next
glockenschlag(taschenuhr) = undefiniert

_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/

BeitragVerfasst am: 24.08.2009, 12:27    Titel: Antworten mit Zitat

Na, jetzt aber ...
Der Programmcode ist sogar schon vollkommen komplett, es fehlen nur noch die drei Variablendeklarationen turmuhr, taschenuhr und glockenschlag().
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Off-Topic-Forum Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite Zurück  1, 2
Seite 2 von 2

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz