Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  236 1241 (N37E53 L=338)   400    118        0 ( 201/1223- 272/1256) -23.2 E56-E49 N35-N38
      2 1202 1191 (N12W14 L= 46)   656    186        2 (1106/1136-1274/1221) -41.2 W09-W17 N07-N15
      3 1869 1093 (S14W60 L= 92)  1643    285        5 (1831/ 985-1906/1218)  38.2 W53-W68 S19-S07
      4 1805 1096 (S11W53 L= 85)   494     64        1 (1787/1062-1821/1137)  63.4 W50-W55 S12-S08
      5 1215 1039 (N03W11 L= 43)   519    174        2 (1157/ 969-1255/1126)  33.7 W06-W15 N00-N07
      6  382  951 (N17E43 L=349)   466    122        1 ( 364/ 905- 411/1018)  71.6 E44-E41 N14-N20
      7 1681  864 (S20W37 L= 69)   333    114        1 (1647/ 812-1712/ 917)  35.5 W33-W40 S22-S17
      8  403  832 (N10E44 L=348)   900    232        3 ( 351/ 775- 452/ 895)  20.0 E49-E38 N06-N12
      9 1823  803 (S30W49 L= 81)  1298    238        3 (1739/ 730-1861/ 876)  17.1 W40-W54 S31-S25
     10  255  787 (N09E59 L=333)   443    148        3 ( 213/ 724- 287/ 820) -50.2 E62-E56 N05-N11
     11  957  689 (S10E12 L= 19)   227     66        0 ( 937/ 656- 973/ 727)  36.9 E14-E10 S11-S08
     12 1547  549 (S37W22 L= 54)   687    128        1 (1494/ 503-1586/ 601)  32.0 W17-W25 S38-S33
     13 1426  484 (S37W12 L= 43)   303     84        1 (1399/ 468-1467/ 511) -38.7 W09-W14 S39-S35
     14  380  462 (S13E62 L=330)  1063    122        4 ( 345/ 434- 426/ 496) -33.7 E64-E57 S14-S10
     15  476  358 (S21E59 L=333)   776    228        1 ( 438/ 325- 501/ 405)  24.4 E64-E53 S23-S18
  

    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