Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1371 1681 (N32W46 L=198)   735    255        1 (1265/1650-1465/1710) -17.4 W37-W54 N29-N34
      2 1647 1646 (N20W65 L=217)  1823    405        4 (1573/1617-1730/1672) -25.2 W59-W76 N16-N24
      3 1260 1534 (N28W31 L=182)   544    173        0 (1210/1449-1309/1598)  79.7 W29-W32 N21-N32
      4 1644 1446 (N11W52 L=204)   361    129        0 (1629/1386-1662/1502)  56.3 W50-W55 N07-N13
      5  769 1268 (N27E08 L=143)   786    234        2 ( 665/1184- 857/1330) -58.4 E14-E04 N20-N33
      6 1890 1168 (S12W64 L=216)   699    127        1 (1863/1141-1921/1195) -56.3 W60-W68 S15-S09
      7  244  928 (N19E55 L= 97)   364     80        0 ( 234/ 893- 257/ 977)  78.7 E56-E53 N17-N22
      8 1822  871 (S27W49 L=200)  1681    271        3 (1785/ 737-1852/ 972)  66.8 W44-W53 S35-S20
      9 1272  735 (S16W06 L=158)   800    269        0 (1180/ 619-1345/ 868)  33.7 E02-W13 S20-S10
     10  200  817 (N13E63 L= 89)  1425    352        4 ( 117/ 781- 252/ 852)  -6.7 E74-E56 N10-N14
     11  769  692 (S05E23 L=128)   806    106        1 ( 725/ 613- 824/ 770) -84.8 E24-E21 S11-N00
     12 1410  561 (S32W10 L=162)   512     87        2 (1366/ 526-1464/ 605)  12.5 W06-W15 S33-S29
     13 1149  390 (S35E12 L=140)   845    177        3 (1097/ 338-1189/ 448)  24.0 E17-E08 S37-S30
     14  573  338 (S23E52 L=100)   512    118        1 ( 550/ 298- 587/ 373)  39.8 E55-E48 S25-S20
  

    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