Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1490 1532 (N19W44 L=239)   318     77        1 (1446/1521-1534/1545) -38.7 W41-W47 N17-N21
      2 1582 1453 (N13W47 L=241)   641    137        1 (1528/1422-1641/1499)   4.8 W41-W53 N11-N13
      3 1825 1458 (N05W72 L=266)   601      0        0 (1801/1439-1849/1477) -23.2 W67-W75 N03-N06
      4  973 1367 (N25W06 L=201)   438    186        0 ( 911/1344-1051/1414) -45.0 W03-W10 N21-N29
      5 1755 1320 (N01W55 L=249)   319     39        2 (1739/1297-1776/1344)  18.4 W52-W56 N00-N01
      6 1373 1248 (N08W25 L=220)   783    158        3 (1332/1191-1435/1304)  71.6 W22-W29 N04-N10
      7 1874 1191 (S10W63 L=257)  1215    179        2 (1846/1132-1911/1257) -69.4 W60-W66 S14-S06
      8  661 1134 (N19E18 L=176)   925    377        3 ( 539/1019- 818/1211)   8.1 E28-E07 N15-N21
      9  353 1081 (N24E42 L=153)   340    100        1 ( 320/1042- 386/1119) -50.2 E44-E39 N20-N26
     10 1509 1069 (S06W29 L=223)   409    115        1 (1456/1049-1571/1103) -35.5 W25-W32 S08-S02
     11 1597  758 (S26W28 L=223)  3539    698        6 (1409/ 464-1733/1023)  36.3 W09-W43 S40-S14
     12  994  955 (N02E03 L=191)   698    162        3 ( 927/ 889-1038/1012) -66.8 E05-E01 S02-N05
     13 1226  911 (S07W08 L=203)   859    265        2 (1142/ 866-1314/ 974) -37.9 W03-W13 S09-S01
     14  215  934 (N18E58 L=137)   491     85        1 ( 183/ 906- 240/ 966) -45.0 E61-E55 N15-N20
     15 1430  907 (S12W20 L=214)   264     39        0 (1402/ 880-1456/ 937)  11.3 W17-W22 S13-S11
     16  280  857 (N12E53 L=142)   665    102        3 ( 225/ 831- 328/ 893)  -5.2 E58-E47 N10-N14
     17  120  827 (N13E75 L=119)   910     73        0 ( 106/ 788- 135/ 864)  68.2 E78-E71 N10-N15
     18  888  768 (S06E14 L=180)   490    181        0 ( 864/ 701- 934/ 846)  53.1 E15-E09 S10-S02
     19 1031  804 (S08E05 L=189)   197     45        0 (1019/ 777-1047/ 840)  76.0 E06-E04 S09-S05
     20 1175  757 (S14W02 L=196)   599    164        2 (1135/ 693-1236/ 797)  23.2 E02-W05 S16-S11
     21 1253  739 (S17W06 L=200)   233     61        1 (1234/ 709-1268/ 772)  56.3 W04-W06 S18-S14
     22  441  563 (S08E49 L=145)  4501    497        7 ( 350/ 376- 512/ 756)  41.2 E73-E41 S17-N04
     23 1061  644 (S17E08 L=187)   249     38        2 (1044/ 616-1078/ 674)  56.3 E08-E06 S19-S15
     24  626  546 (S13E37 L=158)   315     58        2 ( 593/ 517- 663/ 567) -36.9 E38-E34 S14-S10
     25 1736  534 (S47W43 L=237)   422     26        1 (1716/ 509-1751/ 557) -76.0 W39-W45 S49-S45
     26  873  527 (S20E22 L=172)   213     61        0 ( 848/ 508- 893/ 552) -26.6 E23-E20 S20-S18
     27  700  376 (S25E40 L=154)  2783    502        3 ( 504/ 248- 910/ 458)   4.8 E71-E23 S29-S22
  

    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