atarionline.pl Okulary 3D - Forum Atarum

    Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.

    • :
    • :

    Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.

      • 1:
         
        CommentAuthoradv
      • CommentTime24 Dec 2010 12:12 zmieniony
       
      Jak zrobić okulary 3D znajdziesz tutaj.

      Edit: Ważna modyfikacja: folię w lewym okularze na zmień na żółtą, a w prawym okularze na ciemno-fioletową. W przeciwnym wypadku okulary nie dadzą efektu, który chce pokazać.

      Gry, które można oglądać w okularach tak zmodyfikowanych okularach to np.:

      Blip - polecam
      Computer War,
      Problem Jasia (intro),
      Uridium,
      Warhawk (pierwsza plansza)


      Edit: W jednym z numerów TA był krótki program imitujący zamieć. Ładnie wyglądał w tych okularach. Niestety, po nastu latach nie potrafię go znaleźć w archiwum na AOL.

      Uwaga: używanie okularów powyżej 15 minut może powodować bóle głowy.
      • 2:
         
        CommentAuthorlarek
      • CommentTime24 Dec 2010 13:12
       
      Te gry są w 3D? Owszem, w okularach można je oglądać, ale efekt, to chyba żaden...
      Tu było trochę o 3D na Atari: ->link<-
      • 3:
         
        CommentAuthoradv
      • CommentTime24 Dec 2010 13:12 zmieniony
       
      Powinienem był przeglądnąć wątki - temat już jest.

      Edit: W skali 1-5 efekt oceniam na 3. Zauważyłem, że efekty widoczne są na przy scrollu, w szczególności przy pseudo paralaxie oraz spritach o kontrastującej w stosunku do tła jasności.
      • 4:
         
        CommentAuthoradv
      • CommentTime25 Dec 2010 16:12 zmieniony
       
      Wygrzebałem z szuflady u rodziców obie pary okularów, o których piszę. Czerwono-niebieskie można wyrzucić do kosza.

      Edytowałem pierwszy post.
      • 5:
         
        CommentAuthorKaz
      • CommentTime26 Dec 2010 02:12
       

      adv:

      Czerwono-niebieskie można wyrzucić do kosza.


      A to niby dlaczego? Bardzo dobrze sie sprawdzaja - na odpowiednim materiale do ogladania.

      adv:

      W jednym z numerów TA był krótki program imitujący zamieć.


      Szukales moze w archiwum TA? Kliknij w Bibliotece Atarowca na link prowadzacy do TA.
      • 6:
         
        CommentAuthoradv
      • CommentTime26 Dec 2010 10:12
       
      @ Kaz
      Bardzo dobrze sie sprawdzaja - na odpowiednim materiale do oglądania.


      Dokładnie tak (np. pisma wnętrzarskie). Jednak jeśli zrobimy je w celu oglądania gier, których tytuły wymieniłem nie zobaczy efektu.

      BTW: Jeśli ktoś ma okulary żółto-fioletowe proszę zobaczyć Blipa. Efekt jest niezły.

      Mam nadzieję, że moje spostrzeżenia będą punktem zaczepienia do jakiejś produkcji.
      • 7:
         
        CommentAuthorKaz
      • CommentTime24 Dec 2019 01:12 zmieniony
       
      No to tu masz Marcinie coś, co możesz wykorzystać do posiadanych okularów czerwono-niebieskich. Gra na ST "Wonderer". Ciekawostka jest taka, że Atari dodawało tę grę w 1988 roku do pakietu 4 programów dołączanych do ST (tryb 3D od 1:02):



      "Wanderer" is a mix between a shooter game and a card game. It was developed by Jean-Luc & Béatrice Langlois (the founders of Lankhor) and published by Pyramid Software in 1986 on the Atari ST. It was re-released by Elite in 1988 under the name "Wanderer 3D".

      00:08 Introduction
      01:02 Game in 3D Mode (need 3D glasses)
      01:34 Game in Mono Mode
      06:00 Game over

      Wanderer is set in the future where cats have become very valuable. The hero's cat has been kidnapped by someone who demands 8000 cats as ransom. Additionally, all the planets of the universe are obsessed with an poker-like card game. So the player visits planets, barters cards and plays the card game - and if a planet is satisfied with their own set, they reward the player with cats.

      Every time the player visits another planet he has to solve a straight action sequence which utilizes vector graphics for 3D glasses. Here he simply has to fly around in first person and shoot all enemy ships. Other action sequences take place in black holes.


      I jeszcze info z "Bajtek - Tylko o Atari"
      • 8:
         
        CommentAuthorpirx
      • CommentTime24 Dec 2019 11:12
       
      To 3D oparte jest o efekt Pulfricha: ->link<-

      Wystarczy, gdy jedno oko jest przyciemnione.

      Będzie działało z każdą grą, w której coś się poziomo przesuwa, najlepiej z różnymi prędkościami. Już było używane w komercyjnych grach i TV.
      • 9:
         
        CommentAuthorKaz
      • CommentTime25 Dec 2019 16:12
       

      adv:

      Edit: W jednym z numerów TA był krótki program imitujący zamieć. Ładnie wyglądał w tych okularach. Niestety, po nastu latach nie potrafię go znaleźć w archiwum na AOL.


      A to czasem nie ten? Ktoś go nieco zmodyfikował:

      opt %10101

      *-Page 0

      clock equ $12 (+2)
      ekrv equ $58 (+1)
      ktab equ $79 (+1)

      *-Page II

      dliv equ $200 (+1)
      vblkd equ $224 (+1)
      dmactl equ $22F
      dlav equ $230 (+1)
      gtictl equ $26F
      colps0 equ $2C0
      colfs0 equ $2C4
      crsin equ $2F0
      kbcd1 equ $2F2
      chbas equ $2F4
      kbcods equ $2FC

      *-I/O Rejestr

      driv equ $301
      iocb0 equ $340
      iocom equ iocb0+2
      iosta equ iocb0+3
      ioadr equ iocb0+4 (+1)
      iolen equ iocb0+8 (+1)
      iomod equ iocb0+10
      ioax2 equ iocb0+11

      *-SYSTEM

      hposp0 equ $D000 (+4)
      sizep0 equ $D008 (+4)
      colpf0 equ $D016 (+4)
      pmctl equ $D01D
      rand equ $D20A
      skctl equ $D20F
      hscrol equ $D404
      vscrol equ $D405
      pmbase equ $D407
      wsync equ $D40A
      vcount equ $D40B
      nmien equ $D40E

      ciov equ $E456
      reset equ $E474 (Warm)

      clear equ $F420
      bell equ $F556
      click equ $F983

      *-Wlasne

      byt0 equ $C0
      byt1 equ $C1
      byt2 equ $C2
      byt3 equ $C3
      byt4 equ $C4 (counter przes.poz.)

      plr equ $B000
      font equ $E000
      *---------------
      org $480

      jsr snieg

      spk lda kbcods
      cmp #$FF
      beq spk
      ldy #$FF
      sty kbcods
      tay
      lda (ktab),y
      cmp #$1B
      bne spk

      *- EXIT -

      exit lda #$40
      sta nmien
      jsr init1
      rts jmp ($0A)

      *---------------
      org $7C00

      snieg equ *

      jsr iplr * do init plr.
      jsr init
      lda #$C0
      sta nmien

      *- Glowna proc. sniegu

      loop equ *

      dec byt1

      lda clock+2
      and #1
      bne lp0

      dec byt2

      lp0 lda byt0
      sta byt3

      lp1 lda vcount
      cmp #4
      bne lp1

      ldx byt1
      ldy byt2

      lp2 lda plr,x
      sta hposp0
      lda plr+$100,y
      sta hposp0+2
      sta wsync
      inx
      iny
      lda byt0
      cmp byt3
      beq lp2

      lda #0
      sta hposp0
      sta hposp0+2

      ldx byt1 * dobudowany przeze mnie
      ldy byt2 * fragment zmieniajacy snieg
      dex * w tablicy co powoduje nie
      dey * powtarzanie sniegu
      lda rand *
      sta plr,x *
      lda rand *
      sta plr+$100,y *

      lp4 lda kbcods
      cmp #$FF
      beq loop
      rts

      *-Proc. Przer I

      przer1 equ *

      lda dlz
      cmp #$FF
      bne pr10
      lda <nap
      sta dlz
      lda >nap
      sta dlz+1

      pr10 dec byt4
      beq pr11
      lda byt4
      sta hscrol
      jmp prex

      pr11 inc dlz
      bne pr12
      inc dlz+1

      pr12 lda #8
      sta byt4
      sta hscrol
      prex inc byt0

      jmp (aprzer)

      *-proc. Przerw. DLI

      ndli equ *

      pha
      txa
      pha
      tya
      pha

      ldx flx
      ldy #4
      stx wsync

      dli0 lda fcol,x
      sta colpf0,y
      dex
      dey
      bpl dli0

      lda flx
      eor #$0D
      sta flx

      pla
      tay
      pla
      tax
      pla
      rti

      *-Init PLR

      iplr equ *

      lda #$80
      sta byt1
      lda #0
      sta byt2

      lda >plr
      sta pmbase
      ldy #2
      sty pmctl

      ldy #0
      sty sizep0
      sty sizep0+2

      ldy #$80
      sty hposp0
      ldy #$90
      sty hposp0+2

      lda #$0E
      sta colps0
      lda #$0A
      sta colps0+2

      ustaw equ *

      ldx #0
      lda #1
      pr0 sta plr+$400,x
      sta plr+$600,x
      inx
      cpx #$C0
      bne pr0

      lda #0

      pr1 sta plr+$400,x
      sta plr+$600,x
      inx
      bne pr1

      ldx #0
      pr2 lda rand
      sta plr,x
      lda rand
      sta plr+$100,x
      inx
      bne pr2
      rts

      *-Proc Init

      init equ *

      lda <nap
      sta dlz
      lda >nap
      sta dlz+1

      init1 equ *

      lda clock+2
      cmp clock+2
      beq *-2

      ldy vblkd
      lda aprzer
      sty aprzer
      sta vblkd

      ldy vblkd+1
      lda aprzer+1
      sty aprzer+1
      sta vblkd+1

      ldy dmactl
      lda fdmac
      sty fdmac
      sta dmactl

      ldy dlav
      lda andl
      sty andl
      sta dlav
      ldy dlav+1
      lda andl+1
      sty andl+1
      sta dlav+1

      ldy chbas
      lda flfnt
      sty flfnt
      sta chbas

      ldy gtictl
      lda fgtic * priorytet sniegu z polem coloru
      sty fgtic
      sta gtictl

      ldy dliv
      lda adli
      sty adli
      sta dliv

      ldy dliv+1
      lda adli+1
      sty adli+1
      sta dliv+1

      rts

      aprzer dta a(przer1)
      fdmac dta b($3A)
      andl dta a(ndl)
      flfnt dta h(font)
      fgtic dta b(2)
      adli dta a(ndli)
      fnmien dta b($40)

      flx dta b($04)

      fcol dta b($34),b($46),b($74),b($B4),b($80)
      dta b($28),b($CA),b($82),b($46),b($00)

      *-Nowy Display List

      ndl equ *

      dta b($70),b($70),b($70)
      dta b($46),a(tyt1)
      dta b($70)
      dta b($46),a(tyt2)
      dta b($70)
      dta b($47),a(tyt3)
      dta b($70)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)
      dta b($48),a(inf)

      dta b($F0),b($30)

      dta b($D7) * $40+$07+$10 ($10=pr.h)
      dlz dta a(nap)
      dta b($41),a(ndl)

      tyt1 dta d' henryk '
      tyt2 dta d' PREZENTUJE '
      tyt3 dta d' SNIEG '
      inf dta d'  JJ '
      info dta d' '

      dprg equ *

      org $8000 * ????

      nap equ *

      dta d' '
      dta d' *
      * *
      * '
      dta d'
      *
      * '
      dta d' Tutaj leci tymczasowy '
      dta d'scroll PADA PADA SNIEG'
      dta d' *
      *
      TEKST TEKST te'
      dta d'kst tekst KONTROLNY '
      dta d'TEKST kontrolny tekst'
      dta d' KONTROLNY TEKST kont'
      dta d'rolny tekst * *

      '
      dta d'ABCDEFGHIJKLMNOPQRSTUVW'
      dta d'YZ abcdefghijklmnopqrs'
      dta d'tuvwxyz 0123456789 '
      dta d'
      *
      *'
      dta d' '

      dta b($FF) * wskanik end napisu

      kpr equ *
      *-----------
      opt %110
      kon0 equ dprg
      anp equ nap
      kon1 equ kpr
      *-----------
      end
      • 10:
         
        CommentAuthorJacques
      • CommentTime25 Dec 2019 18:12
       
      Miałem takie okulary "Nuoptix 3D", efekt (Pulricha?) był świetny i widoczny nawet w Summer Games na Atari (ptaki w intrze), a w Silk Worm na Amidze to już był szał :-)