File: fill.pcm

package info (click to toggle)
extrema 4.3.6-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 19,212 kB
  • ctags: 6,452
  • sloc: cpp: 86,428; sh: 8,229; makefile: 814
file content (14 lines) | stat: -rw-r--r-- 243 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
! script fill.pcm
!
X0 = ?1
Y0 = ?2
X02 = ?3
Y02 = ?4
L = LEN(X0)
L1 = LEN(X02)
X0[L+1:L+L1] = X02[L1:1:-1]
Y0[L+1:L+L1] = Y02[L1:1:-1]
SET AREAFILLCOLOR STRING(?5)
GRAPH X0 Y0
!DEFAULTS
!DESTROY X0 Y0 X02 Y02 L L1 ! eliminate dummy variables