Commit | Line | Data |
---|---|---|
f1aa2b62 | 1 | |
2 | puts "========================" | |
3 | puts " OCC422 " | |
4 | puts "(case 1)" | |
5 | puts "========================" | |
6 | puts "" | |
7 | ||
8 | plane p 0 0 0 0 0 1 -1 0 0 | |
9 | psphere p p 20 0 90 | |
10 | #profile pf o -4 -4 1 l 8 d 0 1 l 8 d -1 0 l 8 | |
11 | profile pf o -4 -4 1 l 8 c 2 90 l 8 d -1 0 l 8 | |
12 | prism p2 pf 0 0 40 | |
13 | bfuse f p p2 | |
14 | nexplode f f | |
15 | ||
16 | depouille result f 0 0 1 f_7 5 0 0 40 0 0 1 | |
17 | ||
18 | set square 4630.78 | |
19 | set 2dviewer 0 |