Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1753 1534 (N18W65 L=185)   565    124        0 (1729/1507-1782/1555)  14.0 W61-W69 N16-N18
      2 1220 1305 (N14W17 L=136)   877    218        1 (1114/1248-1334/1354) -39.3 W11-W22 N08-N18
      3 1656 1332 (N08W47 L=166)   261    110        1 (1606/1314-1690/1346) -26.6 W43-W49 N06-N09
      4  726 1278 (N21E14 L=106)   278     95        0 ( 688/1248- 774/1306) -51.3 E16-E11 N18-N23
      5 1140 1192 (N09W10 L=129)   235     54        0 (1120/1166-1168/1225) -71.6 W08-W10 N07-N10
      6 1453  991 (S08W25 L=145)   608    161        0 (1403/ 909-1488/1075)  48.4 W20-W28 S12-S03
      7 1756  992 (S14W48 L=168)  1329    280        4 (1677/ 878-1795/1072) -90.0 W41-W51 S20-S08
      8  325  985 (N10E46 L= 74)  1044    302        3 ( 218/ 920- 422/1019) -26.6 E55-E38 N05-N13
      9 1196  980 (S04W09 L=129)   508    100        1 (1144/ 941-1245/1012) -38.7 W06-W11 S07-S01
     10 1723  951 (S15W44 L=164)   456    125        0 (1697/ 917-1753/ 990)  63.4 W42-W47 S17-S13
     11  628  923 (N02E25 L= 95)   232     93        0 ( 614/ 881- 643/ 980)  78.7 E26-E24 N00-N05
     12 1610  767 (S24W34 L=154)  1373    394        0 (1435/ 705-1752/ 840)   4.4 W20-W46 S26-S22
     13 1684  673 (S32W40 L=160)  1666    276        2 (1566/ 586-1786/ 761)  20.2 W30-W49 S36-S27
     14 1423  540 (S36W18 L=138)   246     55        0 (1397/ 519-1461/ 562)  11.3 W16-W21 S37-S34
  

    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