/* sub.txt - optik source file, for rendering an image of a submarine /* on a sandy and shallow sea bottom. /* by Wing Keong Loo /* Wednesday, April 16, 1997 option trace option shadow option !alias stratify 8 option grid 10 device file sub.bmp option resolution 640 480 opt format bmp add light white direction 2 1 2 /* Front view /*eye 8 10 4 -2 0 0 /* Rear view eye -17 1 .4 0 -1 0 window 10 8 fog 50 .11 .318 .35 /* floor add object floor plane move object floor 0 0 -3 add surface sand 1 .89 .56 .2 .6 0 0 surface floor sand add texture bump bump texture floor bump /* add surface hullgrey .2 .2 .2 .2 .2 .3 add surface hullgrey .4 .4 .4 .2 .2 .2 add surface steelgrey .5 .5 .5 /* nose add object nose sphere move obj nose 3 surf nose hullgrey /*forward hull add object forward cylinder scale object forward 1 1 4 rotate object forward 90 0 0 0 0 1 0 move object forward -1 surf forward hullgrey /* main hull add object hull sphere scale object hull 8 1 1 move obj hull -4 surf hull hullgrey /* conn add object conn cylinder scale object conn 1 .6 1 move obj conn 0 0 1.3 surf conn hullgrey /* periscope and antenna add object scope cylinder scale object scope .03 .03 1 move obj scope .5 0 2.3 surf scope hullgrey add object ant cylinder scale object ant .02 .02 1 move obj ant .2 0 2.1 surf ant hullgrey /* stabs add object stab cylinder scale object stab .7 .1 3 rotate obj stab 90 0 0 0 1 0 0 move obj stab .5 surf stab hullgrey /*rear stabs add object horzstab cylinder scale object horzstab .5 .1 2 rotate obj horzstab 90 0 0 0 1 0 0 move obj horzstab -11 surf horzstab hullgrey add object vertstab cylinder scale object vertstab .5 .1 2 /*rotate obj vertstab 90 0 0 0 0 1 0 move obj vertstab -11 surf vertstab hullgrey /* 9 bladed prop add obj blade sphere scale obj blade .1 .2 move obj blade 0 0 .5 rotate obj blade 35 0 0 0 0 0 1 rotate obj blade 40 0 0 0 1 0 0 move obj blade -11.8 0 0 surf blade steelgrey add obj blade1 sphere scale obj blade1 .1 .2 move obj blade1 0 0 .5 rotate obj blade1 35 0 0 0 0 0 1 rotate obj blade1 80 0 0 0 1 0 0 move obj blade1 -11.8 0 0 surf blade1 steelgrey add obj blade2 sphere scale obj blade2 .1 .2 move obj blade2 0 0 .5 rotate obj blade2 35 0 0 0 0 0 1 rotate obj blade2 120 0 0 0 1 0 0 move obj blade2 -11.8 0 0 surf blade2 steelgrey add obj blade3 sphere scale obj blade3 .1 .2 move obj blade3 0 0 .5 rotate obj blade3 35 0 0 0 0 0 1 rotate obj blade3 160 0 0 0 1 0 0 move obj blade3 -11.8 0 0 surf blade3 steelgrey add obj blade4 sphere scale obj blade4 .1 .2 move obj blade4 0 0 .5 rotate obj blade4 35 0 0 0 0 0 1 rotate obj blade4 200 0 0 0 1 0 0 move obj blade4 -11.8 0 0 surf blade4 steelgrey add obj blade5 sphere scale obj blade5 .1 .2 move obj blade5 0 0 .5 rotate obj blade5 35 0 0 0 0 0 1 rotate obj blade5 240 0 0 0 1 0 0 move obj blade5 -11.8 0 0 surf blade5 steelgrey add obj blade6 sphere scale obj blade6 .1 .2 move obj blade6 0 0 .5 rotate obj blade6 35 0 0 0 0 0 1 rotate obj blade6 280 0 0 0 1 0 0 move obj blade6 -11.8 0 0 surf blade6 steelgrey add obj blade7 sphere scale obj blade7 .1 .2 move obj blade7 0 0 .5 rotate obj blade7 35 0 0 0 0 0 1 rotate obj blade7 320 0 0 0 1 0 0 move obj blade7 -11.8 0 0 surf blade7 steelgrey add obj blade8 sphere scale obj blade8 .1 .2 move obj blade8 0 0 .5 rotate obj blade8 35 0 0 0 0 0 1 rotate obj blade8 360 0 0 0 1 0 0 move obj blade8 -11.8 0 0 surf blade8 steelgrey display quit y