Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1563 1741 (N28W69 L=316)   824     62        1 (1530/1706-1587/1769)  -4.8 W63-W75 N25-N29
      2  979 1604 (N39W16 L=263)   389    147        0 ( 898/1588-1042/1618) -15.3 W09-W20 N36-N41
      3 1722 1513 (N11W63 L=310)  2009    314        2 (1592/1416-1833/1582) -43.2 W53-W70 N02-N17
      4  330 1362 (N42E43 L=204)   302     50        1 ( 308/1344- 353/1379) -26.6 E46-E40 N40-N43
      5 1411 1326 (N11W30 L=278)   213     54        2 (1393/1299-1431/1350) -90.0 W28-W31 N09-N12
      6  712 1232 (N24E13 L=234)   227     96        1 ( 673/1212- 763/1252) -18.4 E15-E09 N22-N25
      7 1296 1170 (N06W19 L=266)   453    108        1 (1238/1148-1354/1185) -33.7 W15-W21 N03-N07
      8 1119 1048 (N04W06 L=253)   716    237        1 (1028/ 995-1197/1148)  18.4 W00-W12 N01-N07
      9  796 1090 (N14E11 L=236)   239     70        0 ( 762/1073- 840/1108)   0.0 E13-E08 N13-N15
     10 1813  942 (S22W50 L=297)  1174    148        3 (1768/ 869-1866/ 997)  20.0 W45-W56 S25-S18
     11  550  898 (N09E31 L=217)   721    164        1 ( 493/ 839- 595/ 972)  21.8 E35-E25 N05-N12
     12  278  929 (N17E51 L=196)   301     48        2 ( 253/ 914- 312/ 949)  -9.5 E53-E47 N15-N18
     13 1222  858 (S09W07 L=254)   184     74        0 (1197/ 831-1244/ 899) -90.0 W05-W07 S11-S06
     14 1669  748 (S29W34 L=281)   661    111        1 (1622/ 707-1719/ 786)   6.3 W29-W38 S30-S27
     15  403  484 (S11E57 L=190)  8808      0       24 ( 229/ 289- 581/ 754) -79.0 E72-E46 S25-N07
     16  550  590 (S08E40 L=207)   268     30        1 ( 529/ 566- 573/ 608)  41.8 E41-E37 S09-S06
     17  920  528 (S20E20 L=228)   516    179        0 ( 894/ 444- 950/ 603)  41.6 E24-E15 S24-S16
     18  651  534 (S13E36 L=212)   628    108        3 ( 609/ 494- 699/ 582) -90.0 E39-E32 S16-S10
     19 1483  533 (S37W16 L=263)   712    112        2 (1450/ 484-1526/ 569)  23.2 W12-W19 S39-S33
     20  606  465 (S16E42 L=205)  1205    266        3 ( 483/ 410- 695/ 541) -42.3 E47-E36 S20-S09
     21  650  244 (S32E55 L=192)  1520    213        2 ( 587/ 194- 688/ 316)  39.8 E64-E48 S36-S26
  

    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