Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  461 1523 (N18E46 L=325)   865    212        3 ( 386/1493- 562/1553)   0.0 E53-E37 N15-N19
      2  848 1408 (N14E16 L=355)  1905    376        8 ( 740/1312- 975/1499)  34.7 E22-E08 N07-N19
      3  624 1387 (N10E30 L=341)   273     90        1 ( 602/1349- 646/1419) -63.4 E31-E27 N08-N12
      4  618 1040 (S10E25 L=346)   359    115        0 ( 587/ 988- 640/1083)  80.5 E26-E23 S13-S07
      5  789 1038 (S08E14 L=357)   278     93        1 ( 759/1003- 814/1083) -45.0 E16-E12 S10-S05
      6 1491  974 (S02W29 L= 39)   352    153        0 (1472/ 901-1506/1039) -81.9 W27-W30 S06-N01
      7  151  903 (S22E66 L=304)  2100    215        5 (  87/ 842- 208/ 969)  16.3 E82-E57 S24-S17
      8  556  790 (S26E28 L=343)  1295    359        2 ( 405/ 748- 712/ 842)   7.4 E39-E16 S28-S21
      9 1296  692 (S21W22 L= 33)  1144    413        1 (1180/ 568-1464/ 817)  57.7 W17-W30 S30-S11
     10  982  772 (S21W01 L= 12)   646    305        1 ( 848/ 751-1117/ 795)  21.8 E07-W09 S24-S18
     11 1532  635 (S21W40 L= 51)   696    133        1 (1503/ 572-1551/ 713) -63.4 W37-W41 S24-S16
     12  967  561 (S35W03 L= 14)   886    218        0 ( 852/ 542-1079/ 583)   7.6 E04-W11 S36-S33
     13 1801  532 (S20W73 L= 84)  1103     70        3 (1783/ 495-1822/ 575) -15.3 W68-W80 S22-S17
     14 1400  295 (S44W50 L= 61)  1921    200        4 (1305/ 250-1474/ 345)   0.0 W37-W60 S47-S40
     15 1543  262 (S43W71 L= 82)   978     77        1 (1527/ 224-1562/ 305) -10.8 W64-W85 S44-S39
  

    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