Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  875 1332 (N11E12 L=274)  1413    392        7 ( 798/1223- 947/1476) -53.7 E19-E07 N04-N19
      2 1652 1329 (N21W38 L=325)   292     74        0 (1618/1315-1681/1342)  31.0 W35-W40 N19-N22
      3 1896 1153 (N15W62 L=349)  1176    228        1 (1849/1121-1944/1183)  28.6 W56-W69 N11-N17
      4 1638 1062 (N04W38 L=325)   477    152        0 (1587/1000-1672/1097) -51.3 W34-W41 N00-N06
      5  248  961 (S15E53 L=233)   592    191        0 ( 205/ 897- 281/1008) -49.4 E57-E50 S19-S12
      6  310  878 (S20E47 L=239)   332     95        1 ( 268/ 862- 338/ 897)   9.5 E51-E45 S21-S19
      7 1662  676 (S17W48 L=335)   559    155        0 (1590/ 631-1725/ 713)  33.7 W43-W52 S21-S14
      8 1265  485 (S35W25 L=312)  1130    280        2 (1154/ 451-1423/ 530)  18.4 W16-W35 S38-S30
  

    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