Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1427 1747 (N36W54 L=137)  1036    107        1 (1381/1703-1456/1781)  80.5 W49-W59 N33-N39
      2  748 1447 (N33E08 L= 74)  1472    359        1 ( 605/1357- 888/1514) -34.4 E19-W00 N24-N39
      3 1380 1449 (N19W32 L=115)   532    139        2 (1332/1394-1432/1505)  16.7 W27-W37 N16-N21
      4  237 1335 (N37E57 L= 26)  1788    181        4 ( 209/1261- 274/1413) -40.6 E65-E50 N31-N43
      5 1217 1379 (N19W19 L=102)   502    135        1 (1145/1355-1280/1403) -12.5 W14-W23 N17-N20
      6  208 1106 (N23E58 L= 25)   540    111        0 ( 190/1055- 225/1155) -90.0 E60-E55 N19-N26
      7 1884 1033 (S16W63 L=145)   623     70        1 (1858/1000-1911/1064)  14.0 W58-W67 S17-S14
      8  226  963 (N14E57 L= 26)   818    107        1 ( 186/ 928- 275/1003) -29.1 E61-E51 N11-N17
      9 1051  774 (S12E04 L= 79)   486    195        0 (1020/ 682-1079/ 866)  59.0 E06-W00 S17-S07
     10 1563  748 (S25W29 L=112)   247     29        1 (1543/ 724-1584/ 767)  45.0 W27-W30 S26-S24
     11  787  602 (S17E24 L= 59)   213     26        1 ( 766/ 581- 805/ 621) -71.6 E24-E22 S18-S15
     12 1487  580 (S35W21 L=104)   328     74        1 (1457/ 549-1520/ 611)  31.0 W18-W24 S36-S33
     13  332  464 (S17E67 L= 16)  1313    127        3 ( 301/ 408- 357/ 520)  41.2 E74-E61 S20-S13
     14  469  421 (S22E55 L= 27)  1031    188        0 ( 416/ 335- 505/ 502)  63.4 E61-E52 S28-S16
     15  638  333 (S31E47 L= 36)   367     73        0 ( 605/ 307- 673/ 357)  11.3 E52-E42 S32-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