Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1063 1749 (N43E07 L=109)   377     36        1 (1035/1727-1089/1768) -11.3 E09-E04 N40-N44
      2  818 1660 (N33E22 L= 94)   363     40        1 ( 792/1636- 847/1689)   0.0 E24-E20 N30-N34
      3 1238 1560 (N30W08 L=124)   618    205        1 (1182/1486-1298/1641) -48.0 W03-W12 N25-N35
      4 1029 1440 (N19E04 L=112)   472    148        0 (1010/1373-1056/1512) -71.6 E06-E01 N15-N24
      5 1366 1491 (N27W17 L=133)   296    131        0 (1308/1473-1429/1504)  14.0 W13-W21 N25-N28
      6  884 1360 (N13E12 L=104)   461    188        1 ( 831/1293- 954/1439)  59.0 E14-E08 N08-N18
      7 1745 1224 (N15W46 L=163)   583    106        2 (1722/1179-1785/1275)  90.0 W44-W50 N12-N18
      8 1685 1111 (N08W42 L=158)  1970    449        3 (1543/ 932-1763/1253) -37.9 W30-W49 S02-N14
      9 1831 1212 (N16W55 L=171)   507     48        1 (1816/1180-1850/1244)  76.0 W53-W57 N14-N18
     10 1828 1111 (N10W55 L=171)   315     64        0 (1800/1096-1852/1134)  18.4 W51-W57 N08-N11
     11  232  880 (S20E56 L= 60)  4183    589        3 ( 114/ 761- 327/1063)  48.4 E72-E46 S26-S08
     12 1221 1027 (S03W11 L=128)   535    185        0 (1130/ 968-1276/1059) -11.3 W05-W15 S06-S01
     13  173 1026 (S11E62 L= 54)  1073     95        3 ( 123/ 991- 211/1057) -14.0 E69-E57 S13-S09
     14  503  881 (S18E32 L= 84)  1085    361        0 ( 432/ 817- 578/ 966) -45.0 E37-E26 S22-S12
     15 1846  756 (S10W64 L=180)  6203    385       16 (1770/ 606-1932/ 897) -71.6 W55-W75 S19-S01
     16 1497  869 (S09W31 L=147)   260     85        0 (1450/ 852-1531/ 894)  31.0 W27-W33 S10-S07
     17 1177  850 (S14W11 L=127)   207     82        0 (1149/ 834-1223/ 875) -14.0 W09-W13 S14-S12
     18 1753  651 (S18W58 L=174)  1315    216        3 (1710/ 556-1821/ 747)  81.3 W53-W61 S23-S10
     19 1470  658 (S22W34 L=150)   770    184        1 (1431/ 592-1528/ 746) -45.0 W29-W39 S25-S16
     20 1636  680 (S18W46 L=162)   966    262        1 (1530/ 620-1740/ 725)  29.7 W39-W54 S23-S13
     21  433  553 (S40E43 L= 74)  1641    207        3 ( 336/ 524- 542/ 588)  11.8 E55-E31 S42-S37
  

    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