Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  356 1654 (N36E67 L=358)   920     40        0 ( 334/1628- 380/1679) -14.0 E76-E60 N33-N37
      2  360 1583 (N30E58 L=  7)   492     72        1 ( 339/1559- 380/1616)  90.0 E60-E55 N27-N32
      3  413 1299 (N11E42 L= 23)  1113    359        3 ( 379/1144- 473/1447)  90.0 E45-E38 N01-N20
      4  616 1326 (N12E27 L= 37)   762    279        0 ( 525/1260- 728/1383) -25.0 E34-E19 N08-N16
      5  535 1261 (N08E32 L= 32)   238     97        0 ( 503/1216- 549/1291) -68.2 E34-E31 N05-N10
      6 1926 1099 (N07W70 L=135)  1080     66        4 (1898/1070-1955/1131) -23.2 W65-W77 N05-N09
      7  637  923 (S12E24 L= 41)   205     46        1 ( 612/ 901- 662/ 943)  56.3 E25-E22 S13-S10
      8 1211  887 (S12W12 L= 77)   420    166        1 (1148/ 848-1253/ 939)  45.0 W08-W14 S14-S08
      9  281  847 (S17E53 L= 12)  1859    329        7 ( 155/ 799- 447/ 884)   3.6 E69-E37 S19-S14
     10 1308  730 (S21W20 L= 85)   567    131        3 (1264/ 679-1353/ 780) -56.3 W16-W23 S23-S17
     11 1089  721 (S22W06 L= 70)   379    153        0 (1025/ 695-1162/ 753) -18.4 W01-W10 S23-S20
     12 1786  700 (S18W60 L=125)   840    104        0 (1737/ 672-1827/ 734)  32.0 W54-W63 S20-S15
     13 1452  503 (S34W36 L=101)   611     90        0 (1415/ 471-1489/ 532)  -8.1 W32-W39 S36-S32
     14  923  417 (S44E05 L= 60)   288     86        0 ( 883/ 392- 957/ 436) -18.4 E07-E01 S45-S42
  

    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