Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  533 1661 (N18E52 L= 18)   650    186        1 ( 507/1616- 581/1712) -22.6 E57-E45 N15-N21
      2  602 1677 (N20E48 L= 23)   353     87        0 ( 581/1639- 639/1701)  78.7 E49-E45 N17-N22
      3  431 1662 (N16E62 L=  9)   940    102        2 ( 386/1633- 480/1686)  29.7 E66-E56 N13-N18
      4  639 1543 (N13E38 L= 33)   580    202        1 ( 562/1494- 683/1576)  29.7 E42-E34 N10-N15
      5 1252 1491 (N26W00 L= 70)   883    294        1 (1137/1383-1325/1551) -12.1 E07-W07 N21-N28
      6 1637 1457 (N37W28 L= 99)   931    199        1 (1615/1353-1665/1544)  82.4 W26-W31 N29-N44
      7  440 1453 (N03E48 L= 22)  1043    230        2 ( 306/1417- 523/1475)  16.4 E59-E41 N00-N05
      8  349 1420 (S00E54 L= 16)   402     79        0 ( 323/1391- 389/1437)  26.6 E56-E51 S02-N01
      9  404 1269 (S08E44 L= 26)   253     63        1 ( 379/1245- 423/1304)  90.0 E45-E42 S09-S05
     10 1795 1247 (N29W46 L=116)   347     34        1 (1775/1219-1820/1269) -71.6 W43-W48 N27-N30
     11 1355 1216 (N13W13 L= 84)   200     55        2 (1333/1198-1382/1242) -18.4 W11-W15 N11-N14
     12  746 1162 (S06E19 L= 51)   272    101        0 ( 728/1114- 760/1214) -71.6 E20-E18 S09-S03
     13 1673 1133 (N18W36 L=106)   255     42        0 (1646/1117-1700/1150)  45.0 W34-W37 N16-N19
     14  294 1078 (S21E49 L= 21)  1281    329        4 ( 181/1036- 422/1145)  19.2 E62-E39 S24-S14
     15 1769 1028 (N15W46 L=117)   359    122        0 (1754/ 965-1780/1086) -50.2 W43-W48 N12-N18
     16  604 1012 (S18E24 L= 46)   887    316        1 ( 447/ 987- 726/1049)  24.0 E35-E17 S21-S13
     17  230  944 (S30E55 L= 15)   611    142        1 ( 175/ 896- 286/ 983)  23.2 E62-E48 S33-S26
     18 1683  927 (N07W42 L=112)   456    122        0 (1618/ 907-1734/ 954)  32.0 W37-W45 N04-N09
     19 1788  782 (N03W56 L=126)   484     75        0 (1768/ 743-1803/ 821)  90.0 W54-W57 N00-N05
     20 1274  677 (S19W24 L= 95)   265     73        0 (1232/ 655-1315/ 695)   9.5 W21-W27 S19-S17
     21 1626  468 (S18W59 L=130)  1341    164        5 (1580/ 407-1689/ 529) -71.6 W55-W63 S22-S13
  

    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