grafischer Scroll Text (StarWars o.ä.)

[Whookie]

Hier mal schnell was zusammengeklicktes ...

Ein Timer + Paintbox, das Memo dient nur als Textspeicher. Davon ausgehend kannst du sicher was eigenes machen.

[Fukiszo]

Zitat von Whookie:

Hier mal schnell was zusammengeklicktes ...

du bist mir ja lustig, habs grad mal gestartet und yeah, das ist ja wie meins nur viel besser (smooth! flickerfrei! resource friendly!)

darf ich damit meine class aufpimpen?

grüße

[Whookie]

klar doch

[Fukiszo]

Vielen Dank und wird gemacht.
Dank Selbstversuch und nachdem ich den Source von Whookie betrachtete,
war ich ja Ansatzweise auf dem richtigen Weg *freu*

Klar, pixel scrollen und nicht komplette zeile, das ist der ruckelfaktor.

Gibt es Nachteile wenn man es wie bei meinem Versuch per TImage anstelle TPaintBox darstellt?
Ich kenn mich da nicht so gut aus und würde gerne alle Blickwinkel betrachten.

Grüße

[Fukiszo]

nach etlichen selbstversuchen mich in die materie einzuarbeiten bin ich bei sowas hier gelandet.

vielleicht mag es ja jemand noch weiter verfeinern.
ist total unoptimiert und bestimmt fehlerbehaftet bis zum anschlag
cpu wird böse ausgelastet.

Delphi-Quellcode:

procedure StarWarsTrapez;
var
  xc,yc:Integer;
  orgCoord:TPoint;
  newTopEdge:Integer;
  startX,stopX:Real;
  mLeftSide:Real;
  screenZ,screenTopY:Integer;
  textY:Integer;
  mg1,mg2:Real;
  p1,r1,r2:TPoint;
  param:Real;
begin
  textY:=-30;
  mg1:=textY/(orgImg.Width/2+OrgImg.Height);
  mg2:=textY/(orgImg.Width/2);
  screenZ:=Round(newImg.Height/(mg1-mg2));
  screenTopY:=Round(mg1*screenZ);
  newTopEdge:=Round(newImg.Width*orgImg.Width/(orgImg.width/2+orgImg.Height)/2);
  mLeftSide:=(newTopEdge-newImg.Width)/2/newImg.Height;
  startX:=(newImg.Width-newTopEdge)/2;
  stopX:=newImg.Width-startX;
  p1.x:=orgImg.width div 2;
  p1.y:=textY;
  r1.x:=OrgImg.Height;
  r1.y:=0;
  r2.x:=screenZ;
  for yc:=1 to newimg.height do begin
    startX:=startX+mLeftSide;
    stopX:=stopX-mLeftSide;
    r2.y:=screenTopY-yc;
    param:=(p1.y*r2.x-p1.x*r2.y)/(r1.x*r2.y-r1.y*r2.x);
    OrgCoord.Y:=OrgImg.Height-Round(OrgImg.Height*param);
    for xc:=Round(startX) to Round(stopX) do begin
      orgCoord.x:=Round((xc-startX)/(stopx-startx)*orgImg.width);
      newImg.canvas.pixels[xc,yc]:=orgImg.canvas.pixels[orgCoord.x,orgCoord.y];
    end;
  end;
end;

momentan wird bildA zu bildB mit einem trapez effekt umgewandelt.
wie ich das mit laufschrift hinbekommen soll weiß ich noch nicht, aber ich geb nicht auf

Grüße

[Fukiszo]

Irgendwie kann ich meine Haupt-Post nicht ändern deswegen hier,
ich hab jetzt sowas wie einen "fliegenden text" basteln können,
entwickelt als vcl komponente wo auch noch an allen ecken und enden feintuning ran muss.
text kann in alle vier richtungen bewegt werden, in theorie immer zentriert
wer mag schaut mal im anhang rein.

grüße

[Fukiszo]

bei meinen übungen ist noch ein evtl interessanter effekt rausgekommen,
ich wollt in diesem side-project ürsprünglich text von links nach rechts wandern lassen,
und den mit eine art wobble effekt belegen. nunja, das "wobblen" wollte nicht so klappen,
aber durch zufall (wobble arbeit auf kompletten bild mit pfad anstelle des textes)
kam ein nett anzusehender effekt den ich nun als sinusscroller vorstelle.

diesmal ein paar mehr einfluss möglichkeiten (der scroller ist eine class aber noch im hauptsource)
ein paar vcl's lassen das window auch etwas hübscher ausschauen,

ich bin gespannt ob es gefällt.

so, nun aber zurück zu meinem starwars dingens,
möge die macht mit euch sein.

in diesem sinne

grüße