Die Suche ergab 2167 Treffer

von #NULL
10.09.2022 08:09
Forum: Grafik & Sound - Programmierung
Thema: Glass effects - wie machen?
Antworten: 5
Zugriffe: 319

Re: Glass effects - wie machen?

Hier ist ein Thread aus dem englischen Forum: Gaussian blur in real time? In dem Video von Stargate sieht man, wie es aussieht, wenn man es mit 3D/textures/shaders macht. Ich weiß nicht ob dafür auch Beispiele gepostet wurden. Vielleicht brauchst du es ja aber gar nicht in Echtzeit, sondern nur um B...
von #NULL
28.01.2022 10:44
Forum: Anfänger
Thema: Projekt- und Programmabsturz nach Benutzung auf *.pbi ausgelagerter Prozeduren im Compilat
Antworten: 15
Zugriffe: 1341

Re: Projekt- und Programmabsturz nach Benutzung auf *.pbi ausgelagerter Prozeduren im Compilat

Bei Auskommentieren dieser Zeilen ist der Fehler weg. Das scheint mir eindeutig zu sein. Leider ist das nicht immer so. Bestimmte Fehler können sonstwo auftreten, oder auch zu einem späteren Zweitpunkt, bzw können temporär 'verschwinden'. - Du kannst es mal mit dem Purifier versuchen: ; enable puri...
von #NULL
24.01.2022 11:34
Forum: Feedback - Spiele
Thema: PurePunch Contest #4 - Snake in 20 Zeilen
Antworten: 20
Zugriffe: 4974

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Scheinbar ist ein ClearScreen() notwendig. InitKeyboard():InitSprite():Macro K(a,u,v):If KeyboardPushed(a):dx=u:dy=v: EndIf EndMacro:w=29:h=19:s=25:OpenWindowedScreen(OpenWindow(0,0,0,w*s+s,h*s+s,""),0,0, w*s+s,h*s+s):g=$FF00: Dim f(w,h):m=10:n=10: Repeat:ExamineKeyboard():K(273,0,-1) :K(2...
von #NULL
24.01.2022 11:28
Forum: Feedback - Spiele
Thema: PurePunch Contest #4 - Snake in 20 Zeilen
Antworten: 20
Zugriffe: 4974

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Code: Alles auswählen

.. While WindowEvent():Wend:Until KeyboardPushed(27)
Auch mit hex farben und dem obigen Ende sehe ich leider trotzdem nichts. Weiß nicht woran es liegt.
von #NULL
24.01.2022 10:05
Forum: Feedback - Spiele
Thema: PurePunch Contest #4 - Snake in 20 Zeilen
Antworten: 20
Zugriffe: 4974

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Für die Linux keys siehe mein code auf Seite 1:

Code: Alles auswählen

K(273,0,-1)
:K(274,0,1):K(276,-1,0):K(275,1,0)
Leider sehe ich nur einen schwarzen Bildschrim. Ich glaube unter Linux reicht es nicht, nur ein Event pro FlipBuffers zu verarbeiten.
von #NULL
11.12.2021 11:33
Forum: Anfänger
Thema: Warum kein With in Macros?
Antworten: 12
Zugriffe: 1384

Re: Warum kein With in Macros?

Es geht nicht nur um den 'Aufruf' von With in einem Macro Body. Eventuell definiert With ein temporäres Macro um halt \ mit x\ zu ersetzen. Du hättest dann also eine Macro Definition in einer Macro Definition. Ob With nun ein richtiges Macro ist oder nur bestimmte Funktionen des Compilers verwendet,...
von #NULL
24.09.2021 17:49
Forum: Grafik & Sound - Programmierung
Thema: 2D Drawing ... Bug im Kopf
Antworten: 7
Zugriffe: 2581

Re: 2D Drawing ... Bug im Kopf

Du kannst bei LineXY() auch dem Startpunkt einen Radius mit draufgeben, z.B. 0.5 mal deinen vollen Radius, dann zeichnet er von der Hälfte bis außen (1.0*Radius). Genauso kannst du den End-Radius auch verringern, z.B. (0.75*Radius). EnableExplicit Define ww, wh, style, win, canvas, event, quit ww=80...
von #NULL
21.08.2021 13:47
Forum: Anfänger
Thema: Was bedeutet die Meldung "unbeendete Bedingung"
Antworten: 11
Zugriffe: 1462

Re: Was bedeutet die Meldung "unbeendete Bedingung"

Stimmt, ein offenes Else erzeugt ebenfalls diesen Fehler, wobei ein offenes If oder ElseIf aber einen 'Syntax Error' erzeugen.
von #NULL
20.08.2021 08:02
Forum: Anfänger
Thema: Was bedeutet die Meldung "unbeendete Bedingung"
Antworten: 11
Zugriffe: 1462

Re: Was bedeutet die Meldung "unbeendete Bedingung"

Ich hab doch gesagt was du machen kannst. Setzte ein EndSelect am Ende des Quellcodes. Wenn das dann wieder compiliert, dann weißt du, dass es ein offenes Select/Case ist.
von #NULL
19.08.2021 13:21
Forum: Anfänger
Thema: Was bedeutet die Meldung "unbeendete Bedingung"
Antworten: 11
Zugriffe: 1462

Re: Was bedeutet die Meldung "unbeendete Bedingung"

Vielleicht ein kaputtes Select statement. ;EndSelect ; würde geben: error endselect ohne select Select 1 Case 1 End ;EndSelect ; würde den code wahrscheinlich wieder compilierbar machen Du kannst also ein EndSelect an verschiedenen Stellen im Code platzieren. Je nachdem ob du den anderen Fehler erhä...