Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1619 1589 (N22W55 L=255)  1506    276        3 (1519/1551-1722/1645) -26.6 W48-W65 N18-N27
      2 1700 1439 (N12W55 L=255)   696    159        1 (1632/1381-1742/1477) -53.1 W49-W57 N07-N15
      3 1148 1419 (N22W16 L=216)  2186    557        7 ( 923/1379-1433/1445) -17.4 W01-W33 N16-N27
      4 1254 1257 (N11W18 L=218)   362    135        0 (1188/1220-1300/1280) -45.0 W13-W20 N07-N12
      5 1569 1254 (N04W38 L=238)   259     38        0 (1550/1233-1591/1275)  18.4 W36-W39 N03-N05
      6  143 1209 (N29E62 L=138)   624    207        0 ( 112/1187- 182/1242) -26.6 E66-E57 N27-N31
      7  707 1161 (N16E16 L=184)   668    165        0 ( 631/1096- 767/1213) -52.1 E20-E13 N10-N19
      8 1833 1102 (S10W57 L=257)   863    199        2 (1788/1060-1889/1136) -10.3 W52-W63 S11-S08
      9  212 1075 (N20E55 L=145)   460     73        3 ( 186/1041- 235/1105) -45.0 E57-E52 N17-N21
     10 1796 1020 (S14W51 L=251)  1192    238        4 (1748/ 964-1853/1075)  24.4 W46-W57 S16-S11
     11 1878 1010 (S16W60 L=259)   417     81        0 (1860/ 962-1893/1046) -80.5 W58-W61 S19-S13
     12 1824  918 (S21W52 L=252)   919    182        2 (1790/ 837-1856/ 979)  69.4 W48-W56 S24-S16
     13 1524  959 (S12W29 L=229)   264     99        1 (1477/ 936-1560/ 978) -26.6 W25-W31 S13-S10
     14  286  897 (N08E51 L=149)   390    179        0 ( 229/ 882- 351/ 907) -10.3 E56-E45 N06-N09
     15  300  611 (S09E59 L=141)   687    162        0 ( 287/ 550- 315/ 677)  53.1 E63-E56 S12-S04
     16  251  616 (S08E65 L=135)   541    110        0 ( 237/ 573- 267/ 668)  63.4 E67-E62 S10-S04
     17 1206  505 (S33W01 L=200)   903    219        0 (1100/ 443-1268/ 595)  23.2 E08-W06 S35-S28
     18  638  505 (S21E36 L=164)   545    180        2 ( 586/ 451- 668/ 580)  31.0 E41-E31 S23-S16
     19  749  404 (S30E33 L=167)  1140    267        2 ( 693/ 322- 809/ 498)  33.7 E40-E25 S34-S24
     20  290  456 (S18E70 L=130)   860     75        0 ( 257/ 418- 319/ 489) -51.3 E72-E67 S20-S15
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y