daily pastebin goal
52%
SHARE
TWEET

ChartDraw-Peruse-Edit

janpj Aug 17th, 2017 54 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1. rem ##############################################################
  2. rem # Ref: https://cauldronofartandcraft.wordpress.com/chartdraw/
  3. rem ##############################################################
  4. rem ---
  5. <small>TEMPORARY - EDIT: #### ---------------------------------###
  6. ' [Edit with a simple word processor!  Editing with DosBox/QBasic/Edit is more cumbersome]
  7. ' (Full screen width, no word-wrap, save as plain text)
  8. '----------------------------------------------------------###
  9. ' [Tested in DosBox 0.74 (Linux & Windows 10)]--[Linux: mouse/freeze ?]
  10. ' [Not yet tested in Dosemu]
  11. ' [Not yet tested in DOS/Windows proper]
  12. ' []--[As compared with Linux, using DosBox in MS Windows may avoid MS-DOS hiccups, and at the moment of writing I haven't recently tested if Linux here can yield multiple windows]</small>
  13.  
  14. <small>- VirtualBox may be an alternative platform.</small>
  15.  
  16. <small>ChartDraw is tested in Windows 10 and will soon be tested more in Linux. As I don't now have an older Windows version, ChartDraw is not tested in Windows DOS-mode proper.
  17. ############# ------------------------------------------###
  18. </small>
  19.  
  20. <small>''Nov 01 2011 09:52
  21. ' [Edited in a simple word processor, with full screen width, no word-wrap, saved as plain text (mostly Linux)
  22. ' - and in QBasic/Edit (mostly DOS emulators)]</small>
  23.  
  24. <small>' READ SUB 'LEGENDprgSPECS' !!!
  25. ' ^[Legend & Program Specifications]
  26. ' ^[SUB'd to conserve memory for main module]</small>
  27.  
  28. <small>' -> [The vertical, brown line along boxes (right) is only for programming reasons - it shall be removed in prg release!]
  29. ' [It is kept there temporarily, because it now also serves as a margin control on diverse printed blank spaces.]
  30. ' [Search 'leak' or 'LINE (528, 0)' to find it (with comments).]</small>
  31.  
  32. <small>'|---------------------------------------------------------------------------|
  33. '|SUB'd LEGENDprgSPECS consists of rem'd lines only! '|-----------------------------------------------------------------------------|
  34. '|SUB'd WHAT..'s are prg bits&remnants of which the purpose is not all clear! |
  35. '|^^[they are 'strayed' left-overs from early programming efforts...] <(rem'd) |
  36. '|-------------------------------------------------------------------------------------------|
  37. '|SUB'd DerivedMsgText gives a description as to applying Derived Houses ['t'urned] <(rem'd) |
  38. '|-------------------------------------------------------------------------------------------|
  39. '|SUB'd PRGProject gives/proposes potential extension(s) to this prg! |
  40. '|--------------------------------------------------------------------|</small>
  41.  
  42. <small>'[Some of the line no. refs (parentheses in prg) are obsolete! (stems fm old prg in GWbasic)] <-[for my info only] <-
  43. '[Search the term 'what is this ?' or ':stop:'] <--[redundant lines (give room for QBasic !??)]
  44. '[Search '##' for ambiguous or plain wrong program(ing) (details)]
  45. '[-- Is the last main Gosub Returned ? --]</small>
  46.  
  47. <small>BEEP: '<[DosBox: ' '<[Dosemu:
  48. ''------------------------------------------------------------------------------------------------------
  49. '' ''[g$]  g$='N']
  50. '' -> [In qAMAP, g$ and cg$ are closely related, but they must not be confused !] <-
  51. '' cg$ ]
  52. ''------------------------------------------------------------------------------------------------------</small>
  53.  
  54. <small>'['Equal Houses' are drawn by default (within own circle segment, with own color)]
  55. '['Quadrant Houses' (dialog-chosen system) are to be drawn within the quadrants (within the sky-colored hemispheres)]
  56. '[^^ Quadrant houses are as yet not implemented in prg, but their presence is DIM'd <-(awaiting only pure calculations!)]</small>
  57.  
  58. <small>SUB LEGENDprgSPECS : '-------------------------|
  59. ' init = new chart, 1st run |
  60. ' coord = coordinate(s) |
  61. ' pos = position(s) |
  62. ' har = harmonic(s) |
  63. ' cyc = turned ('cycle') |
  64. ' ex: = example(s) |
  65. ' 'Abc:' = a label <-(in prg!) |
  66. ' blw = below |
  67. ' flw = (the) following |
  68. ' immy = immediately [+ 'asap'] |
  69. ' prg = (this) program |
  70. ' fm = from |
  71. ' cf. = confer ('see also') |
  72. ' cmp = compare |
  73. ' ): = that is / the same as |
  74. ' redun(s) = redundant(s)/unnecessary(ies) |
  75. ' Tropos = (føde)sted (?) |
  76. ' dum(s) = dummy(-ies) |
  77. ' -'- = same as line(s) above |
  78. ' ^ = cf. (in) above line(s) |
  79. '  = direction (in comments) |
  80. '  = -'- |
  81. ' var(s) = variable(s) |
  82. ' elem = element(s) <(ex: dim's element 0] |
  83. ' spec = special |
  84. ' specs = specifications |
  85. ' auto = automatic / by itself |
  86. ' comm = comment or communicate |
  87. ' ex./EX. = example |
  88. ' chorder = 'change' order (ex.!) |
  89. ' rvs = reverse |
  90. '--------------------------------------------------------------------|
  91. '# dormant or redun prg lines!  -'- |
  92. '--------------------------------------------------------------------------|
  93. ' Places in code needing check (or attention) are marked/scattered with  SUB SA[T] <- 'SAT' because of existing variable SA$ !  SUB SU[N] <- 'SUN' -'- SU$ !' MEMO: 'Caps Lock' <-[inkey/input Caps & lower! [memo errcheck (esc)]]!
  94. ' MEMO: Input+Enter <-[errcheck][+ backspace, etc.]!
  95. ' MEMO: +1 pixel i PAINT is often too little (leak!)  1 used]
  96. ' MEMO: Change color harmonics arrowheads (only radix/turned = east/south!)
  97. ' MEMO: Harmonics a.o. have no hemispheres! <(spec color 'sky'!) <(and houses!)
  98. ' #
  99. ' CALCULATED POSITIONS ETC. AS YET NOT PRECISE !!! <-[trunc, desi-/seksagesimal etc.] !! <[here in 'amap'] <-['apel' OK!!]
  100. ' ^[also some aspects (e.g. sextiles) yields too large an Orb due (same) reason (imprecision)]
  101. '
  102. ' ^^<['amic' is only used here temporarily (for now.) 'amic' is to be replaced simply by insertion ] <-[is 'amic' ok?]
  103. ' ^^ [of proper math equations for Horizon (ASC-DESC) & Meridian (MC-IC) into 'apel' - then transported]
  104. ' ^^ [into those data files that are read here in 'amap'. ]
  105. '
  106. ' ^* ['atie' is depend[a][e]nt/depends on kind and number of modules applied/used in distribution ]
  107. ' ^* ['all' is also depend[a][e]nt; but is self-explicatory [<(-atory?)] ]
  108. ' #
  109. ' ['AMAP' yields independently revolving wheels: Zodiac, Houses, Quadrants, a.o.]<-[DIVERSE COLORS,graduation <(?), etc.]
  110. ' [=Falling= [g$='t'] <-[+ Hindu/Indian, etc.][diverse Zodiacs / houses / etc.] <[+ Ebertin/Harmonics/etc.]
  111. ' [ex: trop/sid,... ]
  112. ' [Zodiac wheel can easily be removed (or replaced with f.x. only one ]
  113. ' [(graduated) circle) by CIRCLE diameter inner, then PAINT, border c15.]
  114. ' [Ex: in order to plot outer positions of some sort]
  115. ' #
  116. ' USE VARIABLES FOR: [SCREEN 'X'][LINE 'xmax' 'ymax'][WIDTH x,y][etc.]  (For now, this prg DRAWs pixels with or without prefix 'b'.) <-
  117. '
  118. ' [Some of grad/sector division lines may 'stain' already drawn circles due wrong length!?]
  119. ' [^[or is it (colored) background shining thru?] <-^(I have not localized reason to this sporadic 'error')]
  120. '
  121. ' 'C15'
  122. ' => COLOR 6 (brown) MUST NOT BE USED ANYWHERE !!! <-[used for blanking ('paint') of screen parts]
  123. ' => ... beskrivelse av inread DIRs etc. ... syst-avhengig ... hvor noe må endres ved portering ... ###
  124. ' FREE VARs => [i%,l%,il%]---[pz$]---??---
  125. '
  126. ' M i s c:
  127. ' -------
  128. ' #
  129. ' => a% is an 'opaque' (difficult to follow) variable - check it thru prg!  It seems like color (draw 'cX') is lost in gosubs & (for-next) loops & after PSETs Using PAINT keeps that color also in 'Draw' until a 'Pset' is made  ^(seems like PAINT's coordinates (x,y) are also kept till new 'Pset')^^!
  130. ' #
  131. ' [All GOSUB's RETURNed ?] <-(Check: ChartDraw,19000+,Derived+) :+: [No open loops / files ?]  1) <-[1 may leak!] [pset redun's ?] ' ^^ & 'CHART:' ^^
  132. ' CHECK: Search '[float]'! <[k ' [check xx$ i alle WAITx] [redun 'pset's]
  133. ' LOOP WHILE / INKEY / if-endif /etc. <-[blokk!?] <*
  134. ' CheckL [whatL16000+][1635/36][1230][19020][f%:1635][,68 e3$][watchforredunsubs Boxes+/WAITx !][+ noGOTOreturns!?]
  135. ' FILES [v/RUN][AllSubsContained?]
  136. ' POKE/LOC/etc.
  137. '' IF abc$  "B" THEN ...: '[asc() > 64]--?---
  138. ' seksagesi-/desimal [Trunc/Rounding:sub50000 !?]
  139. ' [abs(val)/359-60 ..] <-[cf40000+]?
  140. ' CINT/INT/var% [h%=0?]<-[anyuse?][h% 300] <-(cf15400/19000/40000)][m <-float?] <-[check [float?] loops!] <*
  141. ' 0-elem arrays ['Rx'?]
  142. ' n$,p$(0,x,y)<-[(alt.)p.akser? <-unused!][n$(0,x)?] <-[p$(0,x) <-temp/loan!]
  143. ' disable/use Arrows,FKeys?
  144. ' 'skygge'/curson[immy mode=ex run](var$='[ ]'?)
  145. ' PUT/DRAW/WINDOW/PMAP/etc.
  146. ' draw"ta.."DPrecis?(se'cos')!
  147. ' [input;$;var][print;var$][;!]['swap']
  148. ' 'alt+keypad' chars diff screen (1)2 ! <-[apel 60 lines?]! <-<*
  149. ' ms$:ex:menu:g$='n',rename dir, etc.?
  150. ' [printer!][dir piping?]
  151. ' [^^seL2120+^^]
  152. END SUB</small>
  153.  
  154. <small>SUB WHAT : 'L20700: REM*what'sthis*? [float!]* ' <-[(what..'s) & blw! [L nos. has no connection to this present prg!]]
  155. ' :stop:S$=RIGHT$(N$(X%,1),3):[x%<-nei!]*
  156. ' :stop:FOR Z=1 TO 12
  157. ' :stop:IF S$=S$(Z) THEN I%=Z
  158. ' :stop:NEXT Z
  159. ' :stop:FOR Z=1 TO 12
  160. ' :stop:E$(Z)=S$(I%)
  161. ' :stop:I%=I%+1
  162. ' :stop:IF I%=13 THEN I%=1
  163. ' :stop:NEXT Z
  164. ===
  165. ' L20770: :stop:II%=0 ' -'-
  166. ' :stop:FOR X=1 TO 12
  167. ' :stop:E$(X)=E$(FF%+II%)
  168. ' :stop:II%=II%+1
  169. ' :stop:IF (FF%+II%)=13 THEN II%=1
  170. ' :stop:NEXT X
  171. END SUB
  172. ===
  173. SUB whatL4500 : ' [redun ?] ' -'-
  174. ' :stop:dublett?::l%=0:FOR Z=1 TO 12:rem:[float?]
  175. ' :stop:IF S$=S$(Z) THEN Z=12:l%=1
  176. ' :stop:rem:NEXT Z
  177. ' :stop:rem:IF l%=1 THEN RETURN
  178. END SUB
  179. ===
  180. SUB PRGProject
  181. ' Revolve whole black(?)-encircled white(?) line/aspect-drawn inner-area
  182. ' relative to the other (main) circles? <['wheels-within-wheels] ??
  183. '
  184. ' ^(now encircled with color 7=white) <-[cf. 'TempCirc:' & 'Tropos:']
  185. '
  186. ' ^(with grad/fractal/Ebertin'ic interpretational symbolics !)
  187. END SUB
  188. </small>
  189.  
  190. <small>' <-[EH$='' means that a 'normal' ascendant is drawn in the eastern horizon/ecliptic. ]</small>
  191.  
  192. <small>' <-[EH$='A' means that 0 Aries (zero degrees  spring equinox) is drawn as the eastern]
  193. ' ['horizon' (graphically in place of the ascendant) - still retaining the real axes. ]
  194. ' [This can be practical if comparing different charts, which in 'A' in unlimted ]
  195. ' [numbers can be superimposed, or the one drawn within the other - or, simply, if ]
  196. ' [no radix clock-time is available. ]</small>
  197. ----------------------------------------------------------------------------------------------------
  198. 'END
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top