Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1369 1345 (N16W29 L=211)   368     82        0 (1326/1312-1400/1379) -59.0 W27-W30 N13-N18
      2  954 1349 (N27W04 L=186)   361    110        0 ( 904/1315-1010/1372)  -7.1 W00-W08 N25-N28
      3  457 1282 (N36E33 L=149)  1668    474        0 ( 305/1193- 640/1343)  -3.7 E48-E17 N30-N38
      4 1768 1251 (S01W55 L=237)   414     50        1 (1739/1231-1792/1269) -26.6 W52-W57 S02-N00
      5 1393 1158 (N05W25 L=207)   374     99        0 (1360/1119-1428/1205)  23.2 W21-W28 N03-N06
      6 1430  999 (S05W23 L=205)   395     85        0 (1409/ 955-1452/1034)  78.7 W21-W24 S07-S02
      7 1854  958 (S21W56 L=238)  1282    206        1 (1802/ 870-1912/1032)  23.2 W49-W66 S24-S17
      8 1880  823 (S31W60 L=242)   851    114        0 (1849/ 774-1905/ 878)  39.8 W55-W64 S33-S27
      9 1313  645 (S22W07 L=189)   963    307        1 (1196/ 571-1396/ 753)  21.8 E01-W14 S24-S17
     10  912  641 (S12E16 L=166)   253     97        0 ( 876/ 621- 955/ 676) -45.0 E17-E13 S13-S09
     11 1481  622 (S29W18 L=200)   333    113        0 (1451/ 579-1521/ 668)  26.6 W15-W21 S31-S26
     12  444  482 (S12E54 L=128)   916    130        2 ( 382/ 443- 501/ 526) -40.6 E59-E50 S15-S08
     13  950  402 (S28E22 L=160)   547    144        1 ( 884/ 381-1024/ 433) -12.5 E27-E17 S29-S26
     14  852  335 (S31E32 L=150)   323    106        1 ( 837/ 289- 872/ 389)  33.7 E36-E27 S34-S27
     15 1285  353 (S43E02 L=180)   298     72        1 (1267/ 316-1301/ 388)  81.9 E03-W00 S46-S39
  

    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