Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1645 1686 (N27W65 L=303)   780    118        1 (1623/1653-1664/1715)  45.0 W61-W67 N24-N28
      2 1628 1516 (N17W52 L=290)  1238    240        1 (1545/1472-1697/1554)  -7.6 W44-W59 N14-N19
      3 1794 1471 (N11W67 L=305)  1208    358        1 (1739/1439-1840/1516)   2.9 W59-W79 N09-N12
      4 1188 1425 (N22W19 L=257)   899    261        0 (1064/1390-1323/1473) -31.0 W12-W27 N18-N27
      5 1768 1342 (N04W58 L=296)   350    116        0 (1734/1316-1800/1362)   7.1 W53-W61 N03-N05
      6  194 1261 (N33E57 L=181)   425     55        1 ( 178/1241- 209/1284)  45.0 E58-E54 N31-N34
      7  607 1219 (N22E22 L=216)  1684    323        5 ( 447/1175- 803/1252) -11.3 E33-E08 N17-N24
      8  935 1203 (N14E02 L=236)   206     51        0 ( 904/1186- 975/1219)   0.0 E03-W01 N13-N15
      9 1914 1124 (S11W67 L=305)  1529    304        4 (1882/1075-1948/1201)  24.8 W61-W75 S14-S07
     10  221 1011 (N17E55 L=183)   771    192        1 ( 176/ 938- 263/1085) -59.0 E59-E52 N11-N21
     11  660 1045 (N11E21 L=217)   287    134        0 ( 599/1014- 714/1061) -14.0 E25-E17 N07-N11
     12 1885  870 (S26W59 L=297)  3006    261        2 (1824/ 778-1931/ 971)  48.0 W51-W64 S31-S19
     13 1359  935 (S10W18 L=256)   572    190        2 (1285/ 898-1440/ 964)   0.0 W12-W23 S11-S07
     14 1402  877 (S14W19 L=257)   324     40        1 (1381/ 850-1424/ 907)  45.0 W17-W20 S15-S12
     15 1323  781 (S18W13 L=251)   429    161        1 (1238/ 760-1394/ 809)  -5.7 W07-W17 S19-S16
     16  994  741 (S13E08 L=230)   196     76        0 ( 973/ 700-1016/ 774) -90.0 E08-E06 S16-S11
     17  305  574 (S10E61 L=177)   699    104        4 ( 266/ 545- 348/ 601) -23.2 E64-E57 S12-S08
     18  262  524 (S13E70 L=168)  2073    148        2 ( 227/ 481- 300/ 560) -68.2 E75-E64 S15-S10
     19 1665  519 (S45W38 L=276)   588    106        2 (1643/ 489-1690/ 552) -63.4 W35-W41 S47-S41
     20 1489  399 (S49W21 L=259)  1235    215        3 (1429/ 365-1541/ 450)  -9.5 W15-W27 S53-S45
     21  743  352 (S33E37 L=201)  1324    266        4 ( 681/ 276- 793/ 433)  26.6 E45-E29 S37-S27
  

    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