Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1481 1642 (N27W53 L=  0)   563    103        0 (1424/1624-1538/1661) -15.3 W47-W58 N25-N28
      2 1536 1532 (N19W49 L=357)   338     48        1 (1503/1512-1559/1551) -26.6 W46-W51 N18-N20
      3 1061 1433 (N29W14 L=322)   323     80        0 (1020/1412-1108/1450)   0.0 W11-W17 N27-N29
      4 1036 1357 (N25W10 L=318)   475    182        0 ( 936/1341-1107/1378) -31.0 W04-W14 N22-N28
      5  738 1330 (N32E09 L=298)   228     33        0 ( 710/1314- 763/1347)   0.0 E11-E07 N30-N32
      6  367 1307 (N40E40 L=267)   394     60        0 ( 327/1292- 404/1324) -20.6 E44-E36 N37-N41
      7 1767 1059 (S13W48 L=355)  1158    170        0 (1729/ 982-1796/1143)  37.9 W42-W52 S16-S08
      8  645 1102 (N21E20 L=287)   839    276        1 ( 532/1078- 785/1122) -16.4 E28-E11 N17-N22
      9 1875 1083 (S15W60 L=  8)   729     70        3 (1839/1054-1904/1108) -35.5 W56-W64 S17-S12
     10  953 1002 (N08E04 L=303)   177     80        0 ( 914/ 977- 984/1038) -68.2 E05-E03 N05-N10
     11  479  821 (N08E38 L=270)  1742    387        1 ( 429/ 629- 567/ 966) -90.0 E39-E35 S04-N17
     12 1548  845 (S18W26 L=334)   347     97        0 (1517/ 804-1578/ 893)  31.0 W23-W28 S19-S15
     13 1335  824 (S12W12 L=320)   538    147        0 (1285/ 754-1385/ 874)  20.6 W07-W16 S15-S10
     14 1373  803 (S15W14 L=322)   267     91        0 (1339/ 775-1403/ 846)  31.0 W11-W16 S15-S12
     15  296  749 (N08E55 L=253)   898     93        4 ( 251/ 709- 336/ 796) -33.7 E59-E52 N05-N10
     16 1504  678 (S26W20 L=327)   465    151        0 (1478/ 597-1539/ 728)  45.0 W16-W22 S30-S23
     17  229  672 (N04E66 L=242)   454     49        0 ( 216/ 645- 245/ 698)  31.0 E69-E63 N02-N05
     18  446  529 (S08E51 L=257)   358     24        1 ( 426/ 504- 464/ 550)  45.0 E52-E48 S09-S06
     19  960  478 (S23E19 L=289)  1109    212        4 ( 906/ 375-1011/ 549)  45.0 E25-E14 S28-S18
     20  562  458 (S15E46 L=262)  1656    285        3 ( 467/ 396- 679/ 511)  -6.3 E54-E36 S18-S11
     21 1611  368 (S56W29 L=336)   459     50        0 (1587/ 346-1633/ 393) -45.0 W24-W33 S60-S51
     22  562  348 (S22E53 L=255)  1925    231        4 ( 489/ 290- 642/ 388)   0.0 E60-E44 S26-S18
     23  862  194 (S41E44 L=264)  1186    144        2 ( 824/ 137- 906/ 270)  24.4 E55-E33 S45-S35
  

    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