Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1256 1711 (N47W33 L=135)  1548    290        3 (1220/1618-1319/1779)  34.5 W26-W43 N40-N52
      2  947 1460 (N34W01 L=102)   579    154        1 ( 896/1402- 998/1511) -58.0 E02-W03 N29-N38
      3  704 1385 (N32E18 L= 83)   377     80        1 ( 678/1346- 734/1430) -63.4 E19-E15 N29-N35
      4 1535 1229 (N11W36 L=137)   532    125        3 (1464/1181-1581/1270) -49.4 W31-W39 N07-N14
      5 1211 1185 (N13W14 L=115)   285     89        1 (1176/1155-1256/1226) -63.4 W11-W16 N10-N16
      6 1060 1151 (N13W04 L=105)   254     95        0 (1013/1123-1112/1174)   8.1 W00-W07 N11-N14
      7 1659 1128 (N03W43 L=145)   406    110        1 (1612/1116-1703/1150) -14.0 W39-W47 N02-N04
      8  225 1034 (N13E58 L= 43)   595    132        0 ( 195/1007- 260/1073) -29.7 E61-E54 N11-N15
      9 1102  853 (S05W03 L=104)   278    129        0 (1060/ 792-1134/ 909)  50.2 W00-W05 S08-S02
     10 1520  866 (S10W30 L=131)   275     75        0 (1491/ 831-1536/ 905)  53.1 W27-W30 S12-S08
     11  913  690 (S13E11 L= 90)   281     69        0 ( 891/ 650- 932/ 728)  59.0 E12-E09 S15-S10
     12 1430  555 (S30W22 L=123)  1515    286        1 (1299/ 475-1553/ 664)  25.3 W12-W31 S33-S23
     13  610  472 (S25E37 L= 65)   919    211        0 ( 539/ 428- 679/ 527)  19.7 E43-E29 S27-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