With multiplectual line drawing....
set display mode 1920,1080,32
sync on
sync rate 60
``Open file to write 1, "test.txt"
``Write string 1, str$(50.00, 2)
``Write string 1, str$(25.36, 2)
``Close file 1
``load image "message5.bmp",3,1
``create bitmap 1,1920,1080
`create bitmap 4,1920,1080
amplit#=1
set text size 32
be#=0.3
ce#=.02
``load image "I:\Gaz\d3dfunc\Gaz logo 2019 mm.bmp",1,1
``create bitmap 1,1920,1080
``paste image 1,-5,0
frame=1
a#=0.1
set current bitmap 0
``dim arrayg(200*2)
``load array "I:\Gaz\arrayg5.dat",arrayg()
````````````````````````
a=1
cc=0
``dim arrayg(24*2)
ink rgb(220,220,220)
``dim ax(100):dim bx(100):dim lin#(100)
cc=500
dim xxaa#(cc)
dim yyaa#(cc)
dim x111a#(cc)
dim y111a#(cc)
dim tttt(cc)
dim slow(cc)
restore ionic
cc=0
for f=0 to 171
x2=x1:y2=y1
read x1,y1
``ax=arrayg(cc):ay=arrayg(cc+1)
``bx=arrayg(cc+2):by=arrayg(cc+3)
if f>0 then gosub ligneset
inc cc
next f
``remstart
``for f=90 to 104
``linadd#(cc+1)=0.0
``linadd#(cc)=1.0
``ax=arrayg(cc):ay=arrayg(cc+1)
``bx=arrayg(cc+2):by=arrayg(cc+3)
``gosub ligneset
``inc cc,4
``next f
``remend
``for f=0 to 23
``a=arrayg(cc):b=arrayg(cc+1)
``box a,b+400,a+4,b+404
``next f
gob=0
ttt=2
color backdrop 0
autocam off
point camera 0,0,0
set camera range 1,6000
f=0
``cc=0
obj=10
yy#=400.0
ff=0
``make object plain 1,1910,310,1
``position object 1,-14,-150,535
``set object transparency 1,3
``get image 2,0,0,10,10,1
``texture object 1,2
``set alpha mapping on 1,40
``rotate object 1,0,0,0
``set object light 1,1
yy9#=180.0
amp#=450.0
yy#=0.0
pom#=0.333
xx1#=179.0
xx2#=527.0
delay=101
get image 3,ff,0,ff+3,300,1
sprite 1,-900,0,3
ff=16
aaa=10
delay=0 : xp#=0.01
````````````````````````````````
do
``paste image 1,0,0
``cls
ink rgb(0,250,0)
``gosub scan
position camera xxx#+400,yy1#,zzz#
position light 0,xxx#+300,50,zzz#
``rotate camera 0,0,yy1#*0.01
point camera 150,yy1#,540
``x1=f:x2=1919-f
``y1=1079:y2=0
``if yy#<100.0 and yyf#<0
``yy#=100.0
``yyf#=yyf#*0.95
``yyf#=-yyf#
``endif
remstart
if yyf#>-0.1
if yyf#<1.0
yyf#=yyf#*1.05
else
yyf#=yyf#*0.95
endif
endif
remend
yy1#=amp#*sin(yy9#)
if delay>0 then dec delay:goto poll
inc yy9#,0.2:if yy9#>359.9 then yy9#=180.0:amp#=amp#*0.99:pom#=pom#*0.95:dec g:if g<0 then g=359:delay=100
``if yy#>100.0 then yy#=yy#+yyf#
``line x1,y1,x2,y2
``if amp#<0.019
inc xx1#,xp#:if xx1#>359.0 then xx1#=0.0
poll:
``else
``dec delay
``endif
``if xx1#>179.0 and xx1#<179.27 then delay=60
``gosub fadein
``gosub fadein
xxx#=300+1000*sin(xx1#)
zzz#=540+1000*cos(xx1#)
``gosub intline
if xp#<0.2 then xp#=xp#*1.005
``if f<1920 then inc f,13
for cc=1 to 22
gosub ligne
next cc
for cc=24 to 43
gosub ligne
next cc
for cc=45 to 47
gosub ligne
next cc
for cc=49 to 62
gosub ligne
next cc
for cc=64 to 83
gosub ligne
next cc
for cc=85 to 87
gosub ligne
next cc
for cc=89 to 116
gosub ligne
next cc
for cc=118 to 145
gosub ligne
next cc
for cc=147 to 166
gosub ligne
next cc
for cc=168 to 170
gosub ligne
next cc
``if gob#<44 then inc gob#,0.07
``gob=gob#
if inkey$()="p" then inc mmm
if inkey$()="q" then dec mmm
``ink 0:box 100,1000,460,1025
``ink rgb(200,200,200)
``text 100,1000,str$(xx1#)+" "+str$(mmm)
sync
``gosub saver
loop
````````````````````````````
loader:
a$="000000":a$=a$+str$(fram):a$=right$(a$,2)
b$="gold"+a$+".bmp"
load image b$,f+5
`if fram<2904 then
inc fram
return
````````````````````````
loader2:
sv$="000000"
sv$=sv$+str$(frame)
sv$=right$(sv$,5)
fil$="I:\frames6\"+sv$+".bmp"
load image fil$,3,1
``load bitmap fil$,1
paste image 3,0,0
inc frame ``:if frame>901 then frame=1
return
```````````````````````````
saver:
sv$="000000"
inc fra:if fra>2450 then end
sv1$=str$(fra):sv$=sv$+sv1$
sv$=right$(sv$,5)
fil$="I:/frames12/":fil$=fil$+sv$+".bmp"
get image 1007,0,0,1920,1080,1
save image fil$,1007
return
````````````````````````
```````````````````````````
````````````````````````````
ligneset:
intline:`
`` ligne(ax,ay,bx,by)
`` ligne(x1,y1,x2,y2)
dx=abs(x1-x2) : dy=abs(y1-y2)
dx#=dx:dy#=dy
if dx>dy
xa#=1.0:t=dx
ya#=dy#/dx#
else
ya#=1.0:t=dy
xa#=dx#/dy#
endif
if x2<x1 then xa#=-xa#
if y2<y1 then ya#=-ya#
xxaa#(cc)=xa#
yyaa#(cc)=ya#
x1a#=x1:y1a#=y1
x111a#(cc)=x1a#
y111a#(cc)=y1a#
tttt(cc)=t
slow(cc)=cc*0.05
return
``````````````````````````````````````````````````````
ligne:
xa#=xxaa#(cc)
ya#=yyaa#(cc)
x1a#=x111a#(cc)
y1a#=y111a#(cc)
dec slow(cc):if slow(cc)>0 then return
slow(cc)=cc*0.125
if tttt(cc)<0 then return
dec tttt(cc),4
``for g=0 to t
``box x1a#,y1a#,x1a#+3,y1a#+3
make object cube obj,2
position object obj,x1a#-976,0-y1a#,540
color object obj,rgb(0,220,0)
set object light obj,1
set object ambient obj,1
set object emissive obj,rgb(0,200,0)
if tttt(cc)>0.0
inc obj
make object cube obj,1
position object obj,x1a#-976,0-y1a#,540+55
color object obj,rgb(0,170,0)
set object light obj,1
set object ambient obj,1
set object emissive obj,rgb(0,200,0)
else
offset limb obj,0,0,0,1
fix object pivot obj
scale object obj,100,100,2670
endif
inc obj
x1a#=x1a#+xa#+xa#+xa#+xa#
y1a#=y1a#+ya#+ya#+ya#+ya#
``next g
x111a#(cc)=x1a#
y111a#(cc)=y1a#
return
``````````````````````````````````
fadein:
set current bitmap 1
``get image 2,0,0,ff+1,300,1
``paste image 2,0,710
get image 3,ff,0,ff+8,300,1
if ff<1906
inc ff,8
else
ff=20
if aaa<255 then inc aaa,1
endif
get image 2,0,710,1919,1010,1
set sprite alpha 1,aaa
paste sprite 1,ff,710
texture object 1,2
set object transparency 1,5
set alpha mapping on 1,50
``ghost object on 1,4
set current bitmap 0
return
````````````````````````````````````````````````````````
ionic:
data 26,258,78,297
data 225,283,280,236
data 279,134,162,136
data 162,192,187,192
data 187,216,176,225
data 129,229,118,220
data 118,85,127,77
data 176,77,187,87
data 187,120,279,119
data 279,62,227,18
data 79,12,25,56
data 25,257,302,275
data 405,266,405,224
data 396,224,402,214
data 471,211,476,220
data 466,220,466,262
data 569,255,569,215
data 553,215,493,118
data 508,117,508,76
data 367,74,367,117
data 378,117,318,229
data 303,229,302,274
data 419,177,453,176
data 435,147,419,176
data 584,254,584,221
data 689,116,644,116
data 644,127,585,127
data 585,77,783,79
data 783,111,680,210
data 724,209,724,199
data 783,198,783,245
data 585,254,1070,243
data 1070,206,1056,206
data 996,115,1010,115
data 1010,79,868,79
data 868,115,881,115
data 822,207,805,207
data 805,244,908,243
data 908,206,898,206
data 903,199,973,199
data 978,206,968,206
data 968,243,1069,243
data 920,167,938,142
data 956,167,921,167
data 1087,244,1191,247
data 1191,209,1176,208
data 1176,201,1189,194
data 1213,210,1207,210
data 1207,248,1333,254
data 1333,213,1313,212
data 1239,163,1312,117
data 1333,117,1333,77
data 1207,78,1207,116
data 1215,116,1176,140
data 1176,116,1191,116
data 1191,78,1087,79
data 1087,116,1103,116
data 1103,207,1087,207
data 1087,243,1355,255
data 1355,215,1372,215
data 1372,116,1356,116
data 1356,77,1460,77
data 1460,117,1444,117
data 1444,144,1482,117
data 1476,117,1476,75
data 1602,73,1602,117
data 1581,117,1507,169
data 1582,227,1602,227
data 1602,273,1476,263
data 1476,221,1482,221
data 1457,202,1444,209
data 1444,219,1460,220
data 1460,262,1356,255
data 1888,299,1786,289
data 1786,241,1796,241
data 1789,229,1723,226
data 1716,236,1725,236
data 1725,284,1624,275
data 1624,229,1640,230
data 1699,118,1687,118
data 1687,72,1827,69
data 1827,118,1814,119
data 1872,246,1888,248
data 1888,298,1756,153
data 1738,186,1773,187
data 1757,154,1910,300
Enjoy