Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1087 1316 (N21W03 L=304)   198     66        0 (1060/1284-1115/1337)  36.9 W01-W05 N19-N22
      2 1165 1289 (N20W08 L=309)   317     62        3 (1130/1254-1189/1321) -53.1 W06-W10 N17-N21
      3  528 1222 (N13E34 L=267)   628    222        1 ( 446/1153- 595/1309)  45.0 E39-E29 N08-N19
      4  407 1213 (N12E43 L=257)   515    127        3 ( 372/1180- 441/1260) -33.7 E46-E39 N10-N15
      5 1707 1119 (N10W47 L=348)   301     58        1 (1687/1087-1718/1152) -76.0 W45-W48 N07-N11
      6  234  970 (S04E58 L=243)   383     97        2 ( 214/ 928- 254/1015) -51.3 E60-E55 S06-S01
      7 1724  839 (S08W50 L=350)  2540    408        5 (1614/ 701-1793/ 980)  53.1 W41-W55 S16-N01
      8  279  910 (S07E53 L=247)   320    103        3 ( 260/ 880- 291/ 948)  78.7 E54-E51 S09-S04
      9  397  854 (S10E42 L=258)  1089    463        6 ( 287/ 729- 494/ 932)  37.9 E53-E34 S18-S04
     10  196  826 (S13E63 L=237)  1092    227        5 ( 172/ 768- 221/ 877) -81.9 E66-E60 S16-S09
     11  718  652 (S21E19 L=281)  1417    365        2 ( 610/ 570- 786/ 781)  49.4 E27-E14 S27-S12
     12  474  735 (S17E37 L=264)   651    134        5 ( 421/ 694- 547/ 776) -12.5 E40-E31 S19-S14
     13 1578  591 (S24W41 L=342)   591    112        2 (1552/ 552-1597/ 631)  78.7 W39-W43 S26-S21
  

    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