Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1526 1658 (N25W55 L=208)  3258    836        4 (1237/1598-1733/1706) -25.5 W35-W77 N15-N35
      2 1250 1531 (N28W30 L=183)   634    178        0 (1203/1446-1302/1599)  76.0 W28-W31 N21-N33
      3 1673 1487 (N12W57 L=210)   463     82        0 (1632/1450-1707/1528) -66.8 W55-W58 N08-N15
      4 1635 1439 (N11W51 L=204)   372    114        0 (1620/1381-1656/1492)  56.3 W49-W53 N07-N13
      5  764 1256 (N26E09 L=144)   932    266        2 ( 653/1155- 848/1322) -57.3 E15-E05 N18-N33
      6 1898 1150 (S14W65 L=217)  1056    166        1 (1862/1087-1930/1200) -69.4 W60-W67 S18-S10
      7  236  930 (N19E56 L= 97)   424     95        0 ( 226/ 887- 248/ 987)  71.6 E57-E53 N16-N22
      8 1815  869 (S26W48 L=201)  1621    258        3 (1776/ 747-1844/ 967)  65.2 W43-W52 S34-S20
      9  210  828 (N14E62 L= 91)  1753    459        8 ( 116/ 775- 277/ 892)   5.0 E75-E52 N10-N16
     10 1238  693 (S18W03 L=156)   690    200        0 (1159/ 605-1302/ 794)  30.3 E03-W09 S21-S13
     11  758  682 (S06E24 L=128)   984    173        2 ( 710/ 602- 813/ 768)  84.8 E25-E22 S11-N00
     12 1415  564 (S31W11 L=164)   556    143        1 (1359/ 531-1490/ 599)  -5.7 W06-W16 S33-S30
     13 1234  477 (S31E03 L=149)   297     68        0 (1195/ 460-1262/ 501) -26.6 E05-E01 S32-S30
     14 1138  383 (S35E13 L=140)   902    149        2 (1091/ 333-1176/ 436)  21.8 E18-E08 S37-S30
     15  565  333 (S23E53 L=100)   605    157        1 ( 545/ 295- 582/ 381)  40.6 E56-E49 S25-S19
  

    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