terça-feira, 2 de janeiro de 2024

Adeus Natal, até ao próximo ano: Xmas Pattern



Respondendo a uma solicitação num grupo do Facebook, o Zé Oliveira desenvolveu um pequeno programa em BASIC criando um padrão de Natal em modo GIF.

Poderão aqui descarregar esta curiosidade.

Posted by at
Labels: ,

2 comentários:

  1. antiseptic3/1/24 02:37

    there are no less code samples on vccc2023 =]

    ResponderEliminar
    Respostas
    1. Ze Oliveira3/1/24 10:22

      Here is the surprise version:

      10 BORDER 0: PAPER 0: INK 7: CLS
      15 DEF FN d(a,b,c,d)=ABS (a-c)+ABS (b-d)
      20 LET i=3+6*INT (RND*3)
      25 LET j=3+6*INT (RND*3)
      40 LET g=-3+INT (RND*7)
      45 LET h=-3+INT (RND*7)
      50 LET l=i+g: LET c=j+h
      60 IF FN d(i,j,l,c)=3 THEN PRINT AT l,c; INK 1+5*RND;"*";
      80 GO TO 20

      Eliminar

Subscrever: Enviar feedback (Atom)