Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  992 1524 (N37W11 L=126)  1300    322        2 ( 960/1369-1036/1649)  52.6 W04-W18 N27-N45
      2 1226 1617 (N37W31 L=146)   391     95        1 (1185/1596-1277/1634) -14.0 W27-W35 N35-N38
      3 1443 1593 (N30W45 L=160)   718    133        4 (1388/1560-1512/1614)  -4.8 W40-W52 N27-N31
      4 1638 1478 (N18W54 L=169)  1008    197        2 (1549/1442-1711/1515) -30.3 W48-W61 N14-N21
      5 1655 1373 (N11W50 L=165)   692    115        4 (1615/1317-1689/1426) -90.0 W48-W52 N07-N15
      6 1062 1292 (N22W08 L=123)   724    134        3 (1009/1235-1121/1340) -54.5 W05-W10 N17-N24
      7  172 1134 (N28E66 L= 49)  1936    162        5 ( 137/1067- 207/1194)  63.4 E72-E60 N23-N31
      8  713 1011 (N12E19 L= 96)   202    100        0 ( 703/ 970- 731/1050)  78.7 E19-E16 N09-N14
      9  897 1001 (N08E08 L=107)   545    234        1 ( 805/ 965-1002/1025) -14.0 E13-E01 N05-N10
     10 1798  824 (S24W50 L=164)  2370    343        0 (1709/ 685-1855/ 969)  45.0 W40-W57 S30-S16
     11  281  897 (N12E53 L= 61)   606    128        2 ( 254/ 835- 307/ 960)  58.0 E57-E50 N08-N16
     12  231  837 (N09E60 L= 55)   535    107        0 ( 211/ 795- 255/ 893) -71.6 E61-E58 N06-N12
     13  706  773 (S01E24 L= 91)   295    118        0 ( 693/ 717- 717/ 833)  63.4 E25-E22 S04-N02
     14 1442  726 (S20W19 L=134)  1348    400        5 (1327/ 655-1589/ 771)  -3.0 W10-W29 S23-S15
     15 1071  624 (S17E06 L=109)   419    183        0 (1041/ 559-1116/ 695)  78.7 E07-E03 S22-S12
     16 1242  675 (S18W05 L=120)   321     60        1 (1207/ 653-1270/ 693) -45.0 W03-W07 S19-S16
     17 1117  664 (S16E02 L=113)   319     76        0 (1092/ 629-1137/ 692) -68.2 E03-E01 S18-S13
     18  494  447 (S18E50 L= 64)  1353    230        1 ( 400/ 408- 580/ 513)   8.1 E61-E40 S20-S14
     19 1083  337 (S38E14 L=101)  4732    746        8 ( 809/ 215-1350/ 484)   8.3 E40-W08 S42-S32
     20 1685  413 (S53W47 L=162)   637     42        0 (1664/ 396-1713/ 430) -17.1 W41-W54 S55-S50
     21 1573  352 (S54W31 L=146)   643     85        0 (1534/ 326-1607/ 374)   7.1 W26-W36 S55-S52
  

    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