Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1458 1711 (N30W53 L=274)   355     47        0 (1432/1695-1484/1726) -56.3 W51-W55 N28-N31
      2  632 1523 (N46E12 L=209)   692    144        1 ( 569/1467- 681/1574)  18.4 E18-E06 N43-N48
      3 1581 1546 (N17W52 L=273)   331     83        0 (1548/1530-1611/1563) -11.3 W49-W55 N16-N17
      4 1079 1309 (N19W11 L=232)  1094    283        2 ( 928/1260-1209/1355) -45.0 W03-W17 N13-N26
      5  585  605 (S07E38 L=183)   281     98        0 ( 560/ 564- 602/ 653)  51.3 E40-E34 S09-S04
      6  544  320 (S24E56 L=165)   498    161        0 ( 523/ 286- 564/ 358)  24.0 E60-E51 S25-S21
      7  956  210 (S43E36 L=185)  1215    156        2 ( 902/ 186-1019/ 246) -50.2 E40-E29 S46-S38
  

    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