Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1545 1696 (N30W59 L= 72)   578     28        1 (1520/1675-1565/1716)  11.3 W57-W62 N29-N31
      2 1830 1039 (S14W55 L= 68)  1495    173        2 (1779/ 988-1861/1100)  15.3 W48-W59 S16-S09
      3  236 1055 (N24E55 L=318)   884    193        0 ( 176/1003- 281/1098) -37.9 E60-E50 N20-N27
      4 1177  827 (S07W04 L= 17)   357    120        0 (1120/ 796-1238/ 849)  -8.1 W00-W07 S08-S06
      5  471  711 (N00E42 L=331)   944    233        4 ( 446/ 620- 498/ 806)  70.0 E44-E38 S05-N06
      6 1351  648 (S23W11 L= 24)   607    212        0 (1306/ 547-1374/ 751)  59.7 W05-W14 S28-S16
      7 1481  622 (S28W19 L= 32)   403     84        0 (1447/ 580-1517/ 663)  38.7 W16-W22 S30-S26
      8  964  419 (S28E20 L=353)   556    202        0 ( 890/ 359-1050/ 480)  15.9 E26-E12 S30-S25
  

    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