Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  471 1592 (N13E54 L=161)  1007    283        1 ( 434/1502- 492/1703) -55.3 E60-E50 N07-N20
      2  607 1639 (N19E46 L=169)   335     72        1 ( 582/1615- 629/1675)  90.0 E47-E44 N17-N22
      3 1128 1530 (N27E09 L=206)   281    108        0 (1100/1482-1161/1568)  90.0 E09-E07 N22-N30
      4  285 1466 (N02E65 L=149)   600    134        1 ( 255/1449- 314/1492)  -6.3 E70-E61 N01-N03
      5  758 1368 (N07E25 L=190)   267     58        2 ( 727/1346- 790/1388)  56.3 E26-E22 N05-N08
      6  444 1306 (S04E43 L=172)   572    149        0 ( 410/1228- 493/1353)  77.5 E44-E40 S09-N00
      7  177 1174 (S17E64 L=151)  2446    471        6 (  99/1030- 271/1325)  63.4 E69-E59 S26-S06
      8  631 1189 (S06E27 L=188)  1096    270        1 ( 586/1051- 672/1305) -60.3 E33-E23 S14-N00
      9 1386 1223 (N16W15 L=230)   539    271        2 (1330/1161-1419/1297)  84.3 W13-W16 N10-N20
     10 1674 1184 (N23W36 L=250)   730    101        2 (1640/1139-1698/1239) -59.0 W33-W38 N19-N26
     11  383 1092 (S18E42 L=173)   436    159        3 ( 323/1047- 435/1131)  40.6 E46-E38 S20-S14
     12  496 1017 (S19E32 L=183)   633    228        1 ( 405/ 986- 593/1053)  24.8 E38-E25 S22-S14
     13 1282  988 (S00W15 L=230)   247     70        0 (1260/ 945-1305/1021) -45.0 W13-W16 S02-N01
     14  917  932 (S13E03 L=211)   409    170        0 ( 844/ 887-1013/ 958)  45.0 E06-W02 S17-S10
     15 1794  912 (N12W53 L=268)   496     83        0 (1770/ 883-1816/ 955) -31.0 W49-W55 N10-N13
     16  570  841 (S28E23 L=192)   254     38        1 ( 551/ 810- 591/ 865) -45.0 E24-E21 S29-S26
     17  346  729 (S41E40 L=175)   579    147        1 ( 299/ 706- 402/ 759)   0.0 E44-E34 S42-S38
     18 1059  574 (S29W16 L=231)  1115    356        3 ( 984/ 421-1145/ 751) -37.3 W06-W27 S36-S20
     19 1410  699 (S12W32 L=247)   245     47        1 (1380/ 681-1440/ 718)  14.0 W29-W34 S13-S10
     20 1172  598 (S25W22 L=237)   419    138        0 (1111/ 580-1245/ 626)  18.4 W17-W26 S26-S22
     21 1647  505 (S14W59 L=273)   883    122        4 (1607/ 466-1693/ 547)  80.5 W55-W62 S17-S11
     22 1173  208 (S48W48 L=262)   951    185        1 (1143/ 163-1198/ 260) -26.6 W40-W52 S52-S45
     23 1085  204 (S53W43 L=258)   560    102        0 (1066/ 169-1102/ 237) -21.8 W38-W48 S54-S50
  

    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