Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1080 1472 (N26W13 L=212)   578    166        1 (1002/1421-1152/1515) -48.8 W08-W16 N22-N30
      2  980 1416 (N25W05 L=204)   209     79        0 ( 938/1393-1017/1435) -36.9 W02-W06 N22-N26
      3 1536 1368 (N11W39 L=238)   694    136        0 (1477/1327-1602/1402) -45.0 W35-W42 N07-N14
      4  754 1352 (N26E10 L=189)   292    128        0 ( 697/1323- 797/1397)  14.0 E14-E06 N24-N27
      5  867 1220 (N16E06 L=194)   620    259        0 ( 763/1167- 976/1271)   0.0 E12-W01 N13-N17
      6  181 1061 (N18E60 L=140)  3096    283       11 ( 103/ 958- 267/1149) -45.0 E72-E50 N12-N24
      7 1867 1098 (S10W60 L=259)  1629    111        3 (1826/1048-1914/1149)  39.8 W55-W66 S12-S07
      8  259 1122 (N21E51 L=149)   312     49        1 ( 233/1101- 285/1144)   9.5 E53-E47 N19-N21
      9 1262 1019 (S03W13 L=213)   245    114        0 (1212/ 991-1301/1035) -31.0 W10-W15 S05-S01
     10  257  975 (N12E52 L=147)   490     88        0 ( 238/ 934- 282/1009)  59.0 E54-E49 N09-N14
     11 1165  902 (S08W06 L=205)   453    139        0 (1140/ 854-1202/ 969)  81.9 W04-W07 S11-S04
     12 1313  869 (S13W14 L=213)   366    154        0 (1243/ 832-1370/ 926)  18.4 W09-W18 S13-S10
     13  382  590 (S12E52 L=147)  2278    454        4 ( 329/ 450- 419/ 786)  45.0 E66-E45 S20-N00
     14 1674  595 (S38W39 L=239)  3358    620        2 (1425/ 432-1897/ 773)  13.8 W16-W65 S44-S30
     15  595  650 (S12E34 L=166)  1657    343        6 ( 476/ 585- 711/ 749)  14.0 E43-E23 S15-S08
     16  180  644 (S06E73 L=126)  1161    102        1 ( 149/ 597- 206/ 695) -80.5 E76-E70 S08-S02
     17 1104  677 (S20E02 L=197)   191     17        0 (1079/ 662-1127/ 692) -18.4 E03-W00 S21-S18
     18  574  549 (S18E39 L=161)   417     65        0 ( 553/ 506- 591/ 582)  51.3 E40-E36 S20-S15
     19  531  409 (S26E49 L=150)  1060    168        1 ( 453/ 381- 621/ 456)   0.0 E57-E40 S27-S23
     20  917  362 (S37E23 L=176)   261     38        0 ( 900/ 339- 936/ 386)  63.4 E24-E21 S38-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