Home » Archimedes archive » Acorn User » AU 1993-06.adf » !Render_Render » Examples/s/book

Examples/s/book

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1993-06.adf » !Render_Render
Filename: Examples/s/book
Read OK:
File size: 0694 bytes
Load address: 0000
Exec address: 0000
File contents
display { book 1024 1024 medium 1280 1024 }

view { 0,6,-4  60,0,0}

light { 0,90, 0,45 30,30, 270,60, 160,30, 220,-45, 110,30 332,40}


ambient { 0.05,0.05,0.05}

sprite {txtsprt}

material {

red   0.2 0 0     0.2 0 0 4
metal 0.2 0.2 0.2 0.6 0.6 0.6 15
}

define { box

point { -1,1,-1  1,1,-1, 1,-1,-1, -1,-1,-1
        -1,1,1   1,1,1,  1,-1,1,  -1,-1,1}
link { flat 0 1 2 3} link { flat 1 5 6 2} link { flat 5 4 7 6} 
link { flat 4 0 3 7} link { flat 4 5 1 0} link { flat 6 7 3 2}
}

define { page

point {-1.5,1.5,0 -1,1.5,0.2   -0.5,1.5,0.3  0,1.5,0.35  0.5,1.5,0.3  1,1.5,0.2   1.5,1.5,0 } 
point {-1.5,1,0   -1,1,0.2     -0.5,1,0.3    0,1,0.35    0.5,1,0.3    1,1,0.2     1.5,1,0 } 
point {-1.5,0.5,0  -1,0.5,0.2   -0.5,0.5,0.3  0,0.5,0.35  0.5,0.5,0.3  1,0.5,0.2   1.5,0.5,0 } 
point {-1.5,0,0    -1,0,0.2     -0.5,0,0.3    0,0,0.35    0.5,0,0.3    1,0,0.2     1.5,0,0 } 
point {-1.5,-0.5,0 -1,-0.5,0.2  -0.5,-0.5,0.3 0,-0.5,0.35 0.5,-0.5,0.3 1,-0.5,0.2  1.5,-0.5,0 } 
point {-1.5,-1,0   -1,-1,0.2    -0.5,-1,0.3   0,-1,0.35   0.5,-1,0.3   1,-1,0.2    1.5,-1,0 } 
point {-1.5,-1.5,0 -1,-1.5,0.2  -0.5,-1.5,0.3 0,-1.5,0.35 0.5,-1.5,0.3 1,-1.5,0.2  1.5,-1.5,0 } 

surface {curve 0 7 7 FALSE FALSE}
}

page { -1.5*COS(RAD(20)) 1.5*SIN(RAD(20)) 0 
texture { screendump 0.6 0.3 10 fit { 7 7} }
rotate {0 -20 0} rotate {90 0 0} 
}

page { 1.5 0 0 
texture { screenb 0.9 0.05 8 fit { 7 7} } 
rotate {90 0 0}
}

box  { -1.575 -0.2 0 metal transform { 1,0.05,0 0,1,0 0,0,1} scale {1.5 0.2 1.5} }
box  { 1.575 -0.2 0 metal  transform { 1,-0.05,0 0,1,0 0,0,1} scale {1.5 0.2 1.5} }
box  { -1.65 -0.42 0 red scale {1.6 0.02 1.6} }
box  { 1.65 -0.42 0 red scale {1.6 0.02 1.6} }







 
00000000  64 69 73 70 6c 61 79 20  7b 20 62 6f 6f 6b 20 31  |display { book 1|
00000010  30 32 34 20 31 30 32 34  20 6d 65 64 69 75 6d 20  |024 1024 medium |
00000020  31 32 38 30 20 31 30 32  34 20 7d 0a 0a 76 69 65  |1280 1024 }..vie|
00000030  77 20 7b 20 30 2c 36 2c  2d 34 20 20 36 30 2c 30  |w { 0,6,-4  60,0|
00000040  2c 30 7d 0a 0a 6c 69 67  68 74 20 7b 20 30 2c 39  |,0}..light { 0,9|
00000050  30 2c 20 30 2c 34 35 20  33 30 2c 33 30 2c 20 32  |0, 0,45 30,30, 2|
00000060  37 30 2c 36 30 2c 20 31  36 30 2c 33 30 2c 20 32  |70,60, 160,30, 2|
00000070  32 30 2c 2d 34 35 2c 20  31 31 30 2c 33 30 20 33  |20,-45, 110,30 3|
00000080  33 32 2c 34 30 7d 0a 0a  0a 61 6d 62 69 65 6e 74  |32,40}...ambient|
00000090  20 7b 20 30 2e 30 35 2c  30 2e 30 35 2c 30 2e 30  | { 0.05,0.05,0.0|
000000a0  35 7d 0a 0a 73 70 72 69  74 65 20 7b 74 78 74 73  |5}..sprite {txts|
000000b0  70 72 74 7d 0a 0a 6d 61  74 65 72 69 61 6c 20 7b  |prt}..material {|
000000c0  0a 0a 72 65 64 20 20 20  30 2e 32 20 30 20 30 20  |..red   0.2 0 0 |
000000d0  20 20 20 20 30 2e 32 20  30 20 30 20 34 0a 6d 65  |    0.2 0 0 4.me|
000000e0  74 61 6c 20 30 2e 32 20  30 2e 32 20 30 2e 32 20  |tal 0.2 0.2 0.2 |
000000f0  30 2e 36 20 30 2e 36 20  30 2e 36 20 31 35 0a 7d  |0.6 0.6 0.6 15.}|
00000100  0a 0a 64 65 66 69 6e 65  20 7b 20 62 6f 78 0a 0a  |..define { box..|
00000110  70 6f 69 6e 74 20 7b 20  2d 31 2c 31 2c 2d 31 20  |point { -1,1,-1 |
00000120  20 31 2c 31 2c 2d 31 2c  20 31 2c 2d 31 2c 2d 31  | 1,1,-1, 1,-1,-1|
00000130  2c 20 2d 31 2c 2d 31 2c  2d 31 0a 20 20 20 20 20  |, -1,-1,-1.     |
00000140  20 20 20 2d 31 2c 31 2c  31 20 20 20 31 2c 31 2c  |   -1,1,1   1,1,|
00000150  31 2c 20 20 31 2c 2d 31  2c 31 2c 20 20 2d 31 2c  |1,  1,-1,1,  -1,|
00000160  2d 31 2c 31 7d 0a 6c 69  6e 6b 20 7b 20 66 6c 61  |-1,1}.link { fla|
00000170  74 20 30 20 31 20 32 20  33 7d 20 6c 69 6e 6b 20  |t 0 1 2 3} link |
00000180  7b 20 66 6c 61 74 20 31  20 35 20 36 20 32 7d 20  |{ flat 1 5 6 2} |
00000190  6c 69 6e 6b 20 7b 20 66  6c 61 74 20 35 20 34 20  |link { flat 5 4 |
000001a0  37 20 36 7d 20 0a 6c 69  6e 6b 20 7b 20 66 6c 61  |7 6} .link { fla|
000001b0  74 20 34 20 30 20 33 20  37 7d 20 6c 69 6e 6b 20  |t 4 0 3 7} link |
000001c0  7b 20 66 6c 61 74 20 34  20 35 20 31 20 30 7d 20  |{ flat 4 5 1 0} |
000001d0  6c 69 6e 6b 20 7b 20 66  6c 61 74 20 36 20 37 20  |link { flat 6 7 |
000001e0  33 20 32 7d 0a 7d 0a 0a  64 65 66 69 6e 65 20 7b  |3 2}.}..define {|
000001f0  20 70 61 67 65 0a 0a 70  6f 69 6e 74 20 7b 2d 31  | page..point {-1|
00000200  2e 35 2c 31 2e 35 2c 30  20 2d 31 2c 31 2e 35 2c  |.5,1.5,0 -1,1.5,|
00000210  30 2e 32 20 20 20 2d 30  2e 35 2c 31 2e 35 2c 30  |0.2   -0.5,1.5,0|
00000220  2e 33 20 20 30 2c 31 2e  35 2c 30 2e 33 35 20 20  |.3  0,1.5,0.35  |
00000230  30 2e 35 2c 31 2e 35 2c  30 2e 33 20 20 31 2c 31  |0.5,1.5,0.3  1,1|
00000240  2e 35 2c 30 2e 32 20 20  20 31 2e 35 2c 31 2e 35  |.5,0.2   1.5,1.5|
00000250  2c 30 20 7d 20 0a 70 6f  69 6e 74 20 7b 2d 31 2e  |,0 } .point {-1.|
00000260  35 2c 31 2c 30 20 20 20  2d 31 2c 31 2c 30 2e 32  |5,1,0   -1,1,0.2|
00000270  20 20 20 20 20 2d 30 2e  35 2c 31 2c 30 2e 33 20  |     -0.5,1,0.3 |
00000280  20 20 20 30 2c 31 2c 30  2e 33 35 20 20 20 20 30  |   0,1,0.35    0|
00000290  2e 35 2c 31 2c 30 2e 33  20 20 20 20 31 2c 31 2c  |.5,1,0.3    1,1,|
000002a0  30 2e 32 20 20 20 20 20  31 2e 35 2c 31 2c 30 20  |0.2     1.5,1,0 |
000002b0  7d 20 0a 70 6f 69 6e 74  20 7b 2d 31 2e 35 2c 30  |} .point {-1.5,0|
000002c0  2e 35 2c 30 20 20 2d 31  2c 30 2e 35 2c 30 2e 32  |.5,0  -1,0.5,0.2|
000002d0  20 20 20 2d 30 2e 35 2c  30 2e 35 2c 30 2e 33 20  |   -0.5,0.5,0.3 |
000002e0  20 30 2c 30 2e 35 2c 30  2e 33 35 20 20 30 2e 35  | 0,0.5,0.35  0.5|
000002f0  2c 30 2e 35 2c 30 2e 33  20 20 31 2c 30 2e 35 2c  |,0.5,0.3  1,0.5,|
00000300  30 2e 32 20 20 20 31 2e  35 2c 30 2e 35 2c 30 20  |0.2   1.5,0.5,0 |
00000310  7d 20 0a 70 6f 69 6e 74  20 7b 2d 31 2e 35 2c 30  |} .point {-1.5,0|
00000320  2c 30 20 20 20 20 2d 31  2c 30 2c 30 2e 32 20 20  |,0    -1,0,0.2  |
00000330  20 20 20 2d 30 2e 35 2c  30 2c 30 2e 33 20 20 20  |   -0.5,0,0.3   |
00000340  20 30 2c 30 2c 30 2e 33  35 20 20 20 20 30 2e 35  | 0,0,0.35    0.5|
00000350  2c 30 2c 30 2e 33 20 20  20 20 31 2c 30 2c 30 2e  |,0,0.3    1,0,0.|
00000360  32 20 20 20 20 20 31 2e  35 2c 30 2c 30 20 7d 20  |2     1.5,0,0 } |
00000370  0a 70 6f 69 6e 74 20 7b  2d 31 2e 35 2c 2d 30 2e  |.point {-1.5,-0.|
00000380  35 2c 30 20 2d 31 2c 2d  30 2e 35 2c 30 2e 32 20  |5,0 -1,-0.5,0.2 |
00000390  20 2d 30 2e 35 2c 2d 30  2e 35 2c 30 2e 33 20 30  | -0.5,-0.5,0.3 0|
000003a0  2c 2d 30 2e 35 2c 30 2e  33 35 20 30 2e 35 2c 2d  |,-0.5,0.35 0.5,-|
000003b0  30 2e 35 2c 30 2e 33 20  31 2c 2d 30 2e 35 2c 30  |0.5,0.3 1,-0.5,0|
000003c0  2e 32 20 20 31 2e 35 2c  2d 30 2e 35 2c 30 20 7d  |.2  1.5,-0.5,0 }|
000003d0  20 0a 70 6f 69 6e 74 20  7b 2d 31 2e 35 2c 2d 31  | .point {-1.5,-1|
000003e0  2c 30 20 20 20 2d 31 2c  2d 31 2c 30 2e 32 20 20  |,0   -1,-1,0.2  |
000003f0  20 20 2d 30 2e 35 2c 2d  31 2c 30 2e 33 20 20 20  |  -0.5,-1,0.3   |
00000400  30 2c 2d 31 2c 30 2e 33  35 20 20 20 30 2e 35 2c  |0,-1,0.35   0.5,|
00000410  2d 31 2c 30 2e 33 20 20  20 31 2c 2d 31 2c 30 2e  |-1,0.3   1,-1,0.|
00000420  32 20 20 20 20 31 2e 35  2c 2d 31 2c 30 20 7d 20  |2    1.5,-1,0 } |
00000430  0a 70 6f 69 6e 74 20 7b  2d 31 2e 35 2c 2d 31 2e  |.point {-1.5,-1.|
00000440  35 2c 30 20 2d 31 2c 2d  31 2e 35 2c 30 2e 32 20  |5,0 -1,-1.5,0.2 |
00000450  20 2d 30 2e 35 2c 2d 31  2e 35 2c 30 2e 33 20 30  | -0.5,-1.5,0.3 0|
00000460  2c 2d 31 2e 35 2c 30 2e  33 35 20 30 2e 35 2c 2d  |,-1.5,0.35 0.5,-|
00000470  31 2e 35 2c 30 2e 33 20  31 2c 2d 31 2e 35 2c 30  |1.5,0.3 1,-1.5,0|
00000480  2e 32 20 20 31 2e 35 2c  2d 31 2e 35 2c 30 20 7d  |.2  1.5,-1.5,0 }|
00000490  20 0a 0a 73 75 72 66 61  63 65 20 7b 63 75 72 76  | ..surface {curv|
000004a0  65 20 30 20 37 20 37 20  46 41 4c 53 45 20 46 41  |e 0 7 7 FALSE FA|
000004b0  4c 53 45 7d 0a 7d 0a 0a  70 61 67 65 20 7b 20 2d  |LSE}.}..page { -|
000004c0  31 2e 35 2a 43 4f 53 28  52 41 44 28 32 30 29 29  |1.5*COS(RAD(20))|
000004d0  20 31 2e 35 2a 53 49 4e  28 52 41 44 28 32 30 29  | 1.5*SIN(RAD(20)|
000004e0  29 20 30 20 0a 74 65 78  74 75 72 65 20 7b 20 73  |) 0 .texture { s|
000004f0  63 72 65 65 6e 64 75 6d  70 20 30 2e 36 20 30 2e  |creendump 0.6 0.|
00000500  33 20 31 30 20 66 69 74  20 7b 20 37 20 37 7d 20  |3 10 fit { 7 7} |
00000510  7d 0a 72 6f 74 61 74 65  20 7b 30 20 2d 32 30 20  |}.rotate {0 -20 |
00000520  30 7d 20 72 6f 74 61 74  65 20 7b 39 30 20 30 20  |0} rotate {90 0 |
00000530  30 7d 20 0a 7d 0a 0a 70  61 67 65 20 7b 20 31 2e  |0} .}..page { 1.|
00000540  35 20 30 20 30 20 0a 74  65 78 74 75 72 65 20 7b  |5 0 0 .texture {|
00000550  20 73 63 72 65 65 6e 62  20 30 2e 39 20 30 2e 30  | screenb 0.9 0.0|
00000560  35 20 38 20 66 69 74 20  7b 20 37 20 37 7d 20 7d  |5 8 fit { 7 7} }|
00000570  20 0a 72 6f 74 61 74 65  20 7b 39 30 20 30 20 30  | .rotate {90 0 0|
00000580  7d 0a 7d 0a 0a 62 6f 78  20 20 7b 20 2d 31 2e 35  |}.}..box  { -1.5|
00000590  37 35 20 2d 30 2e 32 20  30 20 6d 65 74 61 6c 20  |75 -0.2 0 metal |
000005a0  74 72 61 6e 73 66 6f 72  6d 20 7b 20 31 2c 30 2e  |transform { 1,0.|
000005b0  30 35 2c 30 20 30 2c 31  2c 30 20 30 2c 30 2c 31  |05,0 0,1,0 0,0,1|
000005c0  7d 20 73 63 61 6c 65 20  7b 31 2e 35 20 30 2e 32  |} scale {1.5 0.2|
000005d0  20 31 2e 35 7d 20 7d 0a  62 6f 78 20 20 7b 20 31  | 1.5} }.box  { 1|
000005e0  2e 35 37 35 20 2d 30 2e  32 20 30 20 6d 65 74 61  |.575 -0.2 0 meta|
000005f0  6c 20 20 74 72 61 6e 73  66 6f 72 6d 20 7b 20 31  |l  transform { 1|
00000600  2c 2d 30 2e 30 35 2c 30  20 30 2c 31 2c 30 20 30  |,-0.05,0 0,1,0 0|
00000610  2c 30 2c 31 7d 20 73 63  61 6c 65 20 7b 31 2e 35  |,0,1} scale {1.5|
00000620  20 30 2e 32 20 31 2e 35  7d 20 7d 0a 62 6f 78 20  | 0.2 1.5} }.box |
00000630  20 7b 20 2d 31 2e 36 35  20 2d 30 2e 34 32 20 30  | { -1.65 -0.42 0|
00000640  20 72 65 64 20 73 63 61  6c 65 20 7b 31 2e 36 20  | red scale {1.6 |
00000650  30 2e 30 32 20 31 2e 36  7d 20 7d 0a 62 6f 78 20  |0.02 1.6} }.box |
00000660  20 7b 20 31 2e 36 35 20  2d 30 2e 34 32 20 30 20  | { 1.65 -0.42 0 |
00000670  72 65 64 20 73 63 61 6c  65 20 7b 31 2e 36 20 30  |red scale {1.6 0|
00000680  2e 30 32 20 31 2e 36 7d  20 7d 0a 0a 0a 0a 0a 0a  |.02 1.6} }......|
00000690  0a 0a 20 0a                                       |.. .|
00000694