Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  401 1673 (N16E70 L=120)  1313     92        1 ( 372/1649- 451/1700)  33.7 E80-E65 N14-N18
      2 1435 1621 (N43W08 L=197)   461    149        0 (1380/1565-1477/1680) -28.6 W01-W12 N40-N46
      3  605 1335 (N00E33 L=156)   616    117        0 ( 573/1272- 643/1386) -26.6 E36-E28 S02-N02
      4 1539 1201 (N19W25 L=215)   784    163        0 (1473/1135-1591/1251) -16.7 W19-W29 N16-N20
      5  667 1196 (S06E25 L=165)   380     74        0 ( 646/1155- 702/1228) -76.0 E26-E23 S08-S04
      6  747  733 (S30E08 L=181)   771    272        0 ( 638/ 684- 855/ 796)  49.8 E14-E02 S36-S23
      7 1690  768 (N00W49 L=238)   345     45        0 (1659/ 751-1714/ 789)   0.0 W46-W51 N00-N01
      8 1163  754 (S17W16 L=205)  1116    331        0 (1009/ 723-1318/ 782)  36.3 W07-W24 S22-S10
      9 1195  580 (S25W24 L=214)   703    180        0 (1127/ 532-1289/ 616)  56.3 W21-W28 S29-S20
     10 1507  540 (S17W46 L=236)   282     42        1 (1490/ 509-1524/ 564) -63.4 W44-W47 S19-S15
     11 1261  473 (S29W34 L=223)   679    132        0 (1195/ 457-1324/ 490)  35.5 W30-W38 S31-S26
     12  474  412 (S63E30 L=160)   423     15        0 ( 457/ 391- 494/ 435) -36.9 E32-E26 S65-S60
     13  566  378 (S62E15 L=174)   430     62        0 ( 552/ 349- 587/ 413) -51.3 E17-E11 S65-S59
     14 1471  353 (S28W58 L=247)   428     35        0 (1452/ 330-1493/ 378)  -8.1 W54-W61 S29-S27
     15  934  189 (S61W41 L=231)   469     51        0 ( 917/ 164- 948/ 227) -24.8 W34-W47 S63-S57
  

    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