R에서 Schotter 플롯

R로 Georg Nees의 “Schotter” 재현하기 언어 간 번역은 각 언어가 어떻게 서로 다른 설계 트레이드오프를 다루는지를 드러내는 유용한 연습이라고 생각합니다. 번역할 내용이 있는 것이 첫 번째 단계입니다. 제가 생성하고 싶었던 플롯과 그 플롯을 재현해 주는 코드를 찾았으니 바로 시작해 보겠습니다. 이 페이지를 처음 어떻게 찾았는지는 기억나지 않지만, 그 이후로 너무 오래 걸리다 보니 이제야 올리는 글입니다. 이 글은 1968년 Georg Nees가 만든 “Schotter”라는 컴퓨터 생성 예술 작품을 그리는 ALGOL 코드를 다룹니다. 이 작품은 점점 위치와 회전이 변하는 사각형 그리드를 보여줍니다. 아래는 해당 ALGOL 코드의 예시입니다. 코드는 그대로 유지하였으며, 한국어 설명만 번역했습니다. 1 'BEGIN' 'COMMENT' 'SCHOTTER.' 2 'REAL' R, PIHALB, PI4T. 3 'INTEGER' I. 4 'PROCEDURE' QUAD. 5 'BEGIN' 6 'REAL' P1, Q1, PSI. 7 'INTEGER' S. 8 JE1.=5*1/264. 9 JA1.=-JE1. 10 JE2.=PI4T*(1+I/264). 11 JA2.=PI4T*(1-I/264). 12 P1.=P+5+J1. 13 Q1.=Q+5+J1. 14 PS1.=J2. 15 LEER(P1+R*COS(PSI),Q1+R*SIN(PSI)). 16 'FOR' S.=1 'STEP' 1 'UNTIL' 4 'DO' 17 'BEGIN' PSI.=PSI+PIHALB. 18 LINE(P1+R*COS(PSI),Q1