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 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
     
    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 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 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
     

    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
     
    @ 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 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
     
    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
     

    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
     
    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ł :-)