Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  707 1831 (N35E57 L=262)  1853    141        4 ( 678/1764- 738/1892) -30.1 E73-E49 N29-N40
      2 1132 1673 (N36E15 L=304)   646    105        0 (1084/1635-1176/1709) -18.4 E19-E10 N34-N37
      3 1641 1547 (N47W29 L=349)   720     96        0 (1606/1501-1662/1580) -80.5 W25-W31 N43-N50
      4 1060 1431 (N18E10 L=310)   413    195        1 (1031/1348-1087/1517) -48.4 E13-E05 N13-N22
      5 1400 1139 (N11W18 L=337)   278    125        0 (1381/1103-1427/1201) -51.3 W16-W20 N09-N15
      6  165 1078 (S24E67 L=253)  1479    168        2 ( 140/1006- 188/1140)  77.5 E70-E62 S28-S19
      7 1824  989 (N17W54 L= 14)  1707    340        2 (1783/ 867-1889/1108) -30.5 W47-W66 N12-N23
      8 1544 1051 (N11W29 L=349)   431    148        0 (1485/ 990-1589/1096)  60.9 W26-W31 N05-N14
      9  787 1010 (S13E13 L=307)   574    245        0 ( 698/ 954- 896/1043)  13.0 E18-E05 S16-S11
     10 1394  956 (N01W23 L=342)   367     96        1 (1348/ 936-1446/ 977)   8.1 W19-W26 N00-N02
     11  651  855 (S25E18 L=302)   251     67        1 ( 627/ 824- 686/ 885) -11.3 E19-E14 S26-S23
     12  364  804 (S36E40 L=279)   438     85        0 ( 323/ 778- 405/ 826)  24.0 E44-E35 S38-S34
     13 1655  765 (S01W46 L=  6)   490     51        0 (1626/ 738-1688/ 795)   0.0 W43-W49 S01-N00
     14  769  643 (S35E04 L=315)   840    214        0 ( 681/ 628- 890/ 668)  24.8 E10-W03 S37-S30
     15 1436  368 (S29W53 L= 13)  3777    531        8 (1206/ 302-1668/ 443)  38.4 W40-W70 S39-S16
  

    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