Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1351 1765 (N37W51 L=137)   395     46        0 (1325/1749-1386/1779) -63.4 W47-W53 N35-N39
      2 1494 1664 (N27W53 L=140)   667     95        1 (1447/1636-1545/1687)  -5.2 W47-W58 N25-N28
      3 1645 1553 (N17W57 L=144)  1033    118        5 (1611/1497-1676/1606)  56.3 W53-W62 N13-N19
      4 1265 1554 (N27W30 L=117)   447     95        2 (1222/1527-1314/1576) -51.3 W27-W32 N24-N29
      5 1170 1334 (N17W16 L=103)   689    264        2 (1061/1292-1280/1410) -53.1 W11-W21 N12-N24
      6 1887 1324 (S03W71 L=158)   907    133        1 (1859/1266-1922/1382) -74.1 W68-W74 S06-N01
      7  783 1327 (N27E07 L= 80)  1615    579        3 ( 556/1231-1037/1380) -28.2 E22-W06 N14-N32
      8 1889 1098 (S15W62 L=149)   763    104        2 (1867/1051-1906/1151)  45.0 W58-W65 S17-S11
      9 1436 1046 (S05W24 L=111)   294    125        0 (1423/ 979-1450/1097)  56.3 W21-W25 S08-S02
     10 1788  964 (S19W48 L=135)  1151    176        3 (1708/ 918-1862/1002)  -3.6 W40-W56 S20-S17
     11 1927  885 (S29W67 L=154)   623     78        1 (1888/ 867-1962/ 899)  -7.1 W59-W75 S30-S27
     12 1749  769 (S30W43 L=130)   394    114        0 (1697/ 732-1786/ 805)  12.5 W37-W46 S30-S28
     13 1006  764 (S10E07 L= 80)   282     91        0 ( 967/ 739-1032/ 804)  21.8 E09-E04 S11-S08
     14  472  730 (S00E40 L= 47)   655    205        2 ( 389/ 674- 551/ 774) -33.7 E45-E35 S04-N03
     15  176  697 (N03E71 L= 16)  1154    122        2 ( 138/ 651- 208/ 745)  39.8 E79-E63 N00-N05
     16  641  698 (S06E30 L= 57)   204     50        1 ( 624/ 671- 665/ 720)  45.0 E31-E28 S07-S04
     17  497  611 (S08E43 L= 44)  1250    191        6 ( 442/ 545- 569/ 666)  20.0 E48-E37 S11-S03
     18  854  560 (S18E22 L= 65)   292     88        0 ( 808/ 543- 893/ 585)   0.0 E24-E18 S19-S17
     19  368  474 (S13E61 L= 26)  1215    225        2 ( 296/ 434- 451/ 553) -48.4 E66-E53 S16-S07
     20  547  522 (S14E43 L= 44)   269     41        0 ( 514/ 509- 572/ 538) -26.6 E45-E40 S14-S12
     21  809  415 (S26E30 L= 57)   908    193        4 ( 723/ 377- 888/ 472)   4.1 E37-E23 S27-S24
     22  600  275 (S31E56 L= 31)  3424    236        7 ( 534/ 157- 666/ 373)  34.7 E79-E49 S40-S22
  

    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