# Environment for creative processing of text and numerical data

## Four fish in an aquarium

K.Vehkalahti (1999)

### Edit field:

```   1 *SAVE AQUARIUM / Four fish in an aquarium
2 *                                                             *GLOBAL*
3 *HEADER= XDIV=0,1,0 YDIV=0,1,0 FRAME=0  pi=3.141592653589793
4 *SIZE=1700,1700  HOME=50,50  XSCALE=-100,400 YSCALE=-300,300
5 *.......................................................................
6 *`The aquarium:`
7 *FRAMES=F F=0,0,1700,1700,-1 [FILL-1]=0.6,0.6,0,0.4
8 *`PLOT /FRAME`        / LINETYPE=[RED][line_width(0.3)]    DEVICE=PS,K1.PS
9 *.......................................................................
10 *`The fish:`         C=8.2
11 *X=R+B*cos(sin(T)) Y=B*sin(cos(T))
12 *T=0,9*pi/5,pi/40  R=-7,9.5,0.25
13 *A=R*R*R*(-1)*C*C  B=if(A<0)then(sqrt(-A))else(sqrt(A))
14 *`PLOT X(T)=X,Y(T)=Y` / LINETYPE=[RED][line_width(0.3)]    DEVICE=PS,K2.PS
15 *`PLOT X(T)=X,Y(T)=Y` / LINETYPE=[GREEN][line_width(0.3)]  DEVICE=PS,K3.PS
16 *`PLOT X(T)=X,Y(T)=Y` / LINETYPE=[YELLOW][line_width(0.3)] DEVICE=PS,K4.PS
17 *`PLOT X(T)=X,Y(T)=Y` / LINETYPE=[CYAN][line_width(0.3)]   DEVICE=PS,K5.PS
18 *.......................................................................
19 *`A combination by rotating and scaling:`
20 *PRINT CUR+1,CUR+6 TO K.PS
21 - picture K1.PS,0200,0200,1.00,1.00
22 - picture K2.PS,0140,0380,1.00,1.00,354
23 - picture K3.PS,1900,1300,0.40,0.75,175
24 - picture K4.PS,0700,0100,0.50,0.40,067
25 - picture K5.PS,1420,1010,0.40,0.50,014
26 - %SURVO 84C Graphics END[LF]
27 *

```