Author Topic: Mondrian, next try to get a TOPIC ...  (Read 696 times)

0 Members and 1 Guest are viewing this topic.

Offline SRS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 628
  • Country: de
  • Schneider CPC464 - what else ?
  • Liked: 627
  • Likes Given: 363
Mondrian, next try to get a TOPIC ...
« on: 21:22, 22 December 19 »
Now, last post got lost in translation ...

https://www.youtube.com/watch?v=FUp3SffxPzw
This video inspired me to build this for CPC (6* ..) in MODE 0


Offline AMSDOS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 3.939
  • Country: au
    • index.php?action=treasury
    • Programs for Turbo Pascal 3
  • Liked: 1157
  • Likes Given: 1924
Re: Mondrian, next try to get a TOPIC ...
« Reply #1 on: 13:05, 25 December 19 »
I could probably recreate this in Hisoft Pascal if this is an invitation to code in ones favourite language, I even wrote a Fill routine earlier (based on what I wrote in BASIC), though faster for being compiled, squares are straight-forward.
* Using the old Amstrad Languages :D   * with the Firmware :P
* I also like to problem solve code in BASIC :)   * And type-in Type-Ins! :D

Home Computing Weekly Programs
Popular Computing Weekly Programs
Your Computer Programs
Updated Other Program Links on Profile Page (Update April 16/15 phew!)
Programs for Turbo Pascal 3

Offline SRS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 628
  • Country: de
  • Schneider CPC464 - what else ?
  • Liked: 627
  • Likes Given: 363
Re: Mondrian, next try to get a TOPIC ...
« Reply #2 on: 22:40, 26 December 19 »
Well, it is just a quickhack from me to show CPC could do that fast and nice in Loco.

Of course everyone can try to write it in his favourite language (JAVA with javagrinder ;) ) for CPC and we would have the most variant oldtimer art computer :)


Offline AMSDOS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 3.939
  • Country: au
    • index.php?action=treasury
    • Programs for Turbo Pascal 3
  • Liked: 1157
  • Likes Given: 1924
Re: Mondrian, next try to get a TOPIC ...
« Reply #3 on: 14:00, 27 December 19 »

Well, it is just a quickhack from me to show CPC could do that fast and nice in Loco.


Indeed, definitely another one to put next to the QuickBASIC example on Rosetta Code!


Quote
Of course everyone can try to write it in his favourite language (JAVA with javagrinder ) for CPC and we would have the most variant oldtimer art computer


One query, unfortunately while I was trying to work out the if number of filled areas were important, I looked up some of that art and noticed the problem it presents of drawning the Black Lines as a series of Squares and Rectangles, which means Lines don't completely run up and/or across the screen  Some of the examples I saw had shapes running at different spots, forming differnt size squares or rectangles. I tried coding this, which kinda works, though I was trying to remove the L shape (which Mondrian doesn't do), by adding Lines 1041 & 1042, though it's not quite working. The idea with this is to draw a line from the shape and look for an intersecting line, unfortunately I can only post as a Screenshot.


Update: I made some improvements on what I coded last night, it's still not 100% perfect, though seems to be behavouring itself on the most part with the occasional L shape creeping in. I'd also had some additional variables, which didn't seem to be doing anything, I think I was trying to use them as a counter and if a certain number was reached, lower the ypos down the screen, though didn't make much difference without.


Code: [Select]

100 MODE 0:DEFINT a-z:BORDER 26:INK 0,26:INK 1,0:INK 2,24:INK 3,1:INK 4,3
110 PLOT 0,398,1:DRAW 638,398:DRAW 638,0:DRAW 0,0:DRAW 0,398
120 c=0:x=0:y=398:RANDOMIZE TIME:RANDOMIZE RND
130 GOSUB 1010
140 x=sx : c=c+1
150 IF c<=5 THEN GOTO 130
160 FOR p=1 TO 8
170   h=INT(RND*640):v=INT(RND*398):IF TEST(h,v)=0 THEN c=2:GOSUB 1110
180   h=INT(RND*640):v=INT(RND*398):IF TEST(h,v)=0 THEN c=3:GOSUB 1110
190   h=INT(RND*640):v=INT(RND*398):IF TEST(h,v)=0 THEN c=4:GOSUB 1110
200 NEXT p
210 CALL &BB18:END
1000 ' Draw Square Shapes & Draw Lines off Square to Remove L Shapes
1010 xp=INT(RND*20)+1 ' Width
1020 yp=xp/1.25 ' Height
1030 MOVE x,y:DRAW xp*32,y,1:sx=XPOS:DRAW xp*32,398-(yp*16):sy=YPOS:DRAW x,398-(yp*16):sy1=YPOS:DRAW x,y:sx2=XPOS
1040 sy5=sy+2:sy6=sy+2:WHILE (TEST(sx,sy6)=0) AND (sy6<398):sy6=sy6+2:WEND:sy6=sy6-2:MOVE sx,sy5:DRAW sx,sy6
1050 sy4=sy1-2:sy3=sy1-2:WHILE (TEST(sx,sy3)=0) AND (sy3>0):sy3=sy3-2:WEND:sy3=sy3+2:MOVE sx,sy4:DRAW sx,sy3
1060 sx3=sx2-4:WHILE (TEST(sx3,sy1)=0) AND (sx3>0):sx3=sx3-4:WEND:sx3=sx3+4:MOVE sx2,sy1:DRAW sx3,sy1
1070 RETURN
1100 ' Fill Square Routine
1110 tb=v
1120 WHILE TEST(h,tb)=0
1130   tb=tb-2
1140 WEND
1150 tb=tb+2
1160 tl=h
1170 WHILE TEST(tl,tb)=0
1180   tl=tl-4
1190 WEND
1200 tl=tl+4
1210 tr=h
1220 WHILE TEST(tr,tb)=0
1230   tr=tr+4
1240 WEND
1250 tr=tr-4
1260 tt=tb
1270 WHILE TEST(h,tt)=0
1280   tt=tt+2
1290 WEND
1300 tt=tt-2
1310 WHILE tb<=tt
1320   MOVE tl,tb:DRAW tr,tb,c
1330   tb=tb+2
1340 WEND
1350 RETURN
« Last Edit: 12:05, 28 December 19 by AMSDOS »
* Using the old Amstrad Languages :D   * with the Firmware :P
* I also like to problem solve code in BASIC :)   * And type-in Type-Ins! :D

Home Computing Weekly Programs
Popular Computing Weekly Programs
Your Computer Programs
Updated Other Program Links on Profile Page (Update April 16/15 phew!)
Programs for Turbo Pascal 3