O que você vê em um inkspot? Geração de Rorschach '[fechada]


12

Então, eu gostaria que você tentasse gerar imagens de Rorschach como na imagem abaixo:

Imagens falsas de Rorschach

Aqui está um link para mais inspiração.

Este é um concurso de popularidade, mas direi que as cores provavelmente serão mais populares que o preto e branco, além de texturas.

As imagens de Rorschach são criadas dobrando papel com tinta, de modo que um critério é a simetria.

A arte ASCII é válida, mas estará sujeita aos mesmos critérios acima.


1
Então, qual é, código-golfe ou concurso de popularidade?
David Wilkins

2
<quote Richard Feynman> Há uma mancha de tinta sem sentido, e os outros lhe perguntar o que você acha que vê, mas quando você dizer-lhes, eles começam a discutir com você </ quote>!
user80551


1
Eu adoraria ver um estereograma para isso.
Justin

1
Lembrou-me de uma foto que vi recentemente
VX

Respostas:


11

Fortran 95

Esse código é meio grande, mas produz um bom resultado (ish) ASCii:

program Rorschach
implicit none

integer :: i, j, k, l, N, seed
integer, dimension (24) :: i_zero, j_zero
real :: aux
integer, dimension (17,12) :: matrix_I = 0
character, dimension (17,12) :: matrix_C

! random seed according to system clock
call SYSTEM_CLOCK(count=k)
call RANDOM_SEED(size=N)
allocate(seed(N))
seed=k+37*(/ (i - 1, i = 1, n) /)
call RANDOM_SEED(PUT=seed)

! generating 7 random points
do i=1,7
  call RANDOM_NUMBER(aux)
  i_zero(i) = 15 * aux + 2 ! range = 2-16
  call RANDOM_NUMBER(aux)
  j_zero(i) = 11 * aux + 2 ! range = 2-12
enddo

! generating 7 large spots of ink
do i=1,7
  matrix_I(i_zero(i),j_zero(i)) = 3 ! central points have ink value 3
  do k=-1,1
    do l=-1,1
      if (.NOT.((k==0) .AND. (l==0))) then ! immediate neighbours...
        if ( (((i_zero(i)+k)<=17).OR.((i_zero(i)+k)>0)) .AND. (((j_zero(i)+l)<=12).OR.((j_zero(i)+l)>0)) ) then ! ... that are inside the designed area ...
            if (matrix_I(i_zero(i)+k,j_zero(i)+l) < 2) matrix_I(i_zero(i)+k,j_zero(i)+l) = 2 ! ... and that do not have ink value larger than 2 will be attributed as 2
        endif
      endif
    enddo
  enddo
enddo

! generating N little sparkles of ink
call RANDOM_NUMBER(aux)
N = int(11 * aux) + 20 ! N = 20-30

i = 0
do while (i <= N)
  call RANDOM_NUMBER(aux)
  i_zero(i) = 16 * aux + 1 ! range = 1-17
  call RANDOM_NUMBER(aux)
  j_zero(i) = 11 * aux + 1 ! range = 1-12
  if (matrix_I(i_zero(i),j_zero(i)) < 1) then ! if the selected point already has more ink than 1, then cycle the loop
    matrix_I(i_zero(i),j_zero(i)) = 1
    else
      cycle
  endif
  i = i + 1
enddo

! converting matrix of integers into matrix of characters
do i=1,17
  do j=1,12
    select case(matrix_I(i,j))
      case(0)
      matrix_C(i,j) = " "
      case(1)
      matrix_C(i,j) = "."
      case(2)
      matrix_C(i,j) = "+"
      case(3)
      matrix_C(i,j) = "@"      
    end select
  enddo
enddo

! printing it on the screen + its reflection
do i=1,17
  do j=1,12
    write(*,"(A1)",advance="NO") matrix_C(i,j)
  enddo
  do j=12,2,-1
    write(*,"(A1)",advance="NO") matrix_C(i,j)
  enddo
  write(*,"(A1)") matrix_C(i,1)
enddo

end program Rorschach

O código é totalmente comentado, mas a idéia básica é que ele gera uma matriz com valores entre 0 e 3, representando a quantidade de tinta naquele ponto. Existem 7 grandes manchas de tinta (uma mancha com um valor 3 cercado pelos valores 2) e muitos pequenos "brilhos" (valor 1). Essa matriz é então convertida em uma matriz de caracteres, usando a seguinte conversão:

0 =  
1 = .
2 = +
3 = @

Aqui está um resultado:

 +++      .  .      +++ 
 +@++++   .  .   ++++@+ 
 ++++@+.        .+@++++ 
   .+++   ++++   +++.   
          +@@+          
. .   . +++@@+++ .   . .
.       +@++++@+       .
     ++++++  ++++++     
     +@+        +@+     
.    ++++      ++++    .
   .  +@+      +@+  .   
  .  .+++.    .+++.  .  
 . .   .        .   . . 
    .    .    .    .    
   .   ..      ..   .   
 .                    . 

1
FORTRAN! Um favorito pessoal.
Pureferret 13/03/14

2
Obrigado! Normalmente, o código para iniciantes do Fortran + não tem chance aqui, mas, garoto, eu tenho aprendido muito sobre programação desde que comecei a participar deste site!
gilbertohasnofb

1
! FORTRAN é o rei das listas aos meus olhos, e são apenas listas, para que eu não veja como você pode dar errado.
Pureferret 13/03/14

1
Fortran não gosta tanto de concisão, mas o desempenho está no ponto.
Jonathan Van Matre

12

Pitão

Não é o melhor ou o mais suave, mas aqui está uma solução em python:

from PIL import Image
import random
import sys

imgsize = (int(sys.argv[1]), int(sys.argv[2]))
color = (0, 0, 0)
img = Image.new("RGB", imgsize, "white")

for j in range(0,int(sys.argv[3])):
    start = (random.randrange(0, imgsize[0]/2), random.randrange(0, imgsize[1]))
    point = start
    img.putpixel(point, color)

    blotsize = random.randrange(0, int(sys.argv[4]))
    for i in range(blotsize):
        directions = [(point[0], point[1]+1), (point[0], point[1]-1), (point[0]+1, point[1]), (point[0]-1, point[1])]
        toremove = []
        for direction in directions:
            if direction[0]>=(imgsize[0]/2) or direction[1]>=imgsize[1] or direction[0]<0 or direction[1]<0:
                toremove.append(direction)
        for d in toremove:
            directions.remove(d)
        point = random.choice(directions)
        img.putpixel(point, color)

cropped = img.crop((0, 0, imgsize[0]/2, imgsize[1]))
img = img.transpose(Image.FLIP_LEFT_RIGHT)
img.paste(cropped, (0, 0, imgsize[0]/2, imgsize[1]))

img.save("blot.png")

Apenas cria um "caminho errante" para uma mancha e cria várias delas.

Um exemplo de uso:

py inkblot.py width height blots blotsize
py inkblot.py 512 512 20 10000

E algumas imagens de exemplo: blot1 blot2


Bem-vindo ao PPCG! Incentivamos os pôsteres a criar um cabeçalho proeminente, indicando o idioma que eles usaram. Você pode usar a sintaxe do Markdown no editor para fazê-lo, por exemplo## Python
Jonathan Van Matre

5
Talvez, em vez de pixels únicos, você possa usar discos (de tamanho aleatório).
Howard

1
Bem-vinda! Você tem alguns resultados muito bons aqui.
Gilbertohasnofb
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.