Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  580 1726 (N32E47 L=284)   440     38        1 ( 553/1704- 606/1744)  26.6 E50-E44 N30-N33
      2  502 1642 (N25E48 L=283)   392     20        0 ( 479/1618- 526/1666) -26.6 E51-E45 N23-N26
      3  272 1482 (N13E63 L=268)   893     83        2 ( 244/1429- 298/1524) -40.6 E68-E59 N09-N15
      4 1666 1406 (N28W38 L=  9)  1289    204        1 (1623/1300-1688/1495)  74.1 W34-W41 N20-N34
      5 1553 1471 (N30W29 L=360)   301     74        1 (1513/1458-1586/1492)  18.4 W25-W31 N28-N31
      6 1114 1409 (N18E00 L=331)   532    214        0 (1008/1394-1218/1425)  10.3 E06-W05 N16-N19
      7  311 1327 (N03E52 L=279)   756     90        3 ( 290/1274- 333/1371)  90.0 E55-E50 N00-N06
      8 1511 1285 (N17W26 L=357)  2136    303        7 (1392/1175-1601/1371) -36.9 W17-W32 N10-N21
      9  227 1340 (N04E62 L=270)   478     65        1 ( 192/1322- 258/1361)   0.0 E66-E57 N02-N04
     10  194 1301 (N01E65 L=267)   697     79        2 ( 164/1267- 236/1322)   8.1 E69-E59 N00-N02
     11 1345 1278 (N13W15 L=347)   297     49        1 (1313/1251-1374/1299) -18.4 W13-W17 N11-N15
     12 1049 1265 (N08E02 L=329)   206     59        0 (1030/1233-1063/1294) -56.3 E03-W00 N06-N09
     13 1402 1233 (N12W19 L=351)   684    167        3 (1362/1165-1433/1287) -66.8 W17-W22 N07-N15
     14 1711  902 (S02W46 L= 17)   567    118        1 (1650/ 881-1773/ 921)  18.4 W41-W51 S03-N00
     15 1376  893 (S08W23 L=354)   256    141        0 (1329/ 859-1421/ 914)   9.5 W20-W26 S10-S06
     16  435  829 (S25E37 L=294)  1033    268        0 ( 337/ 767- 566/ 871)  22.8 E45-E26 S29-S21
     17 1234  655 (S24W19 L=351)  3744    952        3 ( 937/ 578-1644/ 816)   8.1 W00-W49 S29-S17
     18  453  656 (S36E36 L=295)   265     44        1 ( 428/ 642- 481/ 676) -14.0 E38-E33 S37-S34
     19 1784  602 (S16W65 L= 36)  1299    177        3 (1714/ 553-1861/ 645)  36.9 W56-W74 S20-S11
     20  494  533 (S44E35 L=297)  2127    549        2 ( 272/ 482- 750/ 560)   1.1 E64-E10 S46-S41
     21  927  462 (S42W03 L=335)   278     96        0 ( 882/ 447- 978/ 481)   0.0 W00-W07 S43-S41
  

    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