Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1227 1762 (N56W05 L=167)   559     66        1 (1197/1736-1258/1789)  54.5 W02-W08 N52-N59
      2 1123 1714 (N49E04 L=157)   482    116        0 (1103/1660-1148/1756) -83.7 E05-E01 N44-N53
      3 1509 1712 (N56W40 L=202)   433     41        0 (1492/1687-1531/1729)  26.6 W35-W45 N53-N58
      4  640 1681 (N38E44 L=118)   369     75        1 ( 606/1657- 665/1702) -15.9 E47-E40 N36-N39
      5  832 1529 (N30E21 L=140)   500    115        2 ( 806/1470- 850/1581) -54.5 E23-E18 N26-N33
      6  344 1468 (N19E59 L=102)  2210    314        8 ( 258/1375- 422/1542)  59.7 E65-E52 N12-N24
      7 1548 1401 (N31W33 L=195)  1181    286        1 (1433/1324-1659/1468) -17.5 W23-W42 N27-N34
      8  380 1415 (N16E53 L=109)   787    124        2 ( 339/1364- 419/1452)  63.4 E56-E49 N12-N18
      9  850  940 (S07E10 L=152)   385     83        1 ( 821/ 915- 892/ 972) -21.8 E11-E06 S08-S04
     10  173  901 (S18E66 L= 95)   798     80        1 ( 148/ 868- 199/ 934)  39.8 E71-E61 S20-S15
     11 1253  547 (S26W23 L=184)   347    125        0 (1199/ 517-1304/ 589)  50.2 W19-W25 S28-S22
     12 1534  529 (S24W45 L=206)   284     59        0 (1520/ 500-1547/ 557) -45.0 W42-W46 S25-S21
     13 1708  501 (S23W65 L=227)   527     42        1 (1685/ 477-1728/ 525) -76.0 W62-W67 S25-S21
     14  411  454 (S47E49 L=112)  1032    133        1 ( 370/ 424- 466/ 498)   0.0 E55-E41 S49-S43
  

    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