home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / aim / !aim / macros / demosch < prev    next >
Encoding:
Text File  |  1990-10-13  |  4.5 KB  |  143 lines
  1. * Analysis of electronic scheme 
  2. * by Cellular Logic Operations 
  3. * Frans Groen
  4. *
  5. readf scheme,A
  6. @_corshad   * correct the image for shading
  7. * obtain from the corrected image
  8. * a binary image by thresholding
  9. thresh B,B,1,220    * threshold
  10. toff
  11. doff        * display off
  12. bcop 1,8    * copy the thresholded image
  13. bcop 1,6    * original in green
  14. inv 6       * after inversion
  15. *
  16. * separation of drawing and text
  17. *
  18. *
  19. * fill small holes
  20. bcop 8,7,b,b       * copy bitplane
  21. don
  22. erosion 1,8,4,0,b  * erode small holes away
  23. prop 511,8,7,8,0,b * propagate for what remains
  24. inv 8              * cleaned drawing in red
  25. don,4              * multi-bitplane display on
  26. bcopy 8,5,b,b      * save original in b5
  27. doff               * display off
  28. *
  29. * make skeleton
  30. skelet 511,8,1,b   * skeleton in b8
  31. don                * single bitplane display
  32. bcopy 8,4          * save skeleton in b4
  33. *
  34. * shave skeleton
  35. bcopy 8,7,b,b       * copy in b7
  36. -skelet 16,7,1,b    * remove strokes of length 16
  37. exor 8,7,7,b        * find strokes
  38. vertices 8,0,b      * vertices in bitplane 3
  39. dilation 1,8,8,0,b  * enlarge vertices
  40. propag 511,8,7,8,0,b * propagate vertices in strokes
  41. exor 4,8,8,b        * cleaned object in b8
  42. bcopy 8,4           * save in b4
  43. *
  44. * separate text based upon vertices in 
  45. * the skeleton with removed strokes
  46. * 
  47. bcopy 8,7            * copy for propagation mask
  48. vertices 8,0,b       * find vertices
  49. propag 511,8,7,8,0,b * propagate vertices in skeleton
  50. bcop 8,4,b,b         * save cleaned skeleton in b4
  51. propag 511,8,5,8,0,b * propagate skeleton in drawing
  52. doff                 * display off
  53. reset 7              * reset for display
  54. don,4                * multi-bitplane display 
  55. bcop 8,5             * save original in b5
  56. *doff                 * display off 
  57. *
  58. *analyse objects
  59. *capacitors : big objects
  60. bcop 5,6            * original in b8
  61. ero 4,6,4           * find capacitors
  62. prop 4,6,5,8,0,b    * propagate back
  63. *  capacitors in b6
  64. *resistors : objects enclosing small holes
  65. don,4
  66. inv 5,b             * invert
  67. bcop 5,7            * original in b7
  68. ero 5,7             * erode 5 times
  69. propag 511,7,5,8,0,b * find what remains
  70. exor 5,7,7,b        * find what disappears
  71. *  resistors in b7
  72. * opamps
  73. bcop 5,8
  74. erosion 7,8,8,0,b   * erode 7 times
  75. propag 511,8,5,8,0,b * find what remains
  76. exor 5,8,8,b        * and what disappears
  77. exor 7,8,8,b        * removes the resistors
  78. doff
  79. *  opamps in b8
  80. * finds location of components in scheme
  81. *   extend opamps
  82. dilation 2,8,6,0,b * extend opamps  
  83. bcopy 8,1,b,b      * save seed bitplane
  84. propag 3,8,4,6,0,b * propagate in skeleton
  85. or 1,8,8,b         * or seed bitplane
  86. bcopy 8,1,b,b      * opamps in b1
  87. * extend resistors
  88. dilation 2,7,6,0,b * extend resistors
  89. bcopy 7,2,b,b      * save seed bitplane
  90. propag 3,7,4,6,0,b * propagate in skeleton
  91. or 2,7,7,b         * or seed bitplane
  92. bcopy 7,2,b,b      * resistors in b2
  93. * extend capacitors
  94. bcopy 6,3,b,b      * save seed bitplane
  95. propag 3,6,4,6,0,b * propagate capacitors in skeleton
  96. or 3,6,6,b         * or seed bitplane
  97. don,4              * multi-bitplane display on
  98. bcopy 6,3,b,b      * capacitors in b3
  99. * determine endpoints and branchpoints
  100. * find scheme without components
  101. bcop 4,8         * get cleaned drawing (b4)
  102. inv 8            * invert
  103. or 1,8,8         * get rid of opamps
  104. or 2,8,8         * resistors
  105. or 3,8,8         * capacitors
  106. inv 8            * drawing without components
  107. bcopy 8,6        * copy in b6 for vertices
  108. bcopy 8,7        * copy in b7 for endpixels
  109. * find endpixels of the components
  110. endpix 7,0,b     * find endpixels
  111. dilation 2,7,6,0,b * extend endpixels
  112. * find vertices
  113. vertices 6,0,b
  114. dilation 2,6,6,0,b
  115. *
  116. *dilate lines because of low_res display
  117. dilation 1,8,6,0,b
  118. or 6,8,8
  119. or 7,8,8           * lines    :        876.....
  120. exor 8,6,6         * vertices :        87......
  121. exor 8,7,7         * endpixels:        8.6.....
  122. * insert components
  123. or 1,8,8           * opamps   :        8......1
  124. or 2,7,7           * resistors:        .7....2.
  125. or 3,6,6           * capacitors:       ..6..3.. 
  126. reset 5 b
  127. gdisp b
  128. * Change the colours, using don,5 display mode 
  129. * (Ed Doppenberg 5-8-90)
  130. clear c
  131. bcopy 1 5 b c   * copy op.amp in bit plane 5 (red)
  132. bcopy 2 2 b c   * copy resistors in bit plane 2 (blue)
  133. bcopy 3 3 b c   * copy capacitors in bit plane 3 (green)
  134. bcopy 6 4 b c   * copy vert.+horiz.+cap. bit plane 4 (l.blue)
  135. exor 3 4 4 c    * strip capacitors
  136. bcopy 7 7 b c   * copy endpoints + vert+horizon in bit plane 7 (yellow)
  137. exor 4 7 7 c    * strip,
  138. and 4 7 7 c     * every thing execpt endpoints
  139. exor 7 4 4 c    * strip endpoints 
  140. don,5
  141. gdisp c
  142. don 1           * back to normal display mode
  143.