hedgehogs bezier_curve and sierpinski_v1.1 (2022,12.9)
Dec 18, 2019 19:47:24 GMT -5
matthew likes this
Post by hedgehog7777 on Dec 18, 2019 19:47:24 GMT -5
2022,12.9 :find : .hedgehogs_bezier_curve.zip
www.mediafire.com/file/b2qb9ulct5vjutf/.sierpinski_hedgehog_v1.1.zip/file
'*********************************************************************************************************************************************************
'letter_0050.57.18.final: 4:31 PM 9/30/2019
'-------------------------------------------------------------------------------
InScanKey ()+inkey$():
press keys to change
variables:
F80(key),f75(key) :becomes 0(false) or -1(true)
f90(key),f92(key) :becomes increment+1. max cs(key) or ci(key)
cs(key) :what is maximal increment ( inscan )
ci(key) :what is maximal increment ( inkey )
d2 :amount of keys pressed
d1(key) :key is pressed in combination with 'CTRL' and/or 'SHIFT'
g :inkey
arrow(key) :either 0 or -1 (inscan)
'
to activate F80(key),f75(key) must first :inc_inscan( key )
all inkey [ f90(key),f92(key) ] is activated with :inc_inkey()
'-------------------------------------------------------------------------------
to the letters:
press Ctrl+shift+1
'-----------------------------------------------------------------------------------------------
Folders:
basic4gl\Basic4GL.exe
basic4gl\170 demos\09_2019\09.17.tu.letter_0050.xx\letter_0050.57.18.final
basic4gl\170 demos\09_2019\09.17.tu.letter_0050.xx\files\text\letter\load_save_filnames.01.txt
'-----------------------------------------------------------------------------------------------
01:outside of basic, use a notepad and load:load_save_filnames.01.txt:
chr_charts_(063).txt 'load (1st +
chr_charts_(105).txt 'save 2nd line)
------------------------------------------------------------
load and save filenames can be the same....4:00 PM 9/30/2019
'-----------------------------------------------------------------------------------------------
in the 1st line :write filename to load
in the 2nd line :write filename to save
between :chr_charts_(063).txt + 'load (1st +
use only spaces, not TABS
'
in notepad:with mouse goto File, press left.mouse_button (LMB),goto save and press LMB.
'-----------------------------------------------------------------------------------------------
'
02:start:Basic4GL.exe
03:load :letter_0050.57.18.final
'
04:goto 'GO',press LMB.
'
in letter_0050.57.18.final:
05:press Ctrl+shift+1 to goto 'letters'
06:(the first 6 lines are prg_variables to observed by programmer)
07:press F2 to enter Full-text-mode.
Fly forward:
08: press F1 to change Flying speed.(90-99)
use keys: arrow UP + arrow DOWN
to fly forward or backward
use mouse to choose where to fly.
(mouse_X for 720 degrees,mouse_Y for 360 degrees)
check 3D-vector-text
09: tx=80,ty=50 (text-size)
Text-mode: F2=OFF F2=ON
line_x tx-9 tx
lines: 43 ty-2
'
10: adjust text_lenght :press 'F9'
11: overwrite or insert text:press 'Insert'
12: delete text :press 'Delete'
13: delete line :press 'End'+'delete'
14: insert line:go with cursor to line_begin (x=0),press enter.
15: bring text to the next line at cursor_position:press enter
'
16: save text :press 'CTRL'+'F11'
'
17: steer cursor with 4 arrows:press left,right,up,down
'
18: press 'ctrl'+'Z':
use keys QA,WS,ZX to fly different:
QA:up+down
WS:forward,backward
ZX:left,right
19: press again 'ctrl'+'Z':to go into text-mode.
20: press TAB (+) or shift+TAB (-)
21: use mouse to goto to text-position.
'-----------------------------------------------------------------------------------------------
'(program does not run perfect with slow computers...11:41 AM 1/3/2020)
'
letter_3d.zip (926.56 KB)
www.mediafire.com/file/b2qb9ulct5vjutf/.sierpinski_hedgehog_v1.1.zip/file
'*********************************************************************************************************************************************************


'letter_0050.57.18.final: 4:31 PM 9/30/2019
'-------------------------------------------------------------------------------
InScanKey ()+inkey$():
press keys to change
variables:
F80(key),f75(key) :becomes 0(false) or -1(true)
f90(key),f92(key) :becomes increment+1. max cs(key) or ci(key)
cs(key) :what is maximal increment ( inscan )
ci(key) :what is maximal increment ( inkey )
d2 :amount of keys pressed
d1(key) :key is pressed in combination with 'CTRL' and/or 'SHIFT'
g :inkey
arrow(key) :either 0 or -1 (inscan)
'
to activate F80(key),f75(key) must first :inc_inscan( key )
all inkey [ f90(key),f92(key) ] is activated with :inc_inkey()
'-------------------------------------------------------------------------------
to the letters:
press Ctrl+shift+1
'-----------------------------------------------------------------------------------------------
Folders:
basic4gl\Basic4GL.exe
basic4gl\170 demos\09_2019\09.17.tu.letter_0050.xx\letter_0050.57.18.final
basic4gl\170 demos\09_2019\09.17.tu.letter_0050.xx\files\text\letter\load_save_filnames.01.txt
'-----------------------------------------------------------------------------------------------
01:outside of basic, use a notepad and load:load_save_filnames.01.txt:
chr_charts_(063).txt 'load (1st +
chr_charts_(105).txt 'save 2nd line)
------------------------------------------------------------
load and save filenames can be the same....4:00 PM 9/30/2019
'-----------------------------------------------------------------------------------------------
in the 1st line :write filename to load
in the 2nd line :write filename to save
between :chr_charts_(063).txt + 'load (1st +
use only spaces, not TABS
'
in notepad:with mouse goto File, press left.mouse_button (LMB),goto save and press LMB.
'-----------------------------------------------------------------------------------------------
'
02:start:Basic4GL.exe
03:load :letter_0050.57.18.final
'
04:goto 'GO',press LMB.
'
in letter_0050.57.18.final:
05:press Ctrl+shift+1 to goto 'letters'
06:(the first 6 lines are prg_variables to observed by programmer)
07:press F2 to enter Full-text-mode.
Fly forward:
08: press F1 to change Flying speed.(90-99)
use keys: arrow UP + arrow DOWN
to fly forward or backward
use mouse to choose where to fly.
(mouse_X for 720 degrees,mouse_Y for 360 degrees)
check 3D-vector-text
09: tx=80,ty=50 (text-size)
Text-mode: F2=OFF F2=ON
line_x tx-9 tx
lines: 43 ty-2
'
10: adjust text_lenght :press 'F9'
11: overwrite or insert text:press 'Insert'
12: delete text :press 'Delete'
13: delete line :press 'End'+'delete'
14: insert line:go with cursor to line_begin (x=0),press enter.
15: bring text to the next line at cursor_position:press enter
'
16: save text :press 'CTRL'+'F11'
'
17: steer cursor with 4 arrows:press left,right,up,down
'
18: press 'ctrl'+'Z':
use keys QA,WS,ZX to fly different:
QA:up+down
WS:forward,backward
ZX:left,right
19: press again 'ctrl'+'Z':to go into text-mode.
20: press TAB (+) or shift+TAB (-)
21: use mouse to goto to text-position.
'-----------------------------------------------------------------------------------------------
'(program does not run perfect with slow computers...11:41 AM 1/3/2020)
'
letter_3d.zip (926.56 KB)