Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  958 1790 (N52E23 L=222)   536     93        0 ( 905/1775-1008/1805)   5.7 E28-E18 N50-N53
      2  349 1472 (N18E57 L=188)  1626    515        5 ( 282/1337- 458/1564) -27.6 E67-E42 N11-N23
      3 1606 1249 (N22W36 L=282)   247     56        0 (1595/1214-1618/1282)  78.7 W35-W37 N19-N24
      4  202 1215 (N01E65 L=181)   523     58        1 ( 183/1186- 218/1239) -14.0 E67-E61 N00-N02
      5 1317 1176 (N13W16 L=262)   231     79        0 (1273/1164-1355/1189)  11.3 W13-W18 N12-N14
      6 1365  949 (N00W22 L=267)  1143    238        1 (1330/ 860-1421/1060) -70.0 W19-W26 S04-N07
      7  839  878 (S11E09 L=236)   897    250        1 ( 755/ 852- 935/ 914)  10.3 E14-E03 S13-S08
      8  368  863 (S18E43 L=203)   913    254        5 ( 286/ 814- 446/ 908)   4.1 E50-E36 S21-S15
      9 1061  782 (S14W06 L=251)   743    303        1 ( 959/ 679-1184/ 872)  51.8 W00-W12 S21-S07
     10  728  801 (S17E16 L=230)   260     91        0 ( 714/ 755- 744/ 852)  90.0 E16-E14 S20-S13
     11 1449  684 (S15W32 L=278)  1256    289        5 (1372/ 557-1513/ 788)  86.4 W29-W35 S23-S07
     12 1754  736 (S07W57 L=302)   405    118        2 (1734/ 704-1767/ 770)  76.0 W54-W58 S09-S05
     13 1159  733 (S16W13 L=258)   210     84        1 (1129/ 717-1210/ 753)   0.0 W10-W15 S16-S14
     14 1211  488 (S31W22 L=267)   541     79        0 (1181/ 455-1255/ 518)  45.0 W19-W24 S33-S28
  

    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