Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1119 1802 (N57E07 L= 99)   955    236        0 (1011/1775-1232/1823)   0.0 E18-W06 N54-N57
      2  380 1632 (N30E67 L= 38)  1486    228        0 ( 326/1539- 459/1683)  70.0 E72-E60 N23-N34
      3 1070 1615 (N39E06 L=100)  1117    320        2 ( 913/1578-1205/1677)  -2.4 E19-W05 N36-N41
      4  432 1564 (N26E54 L= 51)   498    140        0 ( 410/1500- 456/1619) -66.0 E56-E52 N21-N30
      5 1637 1367 (N29W40 L=146)  2954    461        8 (1433/1297-1819/1439)  -6.2 W23-W60 N26-N31
      6 1807 1102 (N14W55 L=161)   534    120        1 (1787/1042-1842/1132)  90.0 W53-W59 N10-N16
      7  364 1073 (S05E44 L= 61)   411     95        0 ( 336/1023- 397/1112)  56.3 E46-E41 S07-S01
      8  620 1032 (S04E25 L= 80)   346    100        0 ( 594/ 991- 638/1090)  90.0 E26-E23 S06-N00
      9  899 1029 (S01E08 L= 98)   508    108        1 ( 861/ 981- 943/1069)  45.0 E09-E04 S03-N01
     10  327  912 (S15E47 L= 59)   434    114        0 ( 309/ 856- 341/ 972) -74.1 E48-E45 S18-S11
     11 1395  941 (N00W24 L=129)   199     54        0 (1371/ 921-1425/ 963) -14.0 W21-W25 N00-N01
     12 1185  710 (S16W14 L=119)   749    269        1 (1103/ 661-1241/ 772)  35.5 W09-W17 S20-S12
     13 1250  582 (S24W21 L=126)   243     74        0 (1213/ 567-1289/ 599)  21.8 W18-W23 S24-S22
     14 1013  418 (S39W08 L=114)   468     67        1 ( 965/ 398-1054/ 443)  26.6 W04-W11 S40-S36
  

    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