Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1076 1854 (N58W44 L= 94)   402     72        1 (1044/1829-1109/1876)  -5.7 W38-W50 N56-N59
      2 1441 1703 (N35W54 L=104)   377     50        0 (1415/1690-1476/1718) -45.0 W52-W57 N33-N36
      3 1586 1588 (N24W57 L=106)   653     79        0 (1546/1556-1622/1616) -59.0 W54-W59 N21-N26
      4 1265 1554 (N32W31 L= 80)   381     51        1 (1240/1525-1291/1581) -90.0 W28-W32 N29-N33
      5 1709 1391 (N10W55 L=105)  2912    480        7 (1598/1327-1854/1492) -38.3 W46-W71 N02-N17
      6 1408 1452 (N22W35 L= 85)   224     17        0 (1389/1435-1426/1471) -90.0 W34-W36 N20-N22
      7  538 1350 (N37E26 L= 23)   413     84        1 ( 500/1321- 567/1377) -45.0 E29-E23 N34-N39
      8 1653 1201 (N01W43 L= 92)   822    216        0 (1626/1104-1674/1308)  70.0 W40-W45 S04-N07
      9  779 1283 (N27E09 L= 40)   251     73        3 ( 747/1261- 813/1304)   0.0 E11-E06 N26-N29
     10 1142 1204 (N15W11 L= 60)   622    265        3 (1068/1127-1200/1262)  21.8 W05-W15 N11-N16
     11  478 1081 (N21E34 L= 16)   376    119        0 ( 429/1054- 531/1118) -32.0 E37-E29 N19-N24
     12  762 1050 (N14E15 L= 34)   467    111        0 ( 712/1028- 821/1080) -39.8 E17-E11 N11-N16
     13 1876  988 (S18W60 L=109)  1217    149        1 (1841/ 919-1911/1049) -59.0 W55-W65 S23-S13
     14 1804 1005 (S14W51 L=101)   395     93        2 (1778/ 966-1828/1047)  45.0 W48-W54 S15-S11
     15  686  935 (N09E22 L= 28)   318     58        1 ( 668/ 903- 707/ 966)  56.3 E23-E20 N07-N10
     16 1852  901 (S22W56 L=105)   520     55        2 (1833/ 870-1873/ 934) -68.2 W53-W58 S24-S19
     17 1479  799 (S17W22 L= 71)   910    281        0 (1378/ 713-1545/ 906)  26.6 W14-W28 S19-S11
     18  361  793 (N06E48 L=  1)   716    158        0 ( 336/ 723- 381/ 878)  77.5 E50-E46 N02-N11
     19 1305  716 (S17W10 L= 59)   487    126        0 (1261/ 689-1366/ 761) -56.3 W07-W13 S19-S13
     20 1606  526 (S39W30 L= 79)  4878    631        4 (1351/ 361-1848/ 680)   3.2 W05-W60 S45-S33
     21  704  593 (S11E29 L= 20)   349     81        1 ( 664/ 576- 749/ 617) -21.8 E31-E26 S12-S09
     22  325  487 (S12E66 L=343)  1647    200        1 ( 296/ 403- 363/ 593)  49.8 E73-E59 S18-S05
  

    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