Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1091 1705 (N49W23 L=181)  2120    387        2 ( 909/1669-1268/1737) -14.0 W05-W37 N43-N52
      2 1576 1687 (N35W66 L=224)  2122    166        3 (1498/1651-1647/1722)  -7.4 W54-W81 N32-N36
      3 1093 1564 (N39W16 L=174)   893    249        2 ( 980/1527-1212/1592) -19.4 W07-W24 N34-N42
      4 1773 1457 (N17W68 L=226)   860    118        0 (1733/1414-1808/1507) -66.8 W66-W71 N13-N20
      5 1012 1336 (N25W04 L=162)   426    154        1 ( 937/1322-1086/1352)  -6.3 W00-W09 N24-N27
      6 1428 1328 (N17W31 L=189)   457    158        1 (1356/1293-1487/1347) -32.0 W26-W34 N14-N19
      7  196 1083 (N20E63 L= 95)  1302    247        3 ( 178/ 967- 223/1216) -68.2 E67-E59 N12-N27
      8 1204 1155 (N11W13 L=171)   195     92        1 (1161/1115-1238/1177)  18.4 W09-W15 N09-N12
      9 1084 1116 (N11W05 L=163)   406    122        2 (1034/1082-1136/1162) -45.0 W02-W07 N08-N14
     10 1891 1013 (S12W66 L=223)  1252    159        3 (1872/ 947-1914/1096)  71.6 W62-W69 S15-S06
     11  522 1008 (N12E32 L=126)   607    190        1 ( 489/ 929- 549/1090)  84.3 E34-E30 N07-N17
     12 1623 1045 (S03W38 L=196)   389     89        3 (1585/1000-1658/1074)  76.0 W35-W41 S05-S01
     13 1814 1016 (S09W55 L=213)  1124    145        5 (1768/ 947-1851/1072) -82.9 W50-W59 S14-S05
     14 1210  967 (N00W10 L=168)   482    232        0 (1101/ 950-1309/ 992)  -4.4 W03-W16 S01-N01
     15 1772  919 (S14W50 L=208)   601    103        2 (1740/ 880-1815/ 970)  59.0 W46-W54 S16-S10
     16  645  902 (N05E25 L=133)   266     68        0 ( 621/ 877- 670/ 935) -45.0 E26-E23 N02-N06
     17 1404  857 (S10W21 L=178)   330    110        2 (1379/ 834-1442/ 899)  11.3 W18-W23 S11-S07
     18 1348  861 (S09W17 L=175)   301     77        1 (1321/ 835-1374/ 896)  45.0 W15-W18 S09-S06
     19 1219  799 (S10W08 L=166)   686    162        3 (1174/ 749-1282/ 861) -56.3 W05-W11 S12-S06
     20 1863  780 (S26W62 L=220)  1450    151        2 (1816/ 719-1906/ 845)  41.2 W55-W69 S29-S22
     21  355  591 (S12E56 L=102)  3048    419        5 ( 240/ 478- 474/ 772) -68.2 E62-E46 S20-N00
     22  499  634 (S10E41 L=117)   746    175        3 ( 448/ 592- 556/ 706) -54.5 E43-E37 S13-S05
     23  405  638 (S09E49 L=109)   858    160        0 ( 359/ 579- 448/ 703) -71.6 E50-E46 S13-S04
     24 1415  551 (S30W18 L=176)   805    156        0 (1364/ 495-1463/ 608)  36.9 W14-W22 S33-S27
     25  587  517 (S19E38 L=119)   420     93        1 ( 570/ 476- 604/ 564)  63.4 E40-E35 S21-S15
     26  456  434 (S23E54 L=104)   445     53        1 ( 439/ 403- 479/ 461)  29.7 E57-E50 S25-S21
     27  567  336 (S32E51 L=107)   631     92        3 ( 532/ 296- 605/ 363)  17.1 E58-E45 S35-S29
     28  985  234 (S48E22 L=136)  1414    270        2 ( 880/ 162-1080/ 315)  20.8 E39-E10 S53-S41
  

    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