Käyttöympäristö tekstin ja numeerisen tiedon luovaan käsittelyyn

Neljä kalaa akvaariossa

K.Vehkalahti (1999)

Toimituskenttä:

   1 *SAVE AKVAARIO / Neljä kalaa akvaariossa
   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 *Akvaario: 
   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 *Kalat:            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 *Yhdistelmä kierroilla ja skaalauksilla: 
  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 *

  Hakemisto | Kuvasto | Edellinen | Seuraava