Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1572 1745 (N28W71 L=316)   682     61        1 (1539/1712-1590/1772)  18.4 W65-W77 N25-N28
      2  991 1610 (N39W17 L=263)   312    131        1 ( 923/1591-1054/1623) -24.0 W12-W21 N37-N41
      3 1733 1523 (N11W65 L=310)  1882    318        2 (1606/1421-1846/1589) -43.2 W55-W72 N02-N17
      4 1325 1182 (N06W21 L=266)   414    106        0 (1276/1164-1379/1199) -38.7 W18-W23 N03-N07
      5  826 1101 (N14E09 L=236)   213     76        0 ( 792/1084- 870/1119) -11.3 E11-E06 N13-N14
      6 1120 1037 (N03W05 L=251)   474    142        0 (1057/1005-1176/1086)   7.1 W01-W09 N01-N04
      7 1831  949 (S22W52 L=297)  1163    148        2 (1783/ 884-1881/1006)  10.3 W47-W58 S25-S18
      8  577  907 (N09E29 L=217)   778    157        3 ( 514/ 849- 619/ 981)  24.0 E33-E24 N05-N12
      9  294  936 (N17E49 L=196)   350     84        1 ( 268/ 914- 327/ 977) -63.4 E52-E46 N15-N19
     10 1251  872 (S09W08 L=254)   196     88        0 (1225/ 844-1282/ 914) -78.7 W07-W09 S11-S06
     11 1686  757 (S29W35 L=281)   688    117        2 (1633/ 709-1735/ 795)  11.3 W30-W40 S30-S27
     12  416  456 (S13E58 L=188)  8801      0       22 ( 240/ 257- 580/ 751) -83.1 E77-E50 S27-N07
     13  598  709 (S02E33 L=213)   411    176        0 ( 525/ 666- 678/ 745) -36.9 E36-E28 S05-N01
     14  949  555 (S19E17 L=228)   541    159        1 ( 917/ 490- 985/ 640)  41.2 E20-E12 S22-S15
     15  572  597 (S08E38 L=207)   241     40        0 ( 552/ 575- 593/ 616)  14.0 E40-E36 S09-S06
     16  670  552 (S13E34 L=212)   438    106        2 ( 636/ 515- 691/ 603)  33.7 E37-E30 S14-S09
     17 1500  544 (S37W17 L=263)   639     72        2 (1469/ 511-1538/ 585)   9.5 W14-W20 S39-S33
     18  557  484 (S14E44 L=201)  1564    394        3 ( 416/ 419- 679/ 563) -45.0 E52-E37 S20-S06
     19  315  475 (S10E68 L=178)   910    104        5 ( 269/ 438- 350/ 511) -68.2 E73-E62 S12-S07
     20  543  416 (S18E49 L=196)   402     60        2 ( 510/ 398- 577/ 436) -36.9 E51-E47 S19-S16
     21  667  240 (S33E54 L=191)  1577    188        2 ( 614/ 191- 702/ 322)  30.5 E63-E46 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