Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1119 1586 (N34W23 L=199)   242     41        1 (1091/1569-1146/1608) -14.0 W20-W24 N32-N35
      2 1357 1370 (N15W28 L=205)   333     98        0 (1310/1354-1409/1385) -18.4 W25-W31 N13-N16
      3  804 1308 (N25E06 L=170)  1172    206        4 ( 707/1253- 899/1352) -42.0 E11-E01 N20-N30
      4  599 1138 (N20E23 L=154)   202     55        0 ( 573/1122- 628/1158) -26.6 E24-E20 N19-N22
      5 1386  835 (S15W16 L=192)  1197    286        3 (1307/ 726-1435/ 937) -86.2 W13-W18 S22-S07
      6 1302  629 (S26W07 L=183)   312     52        1 (1277/ 601-1328/ 652) -45.0 W05-W08 S27-S23
      7 1048  440 (S31E15 L=162)   289     93        0 ( 997/ 428-1102/ 459) -15.9 E17-E10 S32-S29
      8 1514  353 (S54W19 L=195)   658     98        1 (1483/ 328-1547/ 387) -41.2 W15-W23 S58-S50
  

    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