Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  958 1631 (N40E14 L=180)   564    136        0 ( 903/1597-1015/1673) -20.0 E19-E08 N38-N42
      2 1694 1476 (N38W52 L=246)  2437    333        7 (1640/1350-1737/1612)  75.3 W47-W61 N29-N48
      3 1093 1372 (N23W00 L=194)   233     69        0 (1057/1349-1123/1392) -14.0 E02-W02 N22-N24
      4 1091 1262 (N16W01 L=195)   418    215        0 (1041/1220-1132/1330) -63.4 E01-W04 N14-N20
      5 1416 1194 (N16W23 L=217)   294    117        0 (1393/1149-1452/1251) -50.2 W21-W26 N13-N19
      6  787 1084 (N02E15 L=178)   371     61        1 ( 768/1041- 803/1122)  90.0 E16-E14 N00-N04
      7  487  898 (S13E34 L=160)   321     73        2 ( 461/ 868- 510/ 927)  63.4 E35-E32 S14-S10
      8 1658  876 (S01W44 L=238)   583     93        1 (1613/ 837-1696/ 915) -20.6 W40-W48 S03-N00
      9  426  810 (S19E39 L=155)   560    184        1 ( 391/ 779- 485/ 847) -15.9 E41-E33 S20-S16
     10  818  793 (S15E10 L=183)   296    129        0 ( 753/ 773- 870/ 812)   0.0 E14-E06 S16-S14
     11  849  651 (S24E07 L=186)   297     44        1 ( 819/ 626- 878/ 676)  26.6 E09-E05 S26-S22
     12 1344  554 (S25W28 L=222)   831    142        3 (1270/ 525-1391/ 586)  35.5 W23-W32 S27-S22
     13  868  504 (S34E05 L=189)   372    136        0 ( 799/ 494- 925/ 514)   6.3 E09-W00 S35-S32
     14  451  468 (S44E44 L=150)  2179    205        4 ( 362/ 434- 536/ 513)  -2.9 E55-E33 S46-S39
  

    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