Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  979 1887 (N62W46 L= 33)   486     79        0 ( 943/1853-1014/1912)   3.2 W36-W54 N60-N62
      2  587 1679 (N61E15 L=333)   952    213        0 ( 496/1645- 674/1716)  -2.3 E27-E02 N57-N62
      3 1737 1518 (N11W66 L= 53)  4859    397       11 (1619/1384-1815/1635) -83.7 W56-W75 N02-N20
      4 1589 1585 (N20W56 L= 44)  1085    128        3 (1528/1554-1655/1625) -49.4 W53-W61 N16-N23
      5 1158 1542 (N31W25 L= 12)   460    161        1 (1087/1509-1229/1584)   0.0 W19-W31 N30-N32
      6 1595 1515 (N16W52 L= 40)   336     49        1 (1562/1502-1629/1529) -18.4 W49-W55 N14-N17
      7 1217 1446 (N24W24 L= 11)   659    262        0 (1102/1421-1332/1485) -14.0 W16-W32 N21-N27
      8  648 1445 (N41E13 L=335)   335     82        0 ( 610/1428- 689/1460)  -9.5 E15-E09 N39-N42
      9 1750 1390 (N05W58 L= 46)   872    143        1 (1705/1332-1783/1437) -90.0 W54-W61 N00-N07
     10  280 1347 (N44E51 L=297)  1010    153        1 ( 246/1305- 336/1422) -32.7 E58-E43 N40-N49
     11 1175 1372 (N21W19 L=  6)   241    107        0 (1121/1351-1219/1388) -15.9 W14-W21 N19-N22
     12 1227 1299 (N16W19 L=  7)   265     92        0 (1212/1251-1242/1347)  71.6 W17-W21 N12-N18
     13 1830 1277 (S04W61 L= 49)  1591    133        4 (1762/1238-1883/1324)   0.0 W52-W70 S05-N00
     14  813 1209 (N22E07 L=340)   656    239        0 ( 756/1137- 890/1247)   0.0 E11-E03 N17-N24
     15 1668 1150 (S05W42 L= 29)   658    168        0 (1640/1074-1705/1222)  40.6 W38-W46 S08-S02
     16  861 1102 (N15E07 L=340)   315    117        1 ( 837/1051- 883/1156)  45.0 E09-E04 N12-N17
     17  209 1034 (N25E58 L=289)   425     59        0 ( 193/1000- 224/1072) -90.0 E60-E56 N23-N27
     18 1118  612 (S19E06 L=342)   660    215        0 (1058/ 513-1155/ 696)  41.6 E12-E01 S23-S14
     19  572  577 (S08E39 L=308)   930    196        0 ( 544/ 493- 599/ 680)  48.0 E43-E34 S12-S02
     20 1752  567 (S45W43 L= 31)   530     38        1 (1727/ 547-1780/ 588) -26.6 W39-W47 S46-S42
     21 1666  517 (S45W32 L= 20)   854    112        1 (1608/ 483-1718/ 553)   0.0 W26-W39 S46-S42
     22  761  247 (S34E46 L=302)  2020    306        4 ( 641/ 165- 862/ 325)  10.7 E69-E32 S38-S30
  

    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