Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1301 1712 (N47W36 L= 47)   441     83        0 (1274/1675-1329/1741) -90.0 W34-W38 N44-N50
      2 1224 1610 (N41W24 L= 35)   466     84        1 (1185/1572-1256/1638) -45.0 W20-W25 N37-N43
      3 1576 1595 (N34W54 L= 66)   358     41        0 (1561/1574-1593/1626)  76.0 W52-W56 N32-N36
      4 1682 1479 (N25W58 L= 69)   794    117        1 (1633/1439-1723/1510) -35.5 W53-W60 N21-N27
      5  326 1424 (N35E56 L=315)   464     58        0 ( 299/1405- 362/1444)  -6.3 E60-E51 N33-N36
      6 1005 1410 (N30W03 L= 14)   300     94        0 ( 960/1383-1052/1433) -38.7 W00-W05 N27-N31
      7  387 1320 (N28E45 L=326)   365     49        0 ( 372/1286- 403/1349) -59.0 E47-E43 N25-N30
      8 1541 1062 (N02W34 L= 45)   495    125        0 (1500/1019-1573/1114)  33.7 W30-W36 N00-N04
      9 1269 1062 (N05W15 L= 26)   514    209        2 (1194/ 997-1351/1106)  21.8 W10-W20 N02-N07
     10 1926 1029 (S06W74 L= 85)   861     54        0 (1905/1002-1944/1064)  26.6 W69-W79 S07-S04
     11 1691  784 (S17W44 L= 55)   524    147        1 (1658/ 739-1715/ 822)  68.2 W41-W46 S20-S14
     12  954  716 (S13E07 L=  4)   588    254        1 ( 908/ 668-1019/ 811) -73.3 E10-E03 S16-S06
     13  399  665 (S13E47 L=324)  1707    484        3 ( 312/ 565- 507/ 789) -68.2 E52-E38 S19-S04
     14 1064  628 (S20E01 L= 10)   601    172        1 ( 985/ 594-1107/ 687)  29.7 E06-W01 S21-S15
     15 1676  620 (S28W45 L= 56)   455    100        0 (1622/ 603-1721/ 639)   0.0 W39-W49 S29-S27
     16  694  608 (S18E26 L=345)   398     96        2 ( 646/ 583- 727/ 634)  18.4 E29-E23 S19-S16
     17 1292  586 (S25W14 L= 25)   482    132        1 (1234/ 558-1354/ 615)   6.3 W09-W18 S26-S23
     18  767  526 (S24E23 L=349)   401     89        1 ( 741/ 490- 794/ 574)  50.2 E25-E19 S26-S20
     19 1783  558 (S36W64 L= 75)   833     84        1 (1741/ 542-1824/ 574)  -6.0 W56-W75 S37-S34
     20 1129  471 (S32W02 L= 13)   852    176        0 (1064/ 421-1192/ 537)  41.2 E03-W06 S34-S27
     21 1281  433 (S36W13 L= 24)   857    315        1 (1142/ 400-1413/ 490)   5.2 W01-W23 S38-S33
     22  895  288 (S44E21 L=350)  1469    186        3 ( 845/ 219- 964/ 341)  33.7 E28-E12 S51-S40
     23 1418  315 (S50W28 L= 39)   420     41        1 (1394/ 287-1440/ 337)  90.0 W24-W30 S52-S47
  

    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