Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  418 1606 (N46E57 L= 20)  2008    199        2 ( 354/1536- 488/1678) -13.4 E84-E42 N41-N51
      2 1298 1593 (N39W28 L=104)   279     68        2 (1261/1581-1331/1612) -11.3 W24-W30 N38-N40
      3 1154 1558 (N38W15 L= 91)   301     90        3 (1133/1515-1170/1600)  80.5 W13-W16 N35-N41
      4 1542 1499 (N30W44 L=121)   869    176        0 (1475/1425-1582/1546) -71.6 W40-W46 N24-N33
      5  858 1355 (N27E09 L= 68)   305     95        2 ( 838/1299- 878/1392) -74.1 E10-E07 N22-N29
      6 1713 1341 (N18W54 L=130)   377     75        0 (1693/1312-1742/1371) -76.0 W52-W55 N15-N19
      7 1829 1331 (N15W67 L=144)   592     55        0 (1805/1314-1855/1351) -26.6 W63-W71 N13-N16
      8  619 1225 (N20E25 L= 51)   267    133        0 ( 604/1169- 661/1263)  59.0 E26-E22 N16-N21
      9  379  995 (N06E44 L= 33)  1020    320        3 ( 268/ 948- 513/1030)   8.1 E54-E33 N03-N08
     10  487  918 (N01E36 L= 41)   348     90        0 ( 461/ 879- 519/ 952)  45.0 E37-E33 S01-N03
     11 1718  824 (S14W47 L=124)   585    177        0 (1672/ 764-1774/ 896)  41.6 W43-W52 S17-S09
     12 1607  832 (S12W38 L=114)   299     95        1 (1575/ 814-1639/ 857) -26.6 W34-W40 S13-S10
     13  477  818 (S05E37 L= 39)   298     74        3 ( 447/ 780- 499/ 848) -68.2 E39-E35 S07-S02
     14  266  768 (S08E58 L= 19)   895    161        5 ( 197/ 717- 311/ 826) -32.5 E65-E53 S11-S04
     15 1199  791 (S11W09 L= 86)   265     55        2 (1179/ 766-1221/ 824)  76.0 W07-W10 S12-S08
     16 1512  716 (S18W30 L=107)   240     69        2 (1494/ 690-1529/ 749) -63.4 W29-W31 S20-S16
     17  247  657 (S15E64 L= 12)  2184    147        4 ( 216/ 586- 292/ 725)  39.8 E73-E58 S20-S10
     18  716  688 (S14E22 L= 54)   215     87        0 ( 679/ 673- 755/ 704) -11.3 E24-E19 S15-S13
     19  747  493 (S28E24 L= 53)   370    117        1 ( 690/ 479- 800/ 517)   0.0 E28-E19 S28-S26
     20  457  375 (S36E57 L= 19)   728     88        3 ( 413/ 362- 511/ 392)  -4.4 E63-E50 S37-S34
  

    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