'BEGIN' 'COMMENT' SCHOTTER; 'REAL' R, PIHALB, PI4T; 'REAL' JE1,JA1,JE2,JA2,J2,P1,J1; 'INTEGER' I; 'PROCEDURE' QUAD; 'BEGIN' 'REAL' P1, Q1, PSI; 'INTEGER' S; JE1 := 5*I/264; JA1 := -JE1; JE2 := PI4T*(1 + 1/ 264); JA2 := PI4T*(1 -1/264); P1:=P+5+J1; Q1:=Q+5+J1; PSI:=J2; LEER(P1 + R*cos(PSI),Q1 + R*sin(PSI)); 'FOR' S:= 1 'STEP' 1 'UNTIL' 4 'DO' 'BEGIN' PSI := PSI + PIHALB; LINE(P1 + R*cos(PSI),Q1 + R*sin(PSI)) 'END'; I:=I+1 'END' QUAD; R:= 5*1.4142; PIHALB:=3.14159*.5; PI4T:= PIHALB*.5; I:=0; 'END'
Schotter Generator
| i |
name: | Schotter Generator |
Code
Description
This is a part of the code that created in the plotter-drawing “Schotter”. 3
Comments
enter new comment