fjkfhjfjhfjhfjh

Jul 9

My first working AMOS2 program!

5 comments

So, with the latest 09.07.2019 version, I finally got my first program working. It's an old Demo effect routine from 1993. I named it "Ice Cube in Heaven" back then :-D

 

If I only had a way of posting it here... If I post the code, it gets messed up, because the forum can not handle long lines, and it chops it up, and you have no idea what is suppose to be on the same lines... It also messes up indentation and tabs and spaces, even if I paste it in a code block... And there is no file attachment choice... :-/

 

Ok, here it is on OneDrive: https://1drv.ms/u/s!AlRJEmP4oTIsgeYcD09W93VbPMR1oA

 

Is Francois still working on Amos2? Since I have found this new web site I havent seen much in terms of updates.

 

Downloaded latest build from this web site and I tried to import and compile a couple of Amos files last night and still getting issues.

Jul 11

Yes he is, but he has both the website, the help/documentation, Amos2 itself, and several prototype projects going at the same time as having a full time job. He is also starting a company. He will quit the full time job July 19th, to work fulltime on AMOS. Expect great progress in a few months :-D Now it's in alpha version, and only like 70% of the commands are implemented. There are many bugs, and he just made a new group on FaceBook, for bug reporting. He is thinking about removing this forum, and just use FaceBook.

DigitalStefan
Jul 21

I hope we can retain the forum. Aside from the fact that I deleted my Facebook profile a long time ago, Facebook is just not a great platform.

 

Reddit or a forum like this are much better.

Jul 24Edited: Jul 24

Thank you Oystein. Yeah I was thinking of that, but I think such a forum is complementary to Facebook, so I wont. Some people are also patron and not on FB, so it is a must too. And you too it seems (read my response to your new post). At the end, there will be Facebook group, here, and a Discord channel that I just created for instant chatting. All the other ones (amos.tech for example) will be gone in the next days. And I love so much the moving clouds in the back, so relaxing. It makes me think of my skydiving years in 1982-1984 and 1997-1999... and the reason why I chose it actually. Haaaaa it was good flying like a bird. Soon back for me I hope, so expensive... And you might see me passing in the video in the back! :)

New Posts
  • Hi! Found this wonderful AMOS2 a couple of months ago. I finally had little time to try it out and it is great! I guess I'm going to port some old effects from the 90's since I've kept everything intact... There is now a LINK to the effect: http://www.archmonsters.com Set Buffer 100 ' THE KOCH-TRIANGLE ' ------------------- ' ' AmosVersion 3 ' By Greippi ' 29.8.1993 ' F1LL=False CALC=2 'Screen Open 0,320,256,2,Lowres 'Palette $333,$876 'Paper 1 : Cls : Flash Off : Curs Off 'Double Buffer SW=Screen Width/2 SH=Screen Height/2 Degree Dim MX2(3),MY2(3),MX(3),MY(3),X#(2,30720),Y#(2,30720) Gr Writing 2 AGAIN: Cls 1 'Screen Swap Cls 1 'Autoback 1 ACT=2 BUF=1 Home Centre "AMOS-KOCH By Greippi 29.8.1993 [Q]uit" print Centre "Amos2 update (incl Floats) 2.10.2019" print Centre "Click 3 points on screen" For A=1 To 3 UPDT: If F1LL=True Print At(14,5);"[F]ill: On " Else Print At(14,5);"[F]ill: Off" End If Print At(6,6);"Iteration[1-6]:";CALC Do Multi Wait If Mouse Key=1 MX(A)=X Screen(X Mouse)-SW MY(A)=Y Screen(Y Mouse)-SH ink 4 Circle MX(A)+SW,MY(A)+SH,2 ink 5 Circle MX(A)+SW,MY(A)+SH,1 Repeat Until Mouse Key=0 MX(A)=MX(A)*15 MY(A)=MY(A)*15 Exit End If A$=Inkey$ If A$="f" If F1LL=True F1LL=False Else F1LL=True End If Goto UPDT End If If A$="q" Then Edit B=Val(A$) If B>0 and B<7 CALC=B Goto UPDT End If Loop Next A 'Autoback 0 Col0=$000 Col1=$888 colour 0,Col0 colour 1,Col1 Paper 0 ink 1 REPEETTER: For Z=200 To 6 Step -1 Z2#=Z/8 : MR=3 ROT#=ITE/2 For A=1 To 3 VX#=Cos(ROT#)*MX(A)+Sin(ROT#)*MY(A) VY#=Cos(ROT#)*MY(A)-Sin(ROT#)*MX(A) MX(A)=VX# MY(A)=VY# Next A For A=1 To 3 X#(BUF,A)=MX(A)/Z2#+SW Y#(BUF,A)=MY(A)/Z2#+SH Next A Cls If F1LL=True Polygon X#(BUF,1),Y#(BUF,1) To X#(BUF,2),Y#(BUF,2) To X#(BUF,3),Y#(BUF,3) Else Polyline X#(BUF,1),Y#(BUF,1) To X#(BUF,2),Y#(BUF,2) To X#(BUF,3),Y#(BUF,3) To X#(BUF,1),Y#(BUF,1) End If For ITE=1 To CALC Swap ACT,BUF HUR=0 For A=1 To MR If A=MR DEIX#=X#(ACT,A)-X#(ACT,1) DEIY#=Y#(ACT,A)-Y#(ACT,1) Else DEIX#=X#(ACT,A)-X#(ACT,A+1) DEIY#=Y#(ACT,A)-Y#(ACT,A+1) End If X1#=X#(ACT,A) Y1#=Y#(ACT,A) XS=Sgn(DEIX#)*-1 YS=Sgn(DEIY#)*-1 TRX#=DEIX#/3 TRY#=DEIY#/3 DEIX#=Abs(DEIX#) DEIY#=Abs(DEIY#) OGX#=DEIX#/2*XS+X1# OGY#=DEIY#/2*YS+Y1# TX#=TRX#*Cos(90)-TRY#*Sin(90) TY#=TRY#*Cos(90)+TRX#*Sin(90) TX#=TX#+OGX# TY#=TY#+OGY# TRX#=Abs(TRX#)*XS TRY#=Abs(TRY#)*YS PX1#=X1#+TRX# PY1#=Y1#+TRY# PX2#=PX1#+TRX# PY2#=PY1#+TRY# If F1LL=True Polygon PX1#,PY1# To TX#,TY# To PX2#,PY2# Else Polyline PX1#,PY1# To TX#,TY# To PX2#,PY2# End If Inc HUR : X#(BUF,HUR)=X1# : Y#(BUF,HUR)=Y1# Inc HUR : X#(BUF,HUR)=PX1# : Y#(BUF,HUR)=PY1# Inc HUR : X#(BUF,HUR)=TX# : Y#(BUF,HUR)=TY# Inc HUR : X#(BUF,HUR)=PX2# : Y#(BUF,HUR)=PY2# If Mouse Key=1 Goto POIS End If Next A MR=MR*4 Next ITE 'Screen Swap Wait Vbl Next Z Col0 = Col1 Col1 = Rnd(15)*256+Rnd(15)+Rnd(15)*16 Colour 0,Col0 Colour 1,Col1 goto REPEETTER POIS: Repeat A$=Inkey$ Multi Wait Until Mouse Key=1 or A$<>"" Repeat Until Mouse Key=0 Goto AGAIN