Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1752 1283 (N32W45 L=195)  1360    171        3 (1681/1256-1835/1321)   6.3 W37-W55 N28-N34
      2  306 1033 (S20E48 L=101)   603    153        0 ( 264/ 971- 354/1088)  48.8 E52-E44 S24-S16
      3 1793 1028 (N17W52 L=201)   483     93        0 (1775/ 987-1815/1057) -36.9 W49-W53 N15-N19
      4 1334  896 (S03W21 L=171)  1272    335        4 (1281/ 759-1373/1042) -52.4 W14-W24 S10-N03
      5 1246  725 (S15W21 L=171)   380     94        1 (1203/ 700-1290/ 749)  45.0 W18-W23 S17-S12
      6 1596  481 (S19W57 L=207)   459     64        1 (1553/ 468-1630/ 500)  26.6 W52-W60 S20-S17
      7  522  348 (S65E28 L=122)   588     72        1 ( 492/ 317- 548/ 380) -29.7 E32-E23 S67-S61
  

    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