Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1197 1863 (N59W50 L= 57)  1100     87        2 (1150/1827-1237/1899)   6.8 W40-W65 N56-N61
      2 1516 1550 (N29W47 L= 54)   634     87        0 (1464/1519-1561/1578) -33.7 W43-W50 N26-N31
      3  623 1353 (N32E23 L=344)   635    153        1 ( 604/1287- 641/1431)  77.5 E24-E21 N27-N37
      4  368 1284 (N31E45 L=322)  2410    367        5 ( 253/1179- 495/1411) -25.8 E63-E32 N22-N39
      5 1665 1351 (N14W50 L= 56)   452    130        0 (1627/1318-1709/1376) -14.0 W45-W53 N11-N15
      6 1286 1235 (N15W19 L= 26)   516    173        0 (1202/1215-1374/1247) -21.8 W14-W25 N12-N16
      7  831 1067 (N12E11 L=356)   227    154        0 ( 784/1005- 849/1109) -71.6 E13-E09 N08-N14
      8  494  955 (N09E35 L=332)   381     83        2 ( 479/ 899- 512/1005)  81.9 E36-E33 N05-N12
      9 1853  929 (S15W59 L= 65)  1488    165        3 (1793/ 875-1906/ 996)  15.9 W51-W67 S16-S12
     10  769  697 (S10E21 L=346)   591    120        2 ( 749/ 638- 794/ 751)  60.3 E22-E18 S13-S06
     11 1001  648 (S16E07 L=359)   734    317        0 ( 883/ 599-1111/ 712) -28.3 E13-W00 S19-S10
     12  303  586 (S12E61 L=306)  1956    334        3 ( 239/ 502- 399/ 688) -58.4 E67-E53 S18-S05
     13  562  326 (S33E51 L=315)   784    107        1 ( 524/ 297- 613/ 371)  17.4 E58-E42 S35-S29
  

    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