Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1239 1622 (N36E05 L= 82)  1941    491        3 (1166/1413-1340/1817) -47.3 E17-W07 N25-N51
      2 1011 1545 (N24E16 L= 72)  1655    493        3 ( 861/1381-1173/1642) -13.0 E27-E01 N18-N28
      3  587 1569 (N15E43 L= 44)   267     85        0 ( 552/1539- 614/1590)   0.0 E45-E39 N13-N15
      4 1580 1294 (N26W26 L=114)   900    223        1 (1507/1244-1624/1375)  73.3 W21-W29 N22-N32
      5 1851 1309 (N38W55 L=143)  1067    119        1 (1819/1260-1896/1340)  31.0 W49-W65 N32-N41
      6  282 1287 (S08E56 L= 31)   322     77        0 ( 267/1245- 293/1323) -53.1 E59-E54 S10-S06
      7  716 1250 (S01E23 L= 64)   580    137        3 ( 667/1200- 768/1306)  81.9 E25-E21 S04-N03
      8  163 1212 (S15E69 L= 19)   757     73        1 ( 141/1180- 183/1258) -51.3 E71-E64 S16-S11
      9 1504 1220 (N19W23 L=110)   312     73        0 (1459/1198-1533/1235)  11.3 W19-W24 N17-N20
     10  779 1178 (S03E18 L= 70)   264     27        1 ( 758/1152- 796/1207) -56.3 E18-E16 S04-S01
     11  750 1032 (S12E16 L= 72)   522    164        2 ( 664/ 991- 800/1082)  49.4 E20-E13 S15-S08
     12  395 1033 (S20E40 L= 48)   275     77        1 ( 368/1014- 436/1059)  -9.5 E42-E36 S21-S19
     13 1420  887 (S02W26 L=113)  1018    268        4 (1382/ 776-1468/1011) -42.3 W21-W32 S06-N04
     14  364  910 (S28E40 L= 47)   347     95        0 ( 337/ 862- 379/ 952) -51.3 E43-E38 S31-S26
     15 1717  766 (N01W51 L=138)  1010    315        1 (1668/ 641-1751/ 874) -34.7 W44-W58 S04-N05
  

    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