Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1221 1854 (N50W49 L=117)   448     30        0 (1198/1834-1243/1872)   7.1 W44-W53 N48-N51
      2 1466 1485 (N19W39 L=107)  1527    378        2 (1294/1433-1601/1583)   0.0 W26-W55 N16-N22
      3  955 1517 (N33W07 L= 75)  1650    365        1 ( 806/1442-1115/1572) -37.4 E02-W15 N24-N38
      4  351 1387 (N38E43 L= 25)  1711    194        5 ( 298/1300- 400/1465) -55.3 E51-E37 N31-N44
      5  362 1086 (N19E42 L= 26)  1341    246        2 ( 312/ 994- 416/1182) -69.0 E45-E38 N12-N25
      6  114 1057 (N21E72 L=356)  3276    241        8 (  83/ 959- 146/1153) -59.7 E81-E66 N15-N27
      7 1274  843 (S13W11 L= 79)   415    123        0 (1246/ 783-1300/ 907)  60.3 W08-W13 S16-S09
      8 1742  787 (S27W45 L=113)   553     38        1 (1715/ 758-1768/ 814) -51.3 W42-W47 S29-S24
      9  981  685 (S16E10 L= 59)   496    147        0 ( 931/ 639-1049/ 733) -58.0 E11-E06 S20-S12
     10 1643  638 (S35W35 L=104)   302     62        0 (1613/ 623-1671/ 655)  -9.5 W32-W38 S36-S32
     11  443  492 (S17E53 L= 16)   576     99        1 ( 417/ 464- 485/ 531) -78.7 E55-E49 S19-S14
     12  626  408 (S26E43 L= 26)   422     95        0 ( 606/ 368- 645/ 459)  40.6 E46-E39 S28-S22
     13  438  412 (S22E59 L=  9)   602     99        0 ( 418/ 357- 459/ 456)  37.9 E64-E55 S26-S19
  

    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