Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  866 1821 (N38E42 L= 66)   414     59        0 ( 836/1801- 903/1846)  -6.3 E47-E38 N37-N39
      2 1007 1610 (N27E19 L= 89)   850    214        0 ( 956/1510-1047/1699) -37.6 E26-E13 N22-N32
      3  641 1526 (N12E38 L= 70)   368     96        2 ( 621/1479- 663/1577) -56.3 E39-E35 N09-N15
      4  956 1383 (N12E14 L= 94)   432    125        0 ( 904/1340-1009/1421)  -8.1 E17-E10 N10-N13
      5 1297 1330 (N19W07 L=115)   512    140        1 (1241/1278-1343/1393)  77.5 W04-W08 N14-N23
      6 1448 1041 (N07W23 L=131)   225     46        0 (1435/1013-1462/1072) -56.3 W22-W24 N05-N08
      7 1843  793 (N07W63 L=171)   636     54        2 (1813/ 771-1872/ 818)  33.7 W59-W67 N05-N09
      8  938  683 (S27W05 L=113)   594    113        1 ( 886/ 656-1002/ 705)  39.8 W02-W08 S29-S24
      9  422  577 (S50E34 L= 74)   505     75        1 ( 398/ 552- 459/ 613) -18.4 E36-E29 S52-S47
     10  968  491 (S38W15 L=123)   318     94        0 ( 938/ 457-1008/ 531)  80.5 W13-W15 S40-S34
     11 1133  467 (S34W26 L=134)   907    322        0 (1008/ 400-1265/ 519)  56.3 W21-W32 S42-S27
     12 1379  487 (S25W40 L=148)   366     70        1 (1342/ 471-1418/ 506)  36.9 W38-W43 S26-S23
     13 1364  395 (S30W46 L=154)   931    277        0 (1263/ 357-1489/ 470)  55.3 W39-W49 S34-S21
  

    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