Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1217 1835 (N56E19 L=211)  1488    162        4 (1159/1783-1290/1887) -11.3 E29-E09 N53-N61
      2  912 1617 (N28E25 L=205)  1049    268        4 ( 793/1536-1010/1670)  -5.7 E35-E15 N24-N29
      3 1336 1490 (N32W06 L=236)   662    143        1 (1290/1441-1379/1547) -32.0 W01-W09 N29-N34
      4  995 1414 (N17E12 L=217)   450    134        4 ( 952/1358-1056/1459) -20.6 E15-E07 N14-N19
      5  249 1268 (S09E60 L=169)   981    115        1 ( 213/1213- 289/1307)  50.2 E63-E56 S12-S06
      6 1308 1206 (N13W11 L=241)   609    183        3 (1290/1119-1336/1288) -84.8 W09-W13 N08-N19
      7 1713 1003 (N14W44 L=274)   276     43        2 (1687/ 988-1738/1018)  11.3 W41-W46 N12-N14
      8  622  972 (S17E22 L=207)   348    114        2 ( 564/ 952- 676/ 983)   7.1 E26-E18 S18-S15
      9  221  894 (S32E57 L=172)   371     67        0 ( 199/ 859- 245/ 929)  45.0 E60-E54 S34-S28
     10 1050  765 (S18W09 L=238)   310     93        0 ( 998/ 745-1094/ 788)   9.5 W05-W11 S19-S16
     11  935  680 (S26W04 L=234)   213    121        0 ( 884/ 639- 983/ 724)  66.8 W02-W06 S29-S22
     12  255  682 (S45E57 L=173)   694    119        1 ( 220/ 634- 288/ 721)  25.2 E67-E50 S49-S41
     13 1476  633 (S13W39 L=269)   326    109        1 (1441/ 593-1494/ 673) -26.6 W35-W41 S15-S11
  

    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