Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  950 1470 (N33E04 L= 29)   287     50        1 ( 926/1439- 978/1498) -53.1 E05-E01 N30-N34
      2  252 1420 (N30E66 L=326)  2278    160        6 ( 212/1341- 297/1478) -18.4 E79-E55 N24-N33
      3  744 1300 (N22E18 L= 15)   226     79        1 ( 718/1279- 772/1321) -14.0 E19-E15 N20-N23
      4  477 1270 (N20E37 L=355)  1101    232        0 ( 384/1240- 580/1303)  -3.6 E45-E29 N18-N22
      5  839 1164 (N13E11 L= 21)   361    107        1 ( 787/1147- 900/1183)   8.1 E14-E07 N12-N14
      6 1789 1062 (N02W54 L= 87)   329    119        0 (1779/1003-1796/1115) -90.0 W53-W55 S01-N05
      7 1590  975 (S01W37 L= 69)   792    275        0 (1569/ 857-1611/1110) -90.0 W35-W38 S08-N06
      8 1499 1046 (N03W30 L= 63)   236     57        1 (1471/1015-1528/1073)  45.0 W28-W32 N01-N04
      9 1212  952 (S01W11 L= 43)   324     77        0 (1189/ 917-1228/ 994)  56.3 W09-W12 S02-N01
     10  593  970 (N02E27 L=  5)   294    135        0 ( 537/ 947- 654/ 992) -14.0 E31-E23 N00-N03
     11  777  820 (S08E16 L= 16)   415    140        0 ( 727/ 788- 851/ 859)  26.6 E19-E11 S09-S05
     12 1506  800 (S12W31 L= 63)   655    185        0 (1425/ 750-1585/ 835)  20.0 W24-W36 S14-S10
     13  469  626 (S20E41 L=352)   265     65        0 ( 448/ 590- 488/ 658) -90.0 E41-E39 S22-S17
  

    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