Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  911 1754 (N48E06 L=283)  1123    132        2 ( 872/1707- 958/1824) -67.4 E09-E01 N43-N55
      2 1390 1640 (N36W32 L=320)  1272    313        0 (1233/1606-1521/1665)  -9.9 W19-W42 N33-N37
      3  839 1564 (N33E11 L=278)   911    195        0 ( 740/1539- 929/1582)  -4.4 E17-E04 N31-N34
      4 1052 1522 (N29W04 L=293)   205     59        0 (1026/1501-1078/1544)  45.0 W02-W06 N27-N30
      5 1724 1508 (N26W58 L=346)   461     60        1 (1694/1489-1755/1529)   0.0 W53-W61 N24-N27
      6 1270 1428 (N22W18 L=306)  1692    481        3 (1118/1225-1372/1528) -63.4 W08-W24 N08-N28
      7  776 1355 (N19E14 L=274)   708    222        0 ( 713/1274- 838/1450) -56.3 E18-E10 N13-N25
      8 1450 1393 (N19W30 L=318)   271    117        0 (1421/1344-1476/1443)  50.2 W27-W32 N15-N21
      9 1745 1341 (N15W53 L=342)  1761    320        5 (1640/1240-1871/1441) -34.4 W45-W65 N08-N21
     10  387 1336 (N20E43 L=246)   706    113        2 ( 350/1292- 433/1385) -50.2 E47-E39 N17-N23
     11 1231 1273 (N12W14 L=302)   190     92        0 (1191/1243-1267/1313)  38.7 W11-W16 N10-N14
     12 1538 1278 (N11W34 L=323)   482     95        2 (1496/1238-1578/1313) -45.0 W31-W37 N08-N13
     13  201 1259 (N16E61 L=227)   496     58        0 ( 177/1233- 227/1288)  31.0 E64-E58 N14-N18
     14  518 1140 (N07E31 L=257)   390    106        0 ( 477/1111- 560/1175) -26.6 E34-E28 N05-N09
     15 1577  904 (S11W35 L=324)  1664    345        0 (1498/ 771-1668/1056)  59.5 W30-W42 S19-S02
     16  887  826 (S14E09 L=279)   228     81        0 ( 869/ 778- 911/ 859)  68.2 E10-E07 S16-S11
     17 1745  771 (S20W51 L=340)   769    138        1 (1702/ 700-1787/ 825)  58.0 W48-W54 S24-S16
     18 1819  746 (S21W60 L=349)   923    125        2 (1788/ 675-1854/ 806)  69.4 W57-W63 S25-S17
     19 1179  718 (S22W09 L=297)   460    161        1 (1158/ 645-1211/ 785) -77.5 W07-W10 S26-S17
     20  894  591 (S29E11 L=278)   311    117        0 ( 856/ 552- 935/ 641)  39.8 E13-E07 S31-S25
     21 1525  541 (S34W36 L=325)  1390    249        1 (1423/ 481-1614/ 637)  37.6 W28-W42 S38-S28
     22 1140  454 (S39W06 L=295)   451     78        1 (1094/ 431-1186/ 483)  -8.1 W02-W09 S41-S37
     23  797  412 (S41E22 L=267)   426    103        1 ( 740/ 397- 843/ 438)  -6.3 E26-E17 S41-S38
  

    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