Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  560 1707 (N40E54 L=122)   523     85        0 ( 523/1687- 601/1733)  -7.6 E62-E47 N39-N42
      2 1163 1599 (N40W03 L=179)   697    137        0 (1110/1566-1226/1638) -24.0 E01-W08 N38-N43
      3  517 1432 (N21E41 L=135)   427     91        2 ( 500/1396- 543/1474) -78.7 E42-E38 N18-N23
      4 1358 1239 (N18W19 L=195)   439    186        0 (1328/1179-1392/1320) -63.4 W17-W21 N14-N22
      5 1305 1229 (N17W16 L=192)   294     83        1 (1272/1189-1345/1265) -38.7 W13-W18 N14-N18
      6  204  955 (S12E61 L=115)  3965    302        9 ( 129/ 824- 284/1067)  34.2 E79-E52 S21-S04
      7 1833  864 (S01W62 L=238)   582     94        1 (1797/ 822-1862/ 893) -16.7 W57-W67 S03-N00
      8 1578  735 (S11W41 L=217)   395     79        0 (1561/ 697-1600/ 776)  90.0 W39-W42 S13-S08
      9 1750  747 (S09W56 L=232)   443     99        1 (1713/ 695-1784/ 776)  50.2 W53-W59 S12-S06
     10 1496  702 (S14W35 L=211)   297     93        0 (1459/ 677-1540/ 719)  18.4 W32-W38 S15-S12
     11 1108  599 (S25W10 L=186)   228     76        0 (1073/ 579-1138/ 623)  53.1 W08-W12 S26-S22
     12 1542  514 (S26W45 L=221)  1044    123        3 (1484/ 485-1596/ 547)  32.0 W40-W50 S28-S23
     13 1119  459 (S34W14 L=190)   418    111        0 (1076/ 443-1180/ 475)  14.0 W10-W18 S35-S32
  

    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