Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  296 1533 (N10E66 L=115)  1954    316        4 ( 249/1474- 369/1594)  45.0 E70-E59 N06-N14
      2  450 1424 (N05E45 L=135)   514    129        2 ( 406/1382- 505/1463)  50.2 E49-E42 N02-N08
      3 1045 1309 (N09E05 L=176)   505    132        0 (1024/1235-1069/1374) -58.0 E07-E02 N05-N13
      4  171 1140 (S15E64 L=117)  5177    750       11 ( 110/ 994- 269/1251) -78.7 E73-E54 S23-S08
      5  472  916 (S24E33 L=148)  1162    247        1 ( 391/ 818- 554/1012)  54.5 E38-E28 S31-S17
      6 1352  833 (S10W23 L=204)   344     99        1 (1323/ 787-1376/ 880) -80.5 W21-W24 S13-S07
      7 1435  824 (S09W29 L=209)   283     96        1 (1389/ 804-1478/ 843)   9.5 W25-W31 S09-S07
      8  374  795 (S33E40 L=141)   304     47        1 ( 355/ 777- 400/ 823) -33.7 E41-E37 S34-S31
      9 1468  691 (S15W35 L=216)  1599    433        4 (1273/ 584-1603/ 795)  48.6 W25-W45 S25-S08
     10 1017  534 (S36W12 L=193)   536    132        1 ( 944/ 513-1096/ 561)  10.3 W07-W18 S37-S34
     11  650  519 (S46E15 L=166)   249     71        1 ( 629/ 494- 686/ 544)  31.0 E16-E11 S48-S44
     12 1560  512 (S22W49 L=230)   381     70        0 (1521/ 489-1591/ 534)  53.1 W47-W51 S24-S20
     13 1304  489 (S31W33 L=213)   233     90        0 (1275/ 455-1336/ 521) -15.9 W29-W36 S31-S29
     14 1674  446 (S22W63 L=244)  2079    320        3 (1566/ 394-1786/ 496)  35.8 W55-W74 S28-S15
  

    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