Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1006 1852 (N47E35 L=  1)   535     64        0 ( 974/1834-1037/1870)  53.1 E37-E31 N44-N49
      2 1071 1697 (N37E19 L= 16)  2067    421        5 ( 995/1568-1158/1829) -40.4 E30-E08 N29-N46
      3  508 1594 (N15E51 L=345)  1484    415        2 ( 458/1452- 563/1715) -39.8 E58-E40 N07-N22
      4  339 1532 (N07E63 L=332)  2170    293        6 ( 261/1447- 376/1611)  85.2 E68-E58 N00-N12
      5 1718 1457 (N43W38 L= 73)   464     81        0 (1687/1440-1750/1476)  15.9 W34-W41 N41-N44
      6 1526 1348 (N28W22 L= 57)   545    141        1 (1470/1280-1558/1392) -29.7 W17-W24 N24-N30
      7 1165 1347 (N17E01 L= 35)   217     37        0 (1145/1322-1186/1377) -56.3 E02-W00 N15-N18
      8 1006 1239 (N06E07 L= 29)   263     61        0 ( 978/1201-1032/1272)  78.7 E07-E05 N03-N08
      9  354 1211 (S11E47 L=348)   306     57        1 ( 334/1177- 378/1237)  76.0 E48-E45 S13-S09
     10 1598 1152 (N18W31 L= 66)   262     67        0 (1573/1123-1622/1186) -21.8 W28-W33 N17-N19
     11 1272 1042 (N03W13 L= 49)   317    124        1 (1209/1027-1325/1069)  29.7 W09-W16 N00-N04
     12 1704 1005 (N13W42 L= 78)   474    110        0 (1684/ 968-1731/1060) -51.3 W40-W45 N11-N17
     13 1355 1027 (N04W18 L= 54)   227     15        0 (1335/1006-1372/1050)  90.0 W17-W19 N02-N05
     14  220 1000 (S26E55 L=341)   402     75        0 ( 205/ 960- 234/1037)  78.7 E55-E53 S28-S23
     15 1782  919 (N11W51 L= 87)  1760    375        5 (1729/ 805-1859/ 994) -85.2 W46-W57 N05-N17
     16 1829  871 (N10W58 L= 93)   976    186        2 (1810/ 783-1849/ 943) -45.0 W54-W63 N06-N14
     17  765  890 (S19E11 L= 24)   245     98        0 ( 713/ 875- 820/ 903)  15.9 E14-E07 S20-S18
     18 1706  867 (N06W46 L= 82)   318     65        0 (1686/ 837-1731/ 899)  78.7 W44-W48 N03-N08
     19  506  810 (S31E27 L=  8)   228     46        0 ( 480/ 788- 530/ 833)  56.3 E28-E25 S32-S29
     20  880  746 (S25E01 L= 35)   615    171        0 ( 792/ 720- 965/ 780)  41.2 E05-W03 S27-S20
     21 1824  759 (N04W62 L= 98)   419     98        1 (1801/ 742-1852/ 780)  45.0 W59-W65 N02-N06
     22 1039  594 (S29W14 L= 50)   322     57        1 (1004/ 572-1071/ 618)  14.0 W12-W16 S30-S27
     23  811  532 (S40W02 L= 37)   494    114        1 ( 750/ 518- 872/ 550)  29.7 E02-W05 S41-S37
     24 1304  226 (S42W53 L= 89)   605     70        0 (1265/ 211-1336/ 241)  45.0 W50-W55 S43-S39
  

    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